- Сообщения
- 62
- Реакции
- 0
Нужно конвертировать выделенный текст в таблицу и назначить затем размеры и отступы в таблице (разные для разных столбцов), стили разным столбцам.
Возможно такое?
И в частности:
- после преобразования в таблицу будет доступна таблица (как объект, например);
- можно будет получить доступ к столбцам и назначить стили?
- может есть примеры?
Часть вопросов решил:
конвертирование в таблицу
задание отступов
Последняя строчка не работает. Нужно назначить всему второму столбцу один стиль. Как?
А первому столбцу (myTable.Columns(1).Select) выравнивание влево.
Как задать для всей таблицы обводку "без обводки" (stroke = 0)
Если есть пустая строка в таблице - удалить ее:
- перебор строк/столбцов;
- как проверить пустая ли ячейка?
Возможно такое?
И в частности:
- после преобразования в таблицу будет доступна таблица (как объект, например);
- можно будет получить доступ к столбцам и назначить стили?
- может есть примеры?
Часть вопросов решил:
конвертирование в таблицу
Код:
Set myTable = myText.ConvertToTable(Chr(13), Chr(13), 2)задание отступов
Код:
myTable.Columns.Item(1).Width = 73
myTable.Columns.Item(1).TopInset = 1
myTable.Columns.Item(1).BottomInset = 3
myTable.Columns.Item(1).LeftInset = 0
myTable.Columns.Item(1).RightInset = 2
myTable.Columns.Item(2).Width = 65
myTable.Columns.Item(2).TopInset = 1
myTable.Columns.Item(2).BottomInset = 3
myTable.Columns.Item(2).LeftInset = 0
myTable.Columns.Item(2).RightInset = 0
назначение стиля
myTable.Columns(2).Select
myInDesign.Selection.ApplyStyle myDoc.ParagraphStyles.Item("Отступ 03"), False
или
myInDesign.Selection.Item(1).Paragraphs.Item(1).ApplyStyle myDoc.ParagraphStyles.Item("Отступ 03"), FalseПоследняя строчка не работает. Нужно назначить всему второму столбцу один стиль. Как?
А первому столбцу (myTable.Columns(1).Select) выравнивание влево.
Как задать для всей таблицы обводку "без обводки" (stroke = 0)
Если есть пустая строка в таблице - удалить ее:
- перебор строк/столбцов;
- как проверить пустая ли ячейка?
