Таблица в Worde

[Никитка Б]

Из программы(vb 6.0) создается Word'овский документ. В нем заголовок, потом идет таблица. Проблема в следующем: после таблици должен быть еще текст. но я его не могу добавить т.к. курсор остается в первой ячейке таблицы. Тоесть текст который я добавляю добавляется в первую ячейку таблицы. Как переместить курсор в конец документа??

[GSerg]

Doc.Range.InsertAfter "Текст в конце документа."

[Никитка Б]

да! это помогло добавить текст в конец документа

Doc.Range.InsertAfter "Текст в конце документа."
но всё таки хотелось бы извлеч курсор из таблицы(в конец документа)

вот код:

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


DocWord.Range.InsertAfter "Конец документа."
    DocWord.Application.Selection.InsertAfter vbCrLf + vbCrLf + "еще текст"
    DocWord.Application.Selection.Font.Bold = False
    DocWord.Application.Selection.Font.Color = wdColorBlack
    DocWord.Application.Selection.Font.Size = 16
    DocWord.Application.Selection.Font.Name = "Tahoma"
    DocWord.Application.Selection.EndOf


DocWord.Range.InsertAfter "Конец документа." - пишет в конце


DocWord.Application.Selection.InsertAfter vbCrLf + vbCrLf + "еще текст"
DocWord.Application.Selection.Font.Bold = False
DocWord.Application.Selection.Font.Color = wdColorBlack
DocWord.Application.Selection.Font.Size = 16
DocWord.Application.Selection.Font.Name = "Tahoma"
DocWord.Application.Selection.EndOf

продолжает писать в ячейке.

в принципе то можно и обойтись, но все таки хотелось бы знать

[GSerg]

Ты понимаешь разницу между range и selection?
Мне кажется нет.

Для того, чтобы что-то куда-то писать, не нужно иметь там курсор.
Но если хочется несмотря ни на что, то Doc.Range(Doc.Range.End - 1, Doc.Range.End - 1).Select

[Никитка Б]

я всего лишь студент и только учусь.
Электронных учебников по VB очень мало. Да и материала по связи с офисом тоже не много.

[GSerg]

Если открыть word и нажать последовательно Alt+F11, F2, F1, то материал чудесным образом появится...

[Никитка Б]

http://softsearch.ru/programs/175-404-rabota-s-ms-word-iz-programm-na-vb-download.shtml
вот тут демонстрационная программа может быть кому поможет

[Никитка Б]

я в английском слабоват-(

[GSerg]

А вот без этого никуда, так что вперёд...