Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » экспорт данных в MS Word

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

agMuH



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите, не могу уже...
 
задача: вставить в шаблон с меткой(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('вставляемый_текст');

Всего записей: 525 | Зарегистр. 17-12-2001 | Отправлено: 14:41 03-07-2002 | Исправлено: agMuH, 16:24 03-07-2002
eMASTER



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
agMuH
Спасибо пригодилось... =)

Всего записей: 94 | Зарегистр. 07-01-2006 | Отправлено: 11:42 30-01-2006
demi13

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А если так:
if Word1.ActiveDocument.Bookmarks.Exists('BOOKMARK') then
        Word1.ActiveDocument.FormFields.Item('BOOKMARK').Result := "Бла-бла-бла";

Всего записей: 1 | Зарегистр. 28-01-2006 | Отправлено: 18:45 25-02-2006
SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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);
,,,,
т.е. не редактирую, а добавляю.

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 18:15 26-02-2006
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » экспорт данных в MS Word


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru