For Each наоборот

[Вождь]

Сообщение от Aent

...пользовательская функция возвращающая инвертированную копию коллекции...

Этот вариант даже хуже. Коллекции, создаваемые пользователем (Collection), не обновляются автоматически при изменении документа, в отличие от Cells, например. Придется дополнительно проверять целостность элементов коллекции.

Я думал об использовании коллекции, как хранилища отработанных ячеек. Даже написал рабочий код, который обходит любое удаление по ходу перебора ячеек. Но при комбинации изменений (несколько удалений и вставок ячеек) и коллекция не помогает.

Единственный выход как-то запомнить позицию в документе. Вот и думаю: Как?

[Вождь]

Для любопытствующих предлагаю код, имитирующий For Each.

Public Sub Имитатор_For_Each_Cells()
' перебор всех ячеек документа с учетом изменений

Dim COL As New Collection
Dim TS As Tables
Dim C As Cell
Dim R As Range
Dim N&, K&, X&

    Set R = ActiveDocument.Range ' начальная область
    N = 0
    Do
        ' вспоминаем последнюю
        For Each C In COL
            If IsObjectValid(C) Then
                ' следующая таблица
                If C.Next Is Nothing Then
                    With C.Range
                        .SetRange .End + 1, R.End
                        Set TS = .Tables
                    End With
                    GoTo 2
                ' следующая ячейка
                Else
                    Set C = C.Next
                    GoTo 1
                End If
            Else
                COL.Remove Index:=1
            End If
        Next C

        ' первая ячейка первой таблицы
        Set TS = R.Tables
2:      If TS.Count <= 0 Then Exit Do
        Set C = TS(1).Cell(Row:=1, Column:=1)
        
1:      ' запоиминаем
        If COL.Count <= 0 Then COL.Add Item:=C Else COL.Add Item:=C, Before:=1
        
        ' обработка
        ' >> произволное изменение документа <<<
    Loop
    
End Sub

Это перебор вперед, назад несложно переделать по этому принципу.

[Вождь]

Закладки в таблице тоже ведут себя неадекватно при вставке. Попробуйте создать закладку, охватывающую хотябы одну ячеку таблицы, а затем вставьте строку таблицы над/под строкой с закладкой. Вот демо-код:

Dim R As Range, B As Bookmark, T As Table
    
    Set R = ActiveDocument.Range
    Set T = R.Tables.Add(R, 1, 3)
    Set R = T.Cell(1, 2).Range
    Set B = R.Bookmarks.Add("zzz")
    T.Rows.Add
    B.Range.Select

Получается, что в таблицах безопасно можно использовать только точечные закладки (Start=End). Как же так? Ведь большинство инструментов MS Word основаны на закладках.

[diletant2]

извините за оффтоп, но мне кажется, что моя проблема созвучна с Вашей: дана произвольная таблица n x m с текстом, требуется перебрать все ячейки первой строки, найти в них одинаковый текст, например "ххх", и, если ячейка с текстом найдена, удалить соответствующий столбец, далее найти следующую ячейку с текстом "ххх" в даной строке и т.д. можете предложить рабочий цикл?

[shanemac51]

четная таблица
11-12-13-14-15-16
21-22-23-24-25-26
31-32-33-34-35-36

удаляем 12-14-16-22-24-26-32-34-36

остается
11-13-15
21-23-25
31-33-35
нечетная таблица
11-12-13-14-15-16-17
21-22-23-24-25-26-27
31-32-33-34-35-36-37

удаляем 12-14-16-21-23-25-27-32-34-36

остается
11-13-15-17
22-24-26
31-33-35-37

что делать со строкой 2
или я что-то недопонимаю в замысле творца задачи

может удаляются 2-4-6... позиции в каждой строке

[Вождь]

Сообщение от diletant2

...моя проблема созвучна с Вашей...

Никак не связана. Собственно в Вас не проблема, а обычное домашнее задание

[diletant2]

сорри, разжуйте, плизз: я не студент, а что?