Работа с Word через Delphi

← →
Salvator (2002-11-02 16:41) [0]

Как в Word "прыгать" по ячекам созанной через Delphi таблице?

← →
Calm © (2002-11-02 16:51) [1]

Если использовать файл с интерфейсами Word_TLB.pas,
то примерно так:

var
MyWord:_Application;
begin
MyWord:= // не помню как конструктор вызывается
// :( Что-то типа :=CoApplication.Create; Не, не помню...
MyWord.ActiveDocument.Tables(<номер таблицы>).Cells(<координаты ячейки>).range.select;
MyWord.Selection.TypeText("Записали то, что надо куда нужно!");
end;

На сайте :
http://blackman.hoha.ru/primer.php
(из myprog.zip, word8 и другие)
Например:
WordGotoBookmark("s"); // s - метка в документе word
WordInsertText("Текст вставки");
WordrdApplication.Run("NextCell"); // на следующую ячейку в этой строке или если последняя, то создание следующей строки и в след ячейку.
WrdApp.Run("TableDeleteRow"); - удалить строку
------- функции -----

//вывод данных в Word
procedure WordInsertText(Text: string);
begin
WrdApp.Selection.TypeText(Text);
end;
// вставить файл
procedure WordInsertFile(Text: string);
var op,q,w,e: olevariant;
begin
op:="";
q:=True;
w:=False;
e:=False;
WordApplication.Selection.InsertFile(Text,op,q,w,e);
end;

//процедура удаления закладок
procedure WordDeleteBookmark(rBookMark: string);
var
Name : OLEVariant;
begin
Name := rBookmark;
Fbrowse.worddocument1.Bookmarks.Item(Name).Delete;
end;

//процедура поиска закладок и перехода по ней
procedure WordGotoBookmark(rBookmark: string);
var
What : OLEVariant;
//What :TWordDocument;
Which : OLEVariant;
Count : OLEVariant;
Name : OLEVariant;
begin
What := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
Name := rBookmark;
Fbrowse.WrdApp.Selection.GoTo_(What, Which, Count, Name);
end;

procedure WordRunMacros(rMacros: string);
var Rmark :OLEVariant;
begin
Rmark:=rMacros;
Fbrowse.WrdApp.Run(rMacros);
end;

Работа с Word через Delphi Найти похожие ветки