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

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c