Форматирование таблицы Word средствами Delphi

@Ilnur888 · Регистрация: 18.01.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток всем!!! Выгружаю я значит таблицу из БД в Word, создаю таблицу

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
           try
              Word := CreateOleObject('Word.Application');
              Word.Documents.Add;
              if QueryCreate then
              with ExpQuery do
                begin
                  Word.ActiveDocument.Tables.Add(Word.ActiveDocument.Range(0, 0), recordcount, 3);
                  Word.Selection.Tables.Item(0).Visible:= True;
                  //Word.Selection.Tables.Item(0).Columns.Item(1).SetWidth(ColumnWidth:=ColWidth,Ru lerStyle:=wdAdjustNone);
                end;
 
              Word.Visible := True;
           finally
             // выход без сохранения
              //Word.ActiveDocument.Close(Saves:=0);
             Word:= Unassigned;
           end;

но таблица в ворде не видимая (... Как сделать её видимой???

@kwinto · 04.02.2012, 11:51

Delphi
1
Word.ActiveDocument.Tables.Add(Word.ActiveDocument.Range(0, 0), recordcount, 3, wdWord9TableBehavior);

Ну и прописать в uses вордовский юнит.

@Ilnur888 · 04.02.2012, 14:49 **[ТС]**

спасибо, всё понял...

@RustDelphi · 23.04.2012, 16:23

У меня тотже вопрос, как сделать таблицу видимой (сетку). Код создания и записи таблицы:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Procedure TForm5.sBitBtn5Click(Sender: TObject);
var tablica1:integer;
    a:string;
    x,i,j:integer;
Begin
x:=StrToInt(sLabel3.Caption);
//Открытие и создание вордовского файла
If CreateWord then
    begin VisibleWord(true);
If AddDoc then begin
//создание таблицы
If CreateTable(x+2,9,tablica1) then begin
 For i:=3 to x+2 do
 for j:=1 to 9 do
   begin
   SetTextToTable(tablica1,i,j,stringGrid1.Cells[j-1,i-3]);
   end;
end;
   SaveDocAs('aaa');
   CloseDoc;
  end;
  CloseWord;
 end;
end;

Вот функции для работы с вордом:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
uses ComObj;
 var W:variant;
 
Function CreateWord:boolean;
begin
CreateWord:=true;
try
W:=CreateOleObject('Word.Application');
except
CreateWord:=false;
end;
End;
 
 
Function VisibleWord(visible:boolean):boolean;
begin
VisibleWord:=true;
try
W.visible:= visible;
except
VisibleWord:=false;
end;
End;
 
 
Function AddDoc:boolean;
 Var Doc_:variant;
begin
AddDoc:=true;
try
Doc_:=W.Documents;
Doc_.Add;
except
AddDoc:=false;
end;
End;
Function SaveDocAs(file_:string):boolean;
begin
SaveDocAs:=true;
try
W.ActiveDocument.SaveAs(file_);
except
SaveDocAs:=false;
end;
End;
 
 
Function CloseDoc:boolean;
begin
CloseDoc:=true;
try
W.ActiveDocument.Close;
except
CloseDoc:=false;
end;
End;
 
 
Function CloseWord:boolean;
begin
CloseWord:=true;
try
W.Quit;
except
CloseWord:=false;
end;
End;
 
Function CreateTable(NumRows, NumColumns:integer;var index:integer):boolean;
 var sel_:variant;
begin
CreateTable:=true;
try
sel_:=W.selection;
W.ActiveDocument.Tables.Add(Range:=sel_.Range, NumRows:=NumRows, NumColumns:=NumColumns);
index:=W.ActiveDocument.Tables.Count;
except
CreateTable:=false;
end;
End;

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Ilnur888 2 / 2 / 0 Регистрация: 18.01.2012 Сообщений: 163
	04.02.2012, 14:49 [ТС]
	спасибо, всё понял... 0