Тема: Как удалить часть таблицы
Подскажите пожалуйста, как макросом
удалить часть таблицы выделенную желтым
цветом?
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Подскажите пожалуйста, как макросом
удалить часть таблицы выделенную желтым
цветом?
Ну, во-первых, у Вас не таблица, а текстовый поток.
Во-вторых, вот макрос
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
Спасибо огромное!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться