Суть проблемы: есть прога, которая берет данные из текстового файла, открывает документ Word и производит поиск с заменой в документе. Проблема в том, что используемый метод не производит замену из VB в колонтитулах. Однако, если этот кусок вставить в макрос Word то замена проходит как в теле документа, так и в колонтитулах. Текст модуля для замены такой: Sub FindAndReplace(j) Set myRange = WD.Range(Start:=0, End:=0) With myRange.Find .ClearFormatting .Text = data(j, 1) With .Replacement .ClearFormatting .Text = data(j, 2) End With .Execute Replace:=wdReplaceAll, _ Format:=True, MatchCase:=True, _ MatchWholeWord:=True End With End Sub Может кто подскажет как это сделать? Заранее благодарю.
Ответить
|