1 Тема от regent

  • regent
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2012
  • Сообщений: 2

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

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

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 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

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 Ответ от regent

  • regent
  • рядовой
  • Неактивен
  • Зарегистрирован: 20.12.2012
  • Сообщений: 2

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

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