найти текст в строке таблицы и удалить соответствующие столбцы

[diletant2]

ОК!
в MS Word имеется произвольная таблица n x m с текстом. требуется перебрать все ячейки первой строки, найти в них одинаковый текст, например "ххх", и, если ячейка с текстом найдена, удалить соответствующий столбец, далее найти следующую ячейку с текстом "ххх" в даной строке и т.д.

[Ципихович Эндрю]

ОК! - это что такое
Как удалить столбец - запись макроса пжл
это может пригодится:

'номер таблицы в документе, где расположен курсор
cursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
'номер столбца, а также ячейки в таблице, в документе, где расположен курсор, даже если ширина столбца, ячейки различается
cursor_column_cell = Selection.Cells(1).ColumnIndex
'номер строки в таблице, в документе, где расположен курсор
cursor_row = Selection.Rows.First.Index
'объявление переменной типа "Байт", размер 1 байт, от 0 до 255
Dim Количество_ячеек_в_строке As Byte
Количество_ячеек_в_строке = ActiveDocument.Tables(cursor_table).Columns.Count

Ну что ОК??

[diletant2]

да нет, спасибо, просто нужен цикл...

[Ципихович Эндрю]

а это:

Dim Количество_ячеек_в_строке As Byte
Количество_ячеек_в_строке = ActiveDocument.Tables(cursor_table).Columns.Count

Для размера цикла не подходит?

[diletant2]

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

[Ципихович Эндрю]

найти текст в таблице лучше через
If значение_ячейки Like "ХХХ*" Then удалить столбец
Обратите внимание, что звёздочку ставлю одну: "ХХХ*" , ОК??

[diletant2]

к сожалению, ответа нет...