Главная страница
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.033 c
6-34139
Akella
2002-09-12 15:49
2002.11.11
Пароль для прокси программно


6-34140
Жорик
2002-09-13 15:22
2002.11.11
Нажатие кнопки внутри TWEBbrowser


1-33940
Кен
2002-10-31 05:05
2002.11.11
Есть несколько кнопок у которых в событие OnClick прописана одна


1-33927
VZ Alexandr
2002-10-31 20:53
2002.11.11
TreeView


1-33933
FKL
2002-11-01 00:22
2002.11.11
Файлы