Visual Basic

Вопрос

Как открыть документ Microsoft Word для добавления информации?

Ответ

Предполагается, что на форме есть кнопка cmdOpenWithWinword и в проекте есть ссылка на библиотеку Microsoft Word (можно и без нее, тогда объявление переменной немного изменится и работать будет чуть медленнее.

Private Sub cmdOpenWithWinword()
Dim wdApp As Word.Application ' для управления Word'ом
   ' проверяем есть ли уже запущенный Word
   On Error Resume Next
   Set wdApp = GetObject(, "Word.Application")
   If Err.Number <> 0 Then
  ' если произошла ошибка, значит запущенного экземпляра нет
   ' запускаем Word сами
    Set wdApp = New Word.Application
   End If
   On Error GoTo 0
   ' открываем документ
   wdApp.Documents.Open <имя_файла>
   ' на всякий пожарный делаем окно Word видимым
   ' и разворачиваем его на весь экран
   wdApp.Visible = True
   wdApp.WindowState = 1
End Sub

Kirill