Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
ВнизMS Word Найти похожие ветки
← →
rosl (2003-12-18 07:00) [0]Уважаемые МАСТЕРА!!!
Никогда не выгружал отчётв в MS Word
Пришлось начать. Нужно вставить текст в места, где стоят закладки (в шаблоне 1\1.dot)
файл открывается, но как перейти на закладку?
public
MSWord: Variant;
begin
MSWord := CreateOLEObject("Word.Application");
MSWord.Documents.Open(FileName := "1\1.dot");
MSWord.Visible := true;
← →
Shirson (2003-12-18 07:33) [1]
const
wdGoToBookmark=-1;
...
MSWord.Selection.GoTo(What:=wdGoToBookmark,Name:="<имя_закладки>");
← →
icWasya (2003-12-18 09:30) [2]
procedure TForm1.SetTextToBookMark(const BName,BValue:string);
var
Book, GoTo_Name,Range :OleVariant;
begin
GoTo_Name:=BName;
if WordDocument.Bookmarks.Exists(GoTo_Name) then begin
Book:=WordDocument.Bookmarks.Item(GoTo_Name);
Range :=Book.Range;
Range.Select;
Range.Text:=BValue;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c