Как выделить в ворде строчку?
Как выделить в ворде строчку, если в этой строке есть заданная последовательность символов? Или хотя бы от этой последовательности символов вправо до точки и влево до точки.
Цитата:
Originally posted by Ivan122
Как выделить в ворде строчку, если в этой строке есть заданная последовательность символов? Или хотя бы от этой последовательности символов вправо до точки и влево до точки.
Как выделить в ворде строчку, если в этой строке есть заданная последовательность символов? Или хотя бы от этой последовательности символов вправо до точки и влево до точки.
Может, примерно так?
Код:
Sub MyMacro()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "test"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub
Selection.Find.ClearFormatting
With Selection.Find
.Text = "test"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub