| Цитата |
|---|
| Sub щелкнуть() Dim WA As Object, WD As Object Dim i As Integer i = Val(InputBox("Введите столбец расчета" ;) ) Set WA = CreateObject("Word.Application" ;) Set WD = WA.Documents.Open("c:\doc1.dotx" ;) WD.Range.Find.Execute FindText:="[#Number#]", ReplaceWith:=Cells(16, i) WD.Range.Find.Execute FindText:="[#LastName#]", ReplaceWith:=Cells(17, i) WD.Range.Find.Execute FindText:="[#Name#]", ReplaceWith:=Cells(18, i) WD.Range.Find.Execute FindText:="[#Surname#]", ReplaceWith:=Cells(19, i) WA.Visible = True Set WA = Nothing End Sub |
1. как сделать что б строки заменял во всем документе а не только первую подходящую замену.
Ну и если не трудно чтоб полученный шаблон после внесения данных сохранял по дате.
