Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.11;
Скачать: CL | DM;

Вниз

Работа с 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;


 
blackman ©   (2002-11-02 19:54) [2]

На сайте :
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;



Страницы: 1 вся ветка

Текущий архив: 2002.11.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
4-34308
sveralex
2002-09-29 19:15
2002.11.11
RAS API


3-33886
NeyroSpace
2002-10-22 16:50
2002.11.11
Как триггером прочитать из поля Blob sub_type 1 в VarChar()


1-34101
Sergy
2002-10-31 15:22
2002.11.11
Динамический массив. Найти индекс по значению


4-34295
Xemax
2002-09-29 20:20
2002.11.11
Как запустить процесс с провами system ?


1-33960
Tornado
2002-10-31 16:11
2002.11.11
DOS-команда