Страницы: 1
RSS
Работа сразу с несколькими документами word
 
Необходимо из макроса Excel в цикле из одного файла word выбирать информацию, а в другой файл word вставлять.
Как создать две переменных, которые бы указывали на разные файлы word?

Sub СоздатьФорму()

Dim ObjWord As Object
Dim Источник As Object
Dim Приемник As Object

On Error Resume Next
Set ObjWord = GetObject(, "Word.Application")
If ObjWord Is Nothing Then
   Set ObjWord = CreateObject("Word.Application")
End If
Set Приемник = ObjWord.Documents.Open("F:\Приемник.doc")
Приемник.Visible = True
Set Источник = ObjWord.Documents.Open("F:\Источник.doc")
Источник.Visible = True
On Error GoTo 0

With Приемник ' при поиске по файлу Приемник.doc возникает ошибка "OBJECT DOESN' T SUPPORT THIS PROPERTY OR METHOD"
       .Visible = True
       .Selection.HomeKey Unit:=wdStory
           With .Selection.Find
           .ClearFormatting
           .Text = "***"
           .Replacement.Text = ""
           .Forward = True
           .Wrap = wdFindContinue
           .Format = False
           .MatchCase = False
           .MatchWholeWord = True 'слово целиком
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
           End With
   If .Selection.Find.Execute Then
           .Selection.Delete
-
-
- и т.д.
Страницы: 1
Читают тему (гостей: 1)
Наверх