VB и MS Word таблицы

[kuguar]

Господа, если кто в курсе - просветите старика:
Задача - из VB закинуть в Word табличку примерно в 2500 строк
время выполнения 28 мину (Barton 2500, 512Mb)
Вопрос - как ускорить процесс, пробовал через буфер обмена - недостаточно эротично получается (параметры шрифта для ячеек уплывают + периодически меняется кодировка- понимая, что это бред но так и есть беру из MS FlexGrid, setclipboard, в Worde paste кодировка нафиг (Office 2003)),

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

[GSerg]

Узрим же код текущей версии

[kuguar]

Private Sub ExpWord_Click()
Dim buf As String, Blank As String, i As Integer
Blank = "c:\Прайс_Бланк.doc"
Set objWord = New Word.Application
objWord.Visible = True

Set objDoc = objWord.Documents.Add(Blank)
objDoc.Activate
buf = Form1.Caption
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.InsertAfter buf
objDoc.ActiveWindow.Selection.InsertParagraphAfter
objDoc.ActiveWindow.Selection.EndOf

objDoc.ActiveWindow.Selection.MoveDown wdLine, 3
objDoc.ActiveWindow.Selection.MoveLeft wdCharacter, 3

objWord.Visible = False
For i = 1 To MSFlexGrid.Rows - 1
With objDoc.ActiveWindow.Selection
.TypeText MSFlexGrid.TextMatrix(i, 1)
.MoveRight wdCharacter, 1
.TypeText MSFlexGrid.TextMatrix(i, 2)
.MoveRight wdCharacter, 1
.TypeText Trim(MSFlexGrid.TextMatrix(i, 3))
.MoveRight wdCharacter, 1
.TypeText MSFlexGrid.TextMatrix(i, 4)
.MoveRight wdCharacter, 1
.TypeText MSFlexGrid.TextMatrix(i, 5)
.MoveRight wdCharacter, 1
.TypeText Trim(MSFlexGrid.TextMatrix(i, 6))
.InsertRowsBelow (1)
End With
Next i
objWord.Visible = True
End Sub

Выглядит таким образом. (В Excel та же задача решается в течении 40 секунд)

[GSerg]

Ы.
Документ хочу

[Viper]

Эт тож самое, что и у меня. Wordовский документ из VB создается ОЧЕНЬ медленно, лучше писать RTF файл, а потом открывать его в Wordе

[kuguar]

С удовольствием бы, но в RTF теряются таблицы, а у меня бланк - отформатированная таблица, с колонтитулами и закрепленным заголовком таблицы

[Andrey Fedorov]

С удовольствием бы, но в RTF теряются таблицы, а у меня бланк - отформатированная таблица, с колонтитулами и закрепленным заголовком таблицы

Как вариант - в Excel (если результат нужно редактировать).

Причем непоячеечно, а экспортировать Recordset (это делается достаточно быстро), потом просто отформатировать полученное...

Если же полученное не нужно редактировать, то можно просто сбрасывать в PDF-файл - это самый простой вариант...

[Antonariy]

Закинь таблицу в ексель, а из него копи-пейстом в ворд. Или открой файл вордом.

[Viper]

С удовольствием бы, но в RTF теряются таблицы, а у меня бланк - отформатированная таблица, с колонтитулами и закрепленным заголовком таблицы

при желании, можно и в RTF документ таблицы ставить. Смотри формат RTFфайла на MSDN

[kuguar]

хорошо сказал:" Смотри формат RTFфайла на MSDN".
Для меня MSDN как Эльдорадо - много слышал никогда не видел.
Сколько не просил продавцов привезти - кроме обещаний ничего.

[GSerg]

www.msdn.microsoft.com

[kuguar]

Что-ж, еще раз спасибо за толковое целеуказание