Копирование содержимого word в word из Excel с макросом

@isq · Регистрация: 23.02.2018

Author24 — интернет-сервис помощи студентам

Ребят, добрый вечер!
Подскажите,. пожалуйста, мне надо по сути создать копию документа WORD из Excel и работать с копией. Я указываю путь к файлу, создаю новый док-т, вставляю в него содержимое из дока
ПИшу

Visual Basic

Private Sub op()
Dim wd As Object
Dim ns As Object
 
Set wd = CreateObject("Word.Application")
f = Application.GetOpenFilename("Документ Microsoft Word, *.docx,Все файлы, *.*")
Set wdd = wd.Documents.Open(f)
wdd.Content.Select
t = wdd.Content.Copy
Set ns = Documents.Add
ns.PasteAndFormat
wdd.Close (False)
wd.Quit (False)
End Sub

После выбора пути создается процесс Word в диспетчере задач. Excel ждет, когда завершится этот процесс.
Что я не так делаю ?
Заранее спасибо!

@Step_UA · 23.02.2018, 21:32

Visual Basic

Private Sub op()
  Dim wApp As Object, wDoc As Object, f$
    f = Application.GetOpenFilename("Документ Microsoft Word, *.docx,Все файлы, *.*")
    If f = "" Then Exit Sub
    Set wApp = CreateObject("Word.Application")
    Set wDoc = wApp.Documents.Add(f)    ' Добавление документа, выбранный файл используется в качестве шаблона
    
    ' работа с копией документа wDoc
     wApp.Visible = True ' если требуется отобразить
    
    ' wApp.Quit (False) ' закрытие Word'а
    Set wApp = Nothing
End Sub

@isq · 23.02.2018, 22:37 **[ТС]**

Спасибо большое!!!!! Но тоже самое, указываю путь к файлу и зависает... Word-й процесс в диспетчере задач висит

@Step_UA · 23.02.2018, 22:43

Сообщение от isq

Word-й процесс в диспетчере задач висит

1. Удалите все процессы Word'а перед запуском макроса
2. Попробуйте переместить 9 строку перед 6, чтоб видеть уведомления

@isq · 24.02.2018, 03:17 **[ТС]**

Работает, работает!!!!!!!!!!!!!!!!!!!!!!!!! Спасибо огромное!!!

Добавлено через 2 часа 21 минуту
А есть ли в Excel VBA аналогия типа Paragraph ? Excel VBA Ругается на объявление переменной с таким типом. А мне нужно удалить целый разный абзац по определенным условиям

@Казанский · 24.02.2018, 11:08

Сообщение от isq

А есть ли в Excel VBA аналогия типа Paragraph ? Excel VBA Ругается на объявление переменной с таким типом.

Объявляйте As Object. Код лучше отлаживать в VBA Word, потом переносить в VBA Excel с заменой констант типа wdReplaceAll на их числовые значения.

@isq · 26.02.2018, 04:53 **[ТС]**

Пошла вообще другим путем:

Visual Basic

With Selection.Find
     .Text = "_начало_удаления_*_конец_удаления_"
  
    Selection.Delete
 
 
   End With

и еще wDoc.Range.Find.Execute FindText:="_начало_удаления_*_конец_удаления_", ReplaceWith:="", Replace:=2
Код отрабатывает без ошибок, но ничего не удаляет. Может я неправильно диапазон меток указываю ?

@Казанский · 02.03.2018, 16:59

isq, трудно судить по обрывкам кода. Где например указание на поиск с использованием подстановочных знаков (MatchWildcards:=True)?

@isq 0 / 0 / 0 Регистрация: 23.02.2018 Сообщений: 11
	23.02.2018, 22:37 [ТС]	3
	Спасибо большое!!!!! Но тоже самое, указываю путь к файлу и зависает... Word-й процесс в диспетчере задач висит 0

@Step_UA 1589 / 662 / 225 Регистрация: 09.06.2011 Сообщений: 1,334
	23.02.2018, 22:43	4
	Сообщение от isq Word-й процесс в диспетчере задач висит 1. Удалите все процессы Word'а перед запуском макроса 2. Попробуйте переместить 9 строку перед 6, чтоб видеть уведомления 1

@isq 0 / 0 / 0 Регистрация: 23.02.2018 Сообщений: 11
	24.02.2018, 03:17 [ТС]	5
	Работает, работает!!!!!!!!!!!!!!!!!!!!!!!!! Спасибо огромное!!! Добавлено через 2 часа 21 минуту А есть ли в Excel VBA аналогия типа Paragraph ? Excel VBA Ругается на объявление переменной с таким типом. А мне нужно удалить целый разный абзац по определенным условиям 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.02.2018, 11:08	6
	Сообщение от isq А есть ли в Excel VBA аналогия типа Paragraph ? Excel VBA Ругается на объявление переменной с таким типом. Объявляйте As Object. Код лучше отлаживать в VBA Word, потом переносить в VBA Excel с заменой констант типа wdReplaceAll на их числовые значения. 1

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	02.03.2018, 16:59	8
	isq, трудно судить по обрывкам кода. Где например указание на поиск с использованием подстановочных знаков (MatchWildcards:=True)? 0