Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Нумерованный список в Word из VB 6

48K
17 декабря 2009 года
-=Orlangur=-
14 / / 10.09.2009
Есть метка %pokupki% в документе Word необходимо ее заменить на нумерованный список средствами VB6
1. Куртка
2. Шапка
3. Ботинки
.....
N. Наименование_товара

 
Код:
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

В этом случае работает только замена метки на строку. А как сделать чтобы была замена на список?
50K
06 января 2010 года
public_morozov
45 / / 06.01.2010
Заменяйте шаблон на пустой текст и далее используйте метод InsertAfter у объекта Selection

Пример из Offline Developer Help:

Selection.InsertAfter "This is now the last sentence in paragraph one."

Вставляйте в цикл и выводите список.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог