[Oleg]

Вот код:

Код:

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

var   c, n: integer;   WordApp, NewDoc, WordTable: olevariant;   iCols, iRows, iGridCols, jGridRows: integer; begin     c := 10;     n := 2;     try       // Create a Word Instance       WordApp := CreateOleObject('Word.Application');     except       ShowMessage('Error!');       Exit;     end;     WordApp.Visible := True;     NewDoc := WordApp.Documents.Add;     iRows := n;     iCols := c;     // Add a Table     WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iRows, iCols);     WordTable.Range.Font.Size:=12;     s:=10000;     for jGridRows := 1 to iRows do     for iGridCols := 1 to iCols do     begin     s:=s+1;     str:=IntToStr(s)[1]+'.'+Copy(IntToStr(s),2,Length(IntToStr(s)));     WordTable.Cell(jGridRows, iGridCols).Range.Text := str;       end;     WordApp   := Unassigned;     NewDoc    := Unassigned;     WordTable := Unassigned; end;

Помогите пожалуйста как сделать таблицу, чтобы её значения получались ровно в квадратах, желательно 3x3 см
И находились точно в центре каждой строки да и ещё жирным.
Очень нужно и срочно !!!

[Oleg]

Люди, помогите очень нужно прямо сейчас !

[Rokuell]

Я скажу, как это сделать в самом Word, а ты смотри по документации к нему (у меня нету, но обычно - файлы VBA*.hlp) как это кодить...
Нужно для всей таблицы установить следующие свойства ( в Word - Свойства таблицы...)
Вкладка строка:
Установить флажок "Высота", выбрать нужную величину и режим - "Точно"
Вкладка столбец:
Установить флажок "Ширина", выбрать нужную величину и еденицы - "Сантиметры"
Вкладка ячейка:
Установить флажок "Ширина", выбрать нужную величину и еденицы - "Сантиметры", вертикальное выравнивание поставить "по центру"

Потом уже в настройках шрифта - жирный и выравнивание текста "по центру".

[Oleg]

Потом уже в настройках шрифта - жирный и выравнивание текста "по центру".
-А как сделать чтобы по центру в квадрате(а не по центру в квадрате), т.е. в центре и по ширине и по длине ?

[Oleg]

Всё сделал, но когда распечатывает, то не видно таблицы, срочно помогите !!!!!!!!

[Oleg]

Всё работает(частично руками)

[Rokuell]

Вот полностью - пришлось лезть в VBA Word и там в Object Browse искать нужные методы и свойства, а значения констант искать в поиске кода Google.

[Oleg]

Конечно спасибо, что откликнулись, но пример немного не такой, какой мне нужен. Да я уже до этого написал, что всё получилось. Но руками:
приходится выделять таблицу и в настройках таблицы -> границы и заливки в разделе "Всё" выбрирать руками. Можно как-нибудь програмно ? Для чего я это делаю => т.к. при распечатывании таблицы с тем, что внутри, символы видно, а таблицы нет. Можно как-нибудь это исправлять программно ?
Ещё раз спасибо, что помогли и потратили свое время.
Кстати по центру (сверху - вниз, слева-направо) я выравниваю, добавляя код #13+text+#13, т.е. Enter и всё Хорошо !!! Вот только делаю, чтобы было видно таблицу... Можно как-нибудь это исправлять программно ?

[Rokuell]

Чтобы таблица была видна,
добавь в конце:

Код:

1 2 3 4 5 6 7 8 9 10

<b>WordTable.Borders.Item(wdBorderTop).Visible:=True; WordTable.Borders.Item(wdBorderLeft).Visible:=True; WordTable.Borders.Item(wdBorderBottom).Visible:=True; WordTable.Borders.Item(wdBorderRight).Visible:=True; WordTable.Borders.Item(wdBorderHorizontal).Visible:=True; WordTable.Borders.Item(wdBorderVertical).Visible:=True;</b>   WordApp   := Unassigned; NewDoc    := Unassigned; WordTable := Unassigned;

Значения констант:

Код:

1 2 3 4 5 6 7 8 9 10

const   { WdBorderType }   wdBorderTop = $FFFFFFFF;   wdBorderLeft = $FFFFFFFE;   wdBorderBottom = $FFFFFFFD;   wdBorderRight = $FFFFFFFC;   wdBorderHorizontal = $FFFFFFFB;   wdBorderVertical = $FFFFFFFA;   wdBorderDiagonalDown = $FFFFFFF9;   wdBorderDiagonalUp = $FFFFFFF8;

PS: открываешь Word, нажимаешь Alt+F11, запускаешь там Object Browse ( F2 ) и ищешь нужные свойства

PPS: Кстати, самому было интересно - раньше никогда с Word'ом не работал

[Oleg]

Спасибо за код !!!!
Всё работает !

[Rokuell]

С радостью помогу ещё, т.к вопросы у тебя интересные и не сводятся к фразе типа "я делфи не знаю - решите за меня задачу..."

[Oleg]

А как можно сменить кодировку ?
NewDoc.TextEncoding:='msoEncodingUtf8' на Utf8 ?????
не работает.....

[Oleg]

Сообщение от Rokuell

С радостью помогу ещё, т.к вопросы у тебя интересные и не сводятся к фразе типа "я делфи не знаю - решите за меня задачу..."

Рад, что не ругаетесь....
Вот по предидущему вопросу не поможете(с кодировкой).

[Rokuell]

Нашёл два варианта:
1. Кодировку можно выбрать при открытии:
Описание в VBA:

Код:

1	Function Open(FileName, [ConfirmConversions], [ReadOnly], [AddToRecentFiles], [PasswordDocument], [PasswordTemplate], [Revert], [WritePasswordDocument], [WritePasswordTemplate], [Format], [Encoding], [Visible], [OpenAndRepair], [DocumentDirection], [NoEncodingDialog], [XMLTransform]) As Document

Код:

Код:

1 2 3 4 5

const  msoEncodingUTF8 = 65001;  msoEncodingCyrillic = 1251;   NewDoc := WordApp.Documents.Open('mydoc.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, msoEncodingUTF8, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

2. А можно перегрузить документ в новой кодировке:

Код:

1	NewDoc.ReloadAs(msoEncodingUTF8);