представьте себе таблицу из 7 столбцов и Т строк. Некоторые из этих тонн строк объединяются, содержащие заметки, всегда содержащие строку "Примечание" В начале ячейки. В целом первая колонка включает нумерацию 10,20,30 и т. д. даже заголовок.
Что я могу использовать, чтобы удалить нумерацию из заголовка и всех объединенных ячеек с "примечанием" в них?
2648
на основе вашего описания здесь код, который должен работать.
KompSub CleanUpTable()
Dim tbl As Word.Table, r As Integer
Set tbl = ActiveDocument.Tables(1)
For r = tbl.rows.Count To 1 Step -1
If tbl.rows(r).HeadingFormat = True Then
tbl.rows(r).Cells(1).Range.Text = vbNullString
End If
If InStr(1, tbl.rows(r).Cells(2).Range.Text, "Note") Then
tbl.rows(r).Delete
End If
Next r
Конец Sub
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
