Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Таблицы в Word XP

Автор: Wowa-K 6.2.2003, 20:53

У кого нибудь была проблема когда созданная таблица в Ворде XP была прозрачной. Может кто подскажет как с этим бороться.
WordDocument1.Tables.Add(WordDocument1.Application.Selection.Range, 3,20,EmptyParam,EmptyParam);

Автор: Asp root 7.2.2003, 00:50

А форматом играть не пробывал. Там принудительно линии включить ...

Автор: ser 2.3.2003, 09:07

У меня работает так:
Работа с MS Word
procedure PriceList;
var
Count: LongInt;
S: String;
V: Variant;
begin
V := CreateOleObject('Word.Basic');
V.FileNew('Normal');
V.Insert(#13#10);
Count := 1;
{ Title }
V.Font('Courier New Cyr');
V.FontSize(8);
S := 'Фамилия' + Chr(9) +
'№ тел1' + Chr(9) +
'№ тел2' + Chr(9) +
'№ тел13' + Chr(9) +
'Прим' + Chr(9);
V.Insert(S);
V.Insert(#13#10);
Count := Count + length(S) + 1;
{ Body }

with Form1 do
begin
QPriceList.Close; { QPriceList - компонент TQuery}
QPriceList.Open;
QPriceList.First;
while not QPriceList.EOF do
begin
V.Font('Courier New Cyr');
V.FontSize(8);
S := QPriceListFamil.AsString + Chr(9) +
{ Chr(9) – символ табуляции –нужен для преобразования в таблицу}
QPricelistPhone.AsString + Chr(9) +
QPricelistPhone2.AsString + Chr(9) +
QPricelistPhone3.AsString + Chr(9)+
QPricelistPrim.AsString + Chr(9);
V.Insert(S);
V.Insert(#13#10);
Count := Count + length(S) + 1;
{ + 1 для символа перевода строки}
QPriceList.Next;
end;
end;
dec(Count); { так надо }
V.SetSelRange(1, Count);
V.TextToTable;
V.BorderInside;
V.BorderOutside;
V.StartOfDocument;
V.Insert(#13#10);
V.Insert(#13#10);
V.Insert(#13#10);
V.StartOfDocument;
V.Font('Courier New Cyr');
V.FontSize(20);
V.FormatFont(,,,,,,,,,,,,,,,,1,1);
{ формируем шапку}
with Form1 do
begin
V.Insert('Телефонный справочник'); V.Insert(#13#10);
V.Insert(#13#10);
end;
V.Insert(' '); V.Insert(#13#10);
V.FontSize(20);
V.FileSaveAs('C:\PL.DOC');
ShowMessage('Солздан документ C:\PL.DOC');
end;