Delphi World - Вставить текст на месте закладки в MS Word
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Вставить текст на месте закладки в MS Word

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   ComObj;

 procedure TForm1.Button1Click(Sender: TObject);
 const
   // Word Document to open 
  // Dein Word Dokument 
  YourWordDocument = 'c:\test\worddoc.doc';
 var
   BookmarkName, Doc, R: OleVariant;
 begin
   // Start a Word instance 
  // Word Instanz Starten 
  try
     WordApp := CreateOleObject('Word.Application');
   except
     ShowMessage('Could not start MS Word!');
   end;
   // Open your Word document 
  // Dok. offnen 
  WordApp.Documents.Open(YourWordDocument);
   Doc := WordApp.ActiveDocument;

   // name of your bookmark 
  // Name der Textmarke 
  BookmarkName := 'MyBookMark';

   // Check if bookmark exists 
  // Uberprufen, ob Textmarke vorhanden 
  if Doc.Bookmarks.Exists(BookmarkName) then
   begin
     R := Doc.Bookmarks.Item(BookmarkName).Range;
     // Add text at our bookmark 
    // Text bei Textmarke einfugen 
    R.InsertAfter('Text bei Textmarke');
     // You make a text formatting like changing its color 
    // Man kann nun auch den Text formatieren. z.B die Farbe wechseln. 
    R.Font.Color := clRed;
   end;

   // Save your document and quit Word 
  // Dokument Speichern und Word beenden. 
  if not VarIsEmpty(WordApp) then
   begin
     WordApp.DisplayAlerts := 0;
     WordApp.Documents.Item(1).Save;
     WordApp.Quit;
     BookmarkName := Unassigned;
     R := Unassigned;
     WordApp := Unassigned;
   end;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования