Таблицы в WORD. Перебор ячеек или поиск?

[sergeos]

Привет!
Возникла задача. В документе есть текст и таблицы. В некоторых местах текста есть специальный скрытый текст(метки). Эти метки могут находится и в середине таблиц. А проблема такая, есть макрос от стороннего разработчика который при форматировании текста в специальный местный формат, удаляет текст, если он скрытый, из таблицы.
Получается, что мне нужно, перед стартом этого макроса каким то образом запоминать, где и в какой ячейке расположена метка, чтобы после отработки макроса, можно было бы заново её поставить.
2 вопроса:
1. Как можно пособирать метки, с проверкой, находится ли она в таблице?
2. Как восстановить адрес метки, если после отработки макроса, таблица переводится в текстовый формат?

[CaptainNemo]

Файл приложите.

[sergeos]

вот тестовый файл.
мне нужно както запоминать положения меток перед выполнением некоторого макроса, который удаляет текст, если он скрыт.

второй файл result.doc это файл результат работы макроса, т.е. те метки что были в таблице, сейчас не присутствуют. ихи прибило.
а мне требуется восттановить как было, вернуть метки в псевдографическую таблицу.

[CaptainNemo]

Запомнить метки можно так:

Sub Метки()
With ActiveDocument.Tables(1).Range
For i = 1 To .Cells.Count
If .Cells(i).Range.Font.Hidden <> 0 Then Debug.Print _
"Ячейка №" & i & " содержит метки"
Next i
End With
End Sub

[sergeos]

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

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

дело в том, что кодированный текст должен быть той же длины, что и текст по умолчанию, однако, в нём должна присутствовать метка.

пока такая идея только.

[CaptainNemo]

Признаюсь сразу, я в MS Word особо не силён. Но я бы решил вашу задачу без программирования за минуту, вне зависимости от величины вашей таблицы.
1)Для исходной таблицы:
Жмёте Ctrl+A -> шрифт - > снимаете галку «Скрытый». Таким образом делаете ваши метки видимыми. Перегоняете этот файл в псевдографическую таблицу.
2)Открываете эту таблицу в MS Word и снова делаете метки скрытыми:
Ctrl+H -> В поле найти вводите вот так:

 \{*\}

и внизу ставите птичку «Подстановочные знаки». А в поле «Заменить» ничего не вводите, просто активируйте его и затем формат - > шрифт –> скрытый.

[sergeos]

так, отлично, ясность.
на странице по ряду причин я не могу отображать скрытый текст.
как в коде можно найти в таблице ячеку в которой есть скрытый текст?

[CaptainNemo]

Я же уже писал код выше. В Immediate Widow отображает адреса ячеек, в которых есть скрытый текст. Ну, вот например, красным можно выделить ячейки со скрытым текстом в таблице

Sub НайтиЯчейкуСоСкрытымТекстом()
Dim myCell As Cell
If ActiveDocument.Tables.Count > 0 Then
For Each myCell In ActiveDocument.Tables(1).Range.Cells
    If myCell.Range.Font.Hidden Then _
    myCell.Range.Shading.BackgroundPatternColor = wdColorRed
Next myCell
End If
End Sub