-
Здравствуйте! мне поставлена задача: в одном текстовом документе средствами Delphi создать несколько таблиц и заполнить их. Может быть подскажете, где найти Help по синтаксису команд Basic через Дельфи или может быть пришлете пример...
я пыталась это сделать примерно следующим образом, но даже таблицу не смогла создать:
MsWord:= CreateOleObject('Word.Basic'); MSWord.FileNew; MsWord.AppShow; MSWord.ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:= 9, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= wdAutoFitFixed);
Delphi ругается на синтаксис : не воспринимает Слово Selection: MSWord.ActiveDocument.Tables.Add(Range:=Selection.Range,
ошибка: "Undeclared identifier Selection"
-
честно говря, даже не подозревал о существовании объекта Word.Basic . Код ниже создает объект ворд, добавляет новый документ, создает в его начале таблицу MsWord:= CreateOleObject('Word.Application');
MSWord.Documents.Add;
MsWord.Visible := true;
MSWord.ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:= 9);
-
увы, я совсем "темная" :-( добавила в начала вашего кода var MsWord:Variant; и запустила компилятор... Delphi ругается на Selection: пишет: undeclared identifier.....
-
пардон, ошибочка вышла
var MsWord, mydoc:Variant; {...................}
MsWord:= CreateOleObject('Word.Application'); MSWord.Documents.Add; mydoc := MSWord.ActiveDocument; MsWord.Visible := true; mydoc.Tables.Add(Range:=mydoc.Selection.Range, NumRows:=1, NumColumns:= 9); {...........................} mydoc := unassigned; msword := unassigned;
-
-
Попробуйте написать так: MSWord.Selection.Tables.Add(MSWord.Selection.Range, 1, 2, wdWord9TableBehavior, wdAutoFitFixed);
|