Заполнение таблицы в Word. Ошибка повторного заполнения

[ArtNeoX]

По нажатию кнопки происходит запуск Word, в нем рисуется таблица, устанавливается разная ширина столбцов, в один из них вставляется текст.
Все отлично. Выходим из Word [x]
Из созданной программы в VB6 не выходим, а нажимаем кнопку для запуска word повторно и получаем результат - все колонки одинаковой ширины.
Не пойму почему при повторном запуске программы в word не устанавливается ширина столбцов.

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

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "cmdWord"
On Error Resume Next
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = False
'Set DocWord = WordApp.Documents.Open("C:\123.doc")
DocWord.Activate
Set TableWord = DocWord.Tables.Add(DocWord.Range(), 6, 7)
TableWord.Columns(1).Width = CentimetersToPoints(1.26)
TableWord.Columns(2).Width = CentimetersToPoints(3.15)
TableWord.Columns(3).Width = CentimetersToPoints(0.75)
TableWord.Columns(4).Width = CentimetersToPoints(3.21)
TableWord.Columns(5).Width = CentimetersToPoints(0.42)
TableWord.Columns(6).Width = CentimetersToPoints(2.95)
TableWord.Columns(7).Width = CentimetersToPoints(5.93)
TableWord.Cell(1, 5).Range.Text = "Текст в таблице" & vbCrLf
WordApp.Visible = True
End With
End Select
End Sub

[Viper] :: Полmзуемся тэгом CODE, это гораздо удобнее!

[FireFenix]

Set DocWord = WordApp.Documents.Open("C:\123.doc")

открыть, то открыл. А закрывать то кто будет?

[ArtNeoX]

как это правильно сделать?
программа создает экземпляр ворд, в нем открывает документ.
если я закрываю документ оставляя ворд работать без документа, то при повторном нажатии на кнопку в программе все формируется нормально.
если я закрываю ворд вместе с документом, а затем жму кнопку в программе, то файл формируется без установки ширины столбцов в таблице, как будто он просто пропускает этот кусок кода.
можно ли сделать что бы закрыв ворд с документом [х] и нажав в программе открыть документ у меня формировалось как при первом запуске.
а то эта проблема решается только перезапуском программы.

[FireFenix]

а то эта проблема решается только перезапуском программы.

Потому, что ты не закрываешь Документ/Файл. При повторном открытии - уже открытый файл, будет доступен только для чтения

как это правильно сделать?

Вначале перестать использовать On Error Resume Next и внимательно читать возникающее ошибки

Потом - правильно построить логику:

* Работа с файлом только внутри функции

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

Открыть Файл.
Занести изменения.
Сохранить Файл.
Закрыть Файл.

* Работа с файлом в течении работы программы

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

Запустить программу
Открыть Файл и сохранить его объект в глобальной переменной

-- Работа с файлом из глобальной переменной в функции 1
-- Работа с файлом из глобальной переменной в функции 2
...
-- Работа с файлом из глобальной переменной в функции N

Перед закрытием программы - сохраняем изменения.
Закрываем Файл


[ArtNeoX]

можно конкретный пример.
у меня программа открывает чистый лист с логотипом в колонтитулах, рисуется таблица, устанавливается разная ширина столбцов, вставляется текст.
При первом запуске все работает идеально.
Закрываю ворд вместе с открытым шаблоном. Все нету открытого файла и запущенного ворда.
Нажимаю в своей программе кнопку для создания таблицы в ворде.
Запускается, все рисует, заполняет, НО НЕ УСТАНАВЛИВАЕТ ШИРИНУ СТОЛБЦОВ.
Почему то пропускает этот кусок кода.
Может в памяти остается что то. Непойму. Объясните новичку на конкретном примере.
Очень надо.

[Alec]

Пропускает, потому что ты сам с помощью On Error Resume Next это и сделал. Вот и пропускает ошибки.
Ошибка, честно - не знаю почему, возникает в строках

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

TableWord.Columns(1).Width = CentimetersToPoints(1.26)

и т.д., а именно на методе CentimetersToPoints
Попробуй поменять на

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

TableWord.Columns(1).Width = WordApp.CentimetersToPoints(1.26)

ну или задавай ширину непосредственно в пунктах.

[ArtNeoX]

Все заработало ! Огромное спасибо
А всего то надо было дописать WordApp.