Работа с MS Word

[Dam]

Здравствуйте!

Пожалуйста, дайте совет!

У меня есть созданный документ Word с внесенным текстом.
Обращаюсь я к нему следующим образом:

Set WordApp = New Word.Application

WordApp.Documents.Open ("c:\333")
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection

Но я не знаю как вставить текст в нужное место документа
(например в середину).

Заранее спасибо.

[RayShade]

Позиционируй Selection с помощью метода Move куда тебе надо и потмо вставляй текст и делов то.

Описание метода - в хелпе к Word VBA.

[NicSoft]

Попробуй сделать шаблон (*.dot), и в него добавить закладки (Вставка - Закладка...)
А в прогу добавить:

Код: Выделить всё

With objWord.ActiveDocument.Bookmarks
        .Item("закладка1").Range.Text = "...."
        .Item("закладка2").Range.Text =  "...."
        .Item("закладка3").Range.Text =  "...."
End With


Можно еще таблицу засунуть, если надо напишу.

[Юстас]

Самый простой и наглядный путь - создай макрос в Ворде, затем посмотри код созданного макроса, выбери нужное тебе из этого макроса и скопируй в свою прогу. Заодно много полезного увидешь