[ID CC-CC2021] Перебор информации в выбранной группе

[_MBK_]

myInDesign.ActiveDocument.TextFrames(1).Tables.Length не работает?

 

[ReallyCool]

myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).RowCount - ашыпка
myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Length - ашыпка
myInDesign.ActiveDocument.TextFrames(1).Tables.RowCount - ашыпка
myInDesign.ActiveDocument.TextFrames(1).Tables.Length - ашыпка

 

[_MBK_]

Тогда
myInDesign.ActiveDocument.TextFrames(1).Tables.Count ?
или UBound(myInDesign.ActiveDocument.TextFrames(1).Tables) ?

 

[Eugenyus]

Размер — понятие растяжимое. Это и высота всей таблицы, и количество строк (если речь о вертикали). И то, и другое можно получить:

myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Height
myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Rows.Count
myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Rows.Item(1).Cells.Count

 

[Eugenyus]

Вот полный код, демонстрирующий доступ к ячейкам Вашей таблицы:

Set myInDesign = CreateObject("InDesign.Application")
Set myDoc = myInDesign.ActiveDocument
Set myTF = myDoc.TextFrames.item(1)
Set myTab = myTF.Tables.item(1)
curArticle = myTab.Rows.item(2).Cells.Item(2).Texts.Item(1).Contents
curSource = myTab.Rows.item(2).Cells.Item(8).Texts.Item(1).Contents
MsgBox("Артикул: "+curArticle+"; Светлый Источник: "+curSource)

 

[ReallyCool]

Eugenyus, низкий поклон за прорыв в хитросплетении точек и методов!
это именно то, что нужно:

myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Height
myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Rows.Count ' количество строк
myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1).Rows.Item(1).Cells.Count ' количество столбцов

единственно, .Height - это высота чего?

 

[Eugenyus]

Height - это высота чего?

В данном случае — всей таблицы. Но это же свойство есть и у строки.

 

[Eugenyus]

количество столбцов

Количество ячеек в текущей строке, а не столбцов.

 

[ReallyCool]

Количество ячеек в текущей строке, а не столбцов.

ну для текущей таблицы приемлемо это понимать как кол-во столбцов.
Спасибо за Ваши ответы, теперь я знаю все что мне нужно на текущий момент, ушел кодить дальше ))

 

[lev]

Перебираем ячейки всех таблиц на странице

Sub ttt()
  Dim indd As New InDesign.Application
  Dim t As InDesign.Table
  Dim c As InDesign.Cell

  For Each tf In indd.ActiveWindow.ActivePage.TextFrames
    For Each t In tf.Tables
      For Each c In t.Cells
        Debug.Print c.Contents
      Next c
    Next t
  Next tf
End Sub

 

[ReallyCool]

Лев, спасибо.
но вот возник дополнительный вопрос - в одной из ячеек этой таблицы стоят небольшие изображения с графическими символами:

с помощью каких методов узнать что там изображения стоят, очистить/добавить изображения в выбранную ячейку?
типа такого:
cellImage = myFrame.Tables.Item(1).Rows(2).Cells(9). ?? .GetImageContent(1) ???

 

[Eugenyus]

Технически, в ячейку вставлены не изображения. В ячейку вставлены контейнеры — фреймы, в которые вставлены изображения. Как вариант, до них можно добраться вот по такой цепочке:

 

[ReallyCool]

ячейку вставлены не изображения. В ячейку вставлены контейнеры — фреймы

ох ох, да уж, до них добраться тоже тот еще фокус будет. ок, спасибо, буду экспериментировать...

 

[lev]

Печатаем адреса линкованной графики из ячеек

      For Each c In t.Cells
        For Each g In c.AllGraphics
          Debug.Print g.ItemLink.FilePath
        Next g
      Next c

 

[Skvoznyak]

вот только в вашем файле графика не помещена в таблицу, а просто болтается на странице сама по себе

 

[ReallyCool]

адреса линкованной графики из ячеек

сенкса, поэксперементирую

графика не помещена в таблицу, а просто болтается на странице сама по себе

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

 

[lev]

А так втыкаем в хвост ячейки №18 три картинки без замены текущего содержимого

...
    For Each t In tf.Tables
      t.Cells(18).Texts(1).InsertionPoints(-1).Place "c:\1.gif"
      t.Cells(18).Texts(1).InsertionPoints(-1).Place "c:\2.gif"
      t.Cells(18).Texts(1).InsertionPoints(-1).Place "c:\3.gif"

 

[ReallyCool]

а как понять, есть что-то в ячейке из графики или еще чего? каким методом?

 

[lev]

а как понять, есть что-то в ячейке из графики или еще чего? каким методом?

Например, так:

      For Each c In t.Cells
        Debug.Print c.AllGraphics.Count

Забыл воткнуть в пример альтернативный вариант с убийством содержимого ячейки:

t.Cells(18).Texts(1).Place "c:\1.gif"

 

[ReallyCool]

на а переменная t это таблица из фрейма:

t = myInDesign.ActiveDocument.TextFrames(1).Tables.Item(1)

??