Как узнать параграф, в котором находится таблица?

[hulk1776]

У меня курсор стоит в теле таблицы. Я хочу добраться до параметров параграфа, в котором она находится.

Set myPara = MyInd.Selection.Item(1).Parent.Characters.Item(1).Paragraphs.Item(1) 'дает 1-й параграф ячейки

Set myParaP = MyInd.Selection.Item(1).Parent.Paragraphs.Item(1) 'дает 1-й параграф всей "Истории", т.е. самое начало документа.

вариатны:
Set myParaW = MyInd.Selection.Item(1) 'слово под курсором
Set myParaP = MyInd.Selection.Item(1).Parent 'параграф под курсором
Set myParaT = MyInd.Selection.Item(1).Parent.Parent 'таблица под курсором

Это все, что пока удалось выяснить.

 

[sakhar]

Ответ: Как узнать параграф, в котором находится таблица?

Продолжайте исследования, но в курсе их держать весь форум совершенно необязательно!

 

[Specialist]

Ответ: Как узнать параграф, в котором находится таблица?

Продолжайте исследования, но в курсе их держать весь форум совершенно необязательно!

Дмитрий, злой вы, и недобрый.

Я, кстати, тоже сходу не понял как получить родительский параграф.


Вот правильное решение:

myParagraph = app.selection[0].parent.parent.storyOffset.paragraphs[0];

 

[hulk1776]

Ответ: Как узнать параграф, в котором находится таблица?

Ой, спасибо. А то я уже седой стал на этом месте своего скрипта.

Не хватило здоровья просмотреть все свойства и методы объекта Table. Но теперь буду знать, что лениться не надо и смотреть надо все (!) (речь идет об Object Browser'e).

Отлично. Большое спасибо, еще раз.

P.S. Скриптинг идет тяжко...

P.S.S. А на мягкие уколы со стороны я не обижаюсь, потому что для кого-то скрипты представляют коммерческий интерес. Поэтому и не одобряется излишняя публичность. Но я привел строчки только в кач. подтверждения потраченных усилий.

 

[Specialist]

Ответ: Как узнать параграф, в котором находится таблица?

P.S.S. А на мягкие уколы со стороны я не обижаюсь, потому что для кого-то скрипты представляют коммерческий интерес. Поэтому и не одобряется излишняя публичность. Но я привел строчки только в кач. подтверждения потраченных усилий.

Вы неправы.
Может тогда и языки программирования не учить потому что кто-то софтом деньги зарабатывает?

Лично я никогда не отказываюсь помочь советом. Не пишу только готовый код, который взял и скопипастил.

К тому же, есть немало бесплатных скриптов, в том числе и написаных мной. OpenSource рулит.