Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

» экспорт данных в MS Word

Автор: agMuH
Дата сообщения: 03.07.2002 13:41
Помогите, не могу уже...

задача: вставить в шаблон с меткой(bookmark) текст, переместив курсор на метку.

делаю
MSWord:=CreateOLEObject('Word.Application');
MSWord.Visible:=true;
MSWord.Documents.open(GetCurrentDir+'\template.doc');
или MSWord.ActiveDocument.Bookmarks('teble1').Select;
или MSWord.EditGoto('teble1').
MSWord.Insert('бла-бла-бла');

не работает! ругается, что нет таких методов Bookmarks или EditGoto

С ума сейчас сойду! Кто-нибудь знает, как прыгнуть на метку?
Помогите!!!

добавлено

Ответ я нашел, но пропотел глобально...
Может, кому пригодится:

Word1:=CreateOLEObject('Word.Application');
Word1.Visible:=true;
Word1.Documents.Add(GetCurrentDir+'\имя_файла-шаблона');
Word1.WordBasic.EditBookmark('имя_метки',0,0,0,1);
Word1.WordBasic.Insert('вставляемый_текст');
Автор: eMASTER
Дата сообщения: 30.01.2006 10:42
agMuH
Спасибо пригодилось... =)
Автор: demi13
Дата сообщения: 25.02.2006 17:45
А если так:
if Word1.ActiveDocument.Bookmarks.Exists('BOOKMARK') then
Word1.ActiveDocument.FormFields.Item('BOOKMARK').Result := "Бла-бла-бла";
Автор: SergeBS
Дата сообщения: 26.02.2006 17:15
agMuH
Я делаю по-другому:
var
filnam : OleVariant;
s0, s1, s2 : string;
WordApp, What, Which, Count, Name : OleVariant;

begin
...
WordApp:=CreateOleObject('Word.Application');
WordApp.Visible:=True;
FilNam := Path + '\справка.doc';
try
WordApp.Documents.Open(filnam);
except
MessageBox(Handle,'Где программа, должен быть документ "справка.doc"!','Ошибка',48);
WordApp.Quit;
exit;
end;
WordApp.Options.CheckSpellingAsYouType:=False;
WordApp.Options.CheckGrammarAsYouType:=False;
What := -1; // wdGoToBookmark,
Which := UnAssigned;
Count := UnAssigned;
//дата; date0 это bookmark
Name := 'date0';
WordApp.Selection.GoTo(What, Which, EmptyParam, Name);
s2 := FormatDateTime('dd.mm.yyyy г.',now);
WordApp.Selection.TypeText(s2);

Name := 'fio1'; //bookmark
WordApp.Selection.GoTo(What, Which, EmptyParam, Name);
,,,,
т.е. не редактирую, а добавляю.

Страницы: 1

Предыдущая тема: LabView


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.