1

Тема: Как удалить часть таблицы

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

Post's attachments

platezh.doc 41.5 Кб, 3 скачиваний с 2012-12-20 

You don't have the permssions to download the attachments of this post.

2

Re: Как удалить часть таблицы

Ну, во-первых, у Вас не таблица, а текстовый поток.
Во-вторых, вот макрос

Sub DeleteBlan()
'
' Удаление нижней части бланка
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(" & ChrW(9500) & ")(?{1;})(" & ChrW(9532) & ")(?{1;})(" & _
            ChrW(9508) & ")(?{1;})(" & ChrW(9496) & ")"
        .Replacement.Text = ChrW(9492) & "\2" & ChrW(9524) & "\4" & ChrW(9496 _
            )
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3

Re: Как удалить часть таблицы

Спасибо огромное!