Dim WordApp As Word.Application
Dim DocWord As Word.Document
Set WordApp = New Word.Application
Set DocWord = WordApp.Documents.Add("list.doc")
DocWord.ActiveWindow.Selection.Find.Text = "%pokupki%"
DocWord.ActiveWindow.Selection.Find.Replacement.Text = pokupki
DocWord.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne
Нумерованный список в Word из VB 6
1. Куртка
2. Шапка
3. Ботинки
.....
N. Наименование_товара
Код:
В этом случае работает только замена метки на строку. А как сделать чтобы была замена на список?
Пример из Offline Developer Help:
Selection.InsertAfter "This is now the last sentence in paragraph one."
Вставляйте в цикл и выводите список.