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

Вниз

Создание и заполнениев таблиц в Ворде   Найти похожие ветки 

 
irena_ok   (2006-05-24 12:39) [0]

Здравствуйте!
мне поставлена задача: в одном текстовом документе средствами 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"


 
umbra ©   (2006-05-24 13:17) [1]

честно говря, даже не подозревал о существовании объекта Word.Basic. Код ниже создает объект ворд, добавляет новый документ, создает в его начале таблицу

MsWord:= CreateOleObject("Word.Application");
MSWord.Documents.Add;
MsWord.Visible := true;
MSWord.ActiveDocument.Tables.Add(Range:=Selection.Range,  NumRows:=1, NumColumns:= 9);


 
irena_ok   (2006-05-24 13:46) [2]

увы, я совсем "темная"  :-(
добавила в начала вашего кода
var  MsWord:Variant;
и запустила компилятор...
Delphi ругается на Selection: пишет: undeclared identifier.....


 
umbra ©   (2006-05-24 15:25) [3]

пардон, ошибочка вышла

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;


 
irena_ok   (2006-05-24 17:48) [4]

МногоУважаемому umbra огромное спасибо!
а также мне очень помогли статьи  http://www.kornjakov.ru/stat.htm
:-)
Все работает, форум просто змечательный!


 
andrey123   (2006-08-17 15:20) [5]

Попробуйте написать так:
MSWord.Selection.Tables.Add(MSWord.Selection.Range, 1, 2, wdWord9TableBehavior, wdAutoFitFixed);



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
2-1237962304
Zalum
2009-03-25 09:25
2009.05.03
TreeView


6-1202735762
gear
2008-02-11 16:16
2009.05.03
Как выключить HTTP/1.1 и включить HTTP/1.0 в WININET?


15-1234853071
24ruswebmaster
2009-02-17 09:44
2009.05.03
This is a multi-part message in MIME format


4-1209045469
AlexK
2008-04-24 17:57
2009.05.03
MAPI_E_INVALID_ENTRYID


2-1237466390
Matveih1
2009-03-19 15:39
2009.05.03
Отправка писем