добавляю таблицу
форматирую таблицу
сохраняю закрываю.
Все замечательно! Но при повторном вышеописанном процессе возникает ошибка "ран-тайм 462"
The remote server machine does not exist or is unavailable
и самое смешное: дебюг отсылает на участок кода которая изменяет высоту строк в таблице. Как только убмраю эту строчку (в коде) все работает замечательно, но таблица становится уродской..
Set WordApp = New Word.Application
Set Doc = WordApp.Documents.Open(App.Path & "\pattern\bill.doc")
WordApp.Application.Selection.Find.Text = "%TableBill%"
WordApp.Application.Selection.Find.Execute
Set TableBill = Doc.Tables.Add(Doc.Application.Selection.Range, frmBill.Liner + 5, 6) ' ñòðîêè: "+1" ïîòîìó ÷òî Liner íà÷èíàåòñÿ ñ 0, "+1" åùå ó÷èòûâàåì "Øàïêó" "+3" íèæíèå òðè ñòðîêè (èòîãî...)
TableBill.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
For i = 1 To frmBill.Liner + 2
For j = 1 To 6
TableBill.Cell(i, j).VerticalAlignment = wdCellAlignVerticalCenter
Next
Next
TableBill.Cell(frmBill.Liner + 3, 1).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Cell(frmBill.Liner + 3, 5).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Cell(frmBill.Liner + 4, 1).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Cell(frmBill.Liner + 4, 5).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Cell(frmBill.Liner + 5, 1).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Cell(frmBill.Liner + 5, 5).VerticalAlignment = wdCellAlignVerticalCenter
TableBill.Rows.Height = CentimetersToPoints(0.6) 'вот эти две
TableBill.Rows(1).Height = CentimetersToPoints(1.2) 'дурные строчки
TableBill.Columns(1).Width = CentimetersToPoints(1)
TableBill.Columns(2).Width = CentimetersToPoints(7)
TableBill.Columns(3).Width = CentimetersToPoints(2)
TableBill.Columns(4).Width = CentimetersToPoints(2)
TableBill.Columns(5).Width = CentimetersToPoints(2.5)
TableBill.Columns(6).Width = CentimetersToPoints(3.2)
...............
Doc.SaveAs App.Path & "\docs\" & Num & "-pattern(" & Pattern & ")"
Set .TableBill = Nothing
Doc.Close
Set Doc = Nothing
WordApp.quit
Set WordApp = Nothing
При первом заходе получается, а вот на втором - ошибка.
Господа, я верю в Вас!
