Еще раз про Parent и таблицу

[Denissim]

Нужно скриптом сделать вот что:
пользователь выделяет строку в таблице в Инде и запускает скрипт.
Скрипт объединяет ячейки. очищает содержимое т.е. Paragraph.TextContents=""
мне надобно в эту строку таблицы импортировать епс. Метод place доступен только для объекта paragraph. А я к нему с помощью parent никак не могу обратиться. Ни у row? ни у cell нет метода place
Что делать, может у кого-то было что-нить подобное?

 

[vbatushev]

Ответ: Еще раз про Parent и таблицу

Зато у Cell есть Paragraphs
myCell.Paragraphs.Item(1).Place myFile
Это связано с тем, что ячейка, как пишут в хелпе, похожа на текстовый фрейм, а не на вообще любой фрейм. То есть картинку в таблицу можно вставить только как инлайн графику.

 

[Denissim]

Ответ: Еще раз про Parent и таблицу

dim para as Paragraph
set para=myCell.Paragraphs.add
para.place myFile

на второй строке постоянная блин ошибка "несоответствие типа"!
я же после склейки ячеек еще и удаляю текст оттуда. Т.е. Paragraph.count для cell = 0
Вот и хочу создать таки параграф в этой злосчастной ячейке и плейсонуть туды графику.
А он матом...

 

[Oleg Butrin]

Ответ: Еще раз про Parent и таблицу

dim para as Paragraph
set para=myCell.Paragraphs.add
para.place myFile

на второй строке постоянная блин ошибка "несоответствие типа"!
я же после склейки ячеек еще и удаляю текст оттуда. Т.е. Paragraph.count для cell = 0
Вот и хочу создать таки параграф в этой злосчастной ячейке и плейсонуть туды графику.
А он матом...

Тебя бы так и ты бы так... Ну нету у Paragraphs метода add, а ты его пытаешься использовать. Есть такое свойство у Cell, Contents называется. Вот через изменение его можно и параграфы вставить.

 

[vbatushev]

Ответ: Еще раз про Parent и таблицу

А какие проблемы?
myTextFrame.Tables(1).Cells(1).Contents = " "
Set myPara = myTextFrame.Tables(1).Cells(1).Paragraphs(1)
myPara.Place "d:\karusel.png"
При этом пробел, который мы поставили, чтобы Cell приобрела Paragraphs(1), бесследно исчезает...

 

[Denissim]

Ответ: Еще раз про Parent и таблицу

Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.2.0")
Dim myDoc As InDesign.Document
Set myDoc = myInDesign.ActiveDocument
Dim rrr As InDesign.row, cel As Cell, ccc As Cell
Set rrr = myDoc.Selection.Item(1).ParentRow
rrr.Merge
rrr.TextContents = " "
Set ccc = myDoc.Selection.Item(1).Cells(1)
ccc.Paragraphs(1).Place "1.eps"

Это весь незамысловатый код. Ну не как не работает предпоследняя строчка. Несоответствие типа и все тут.
Все приборы показывают, что это cell откуда же несоответствия типа?

 

[Denissim]

Ответ: Еще раз про Parent и таблицу

Тяжко быть безтолковым
Set ccc = rrr.Cells(1) - и все гуд, как в сказке, а я с этим дурацким Selection зачем то опять связывался.
Но все же интересно почему несоответствие типа? :eek:

 

[-=CMYK=-]

Ответ: Еще раз про Parent и таблицу

По общим вопросам. Будете так делать:

Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.2.0")

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