Необходимо из макроса 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
-
-
- и т.д.
Как создать две переменных, которые бы указывали на разные файлы 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
-
-
- и т.д.