|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi 10.2 В MSWord увеличить толщину границы таблицы
Доброе время суток форумчане,
У меня есть функция, с помощью котрой я вставляю в MSWord таблиц: Код:
function CreateTable(ANumRows, ANumColumns: integer; var ATableID: integer): boolean; export; var sel_: variant; begin CreateTable := true; try sel_ := Words_Templs.selection; Words_Templs.ActiveDocument.Tables.Add(Range := sel_.Range, NumRows := ANumRows, NumColumns := ANumColumns); ATableID := Words_Templs.ActiveDocument.Tables.Count; except CreateTable := false; end; end; Макрос (в Word) для зарисовки границ (черные линии), выдал: Код:
Sub Макрос1() ' ' Макрос1 Макрос ' ' With Selection.Borders(wdBorderTop) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With Selection.Borders(wdBorderLeft) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With Selection.Borders(wdBorderBottom) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With With Selection.Borders(wdBorderRight) .LineStyle = Options.DefaultBorderLineStyle .LineWidth = Options.DefaultBorderLineWidth .Color = Options.DefaultBorderColor End With End Sub Я попробовал в Delphi 10.2, создать такой же код: Код:
sel_.Cells.Borders.Item(1).LineStyle := 1; sel_.Cells.Borders.Item(1).LineWidth := 2; sel_.Cells.Borders.Item(1).Color := 0; Каким образом это можно сделать? Спасибо за ответы Последний раз редактировалось Konstantin-78, 04.06.2018 в 14:19. |
#2
|
||||
|
||||
Вот прям решение не подскажу, но один из способов получить желаемое:
1. Открываете Ворд. 2. Записываете макрос того действия что Вам нужно выполнить. 3. Открываете макрос и воспроизводите (в Delphi) методы макроса, корректирую синтаксис VBA в Pascal. Мне помогало. Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |