Тема: Определение начала абзаца
День добрый!
Нужен макрос который будет искать начало абзаца и после нумерации проставлять вместо обычного пробела неразрывный (но только в начале абзаца не в коем случае в тексте). Я колупался но так как мои познания в VBA пока очень слабенькие у меня макрос меняет все, может подскажите в чем я ошибаюсь?
Sub Nachaloabzaca()
'
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([0-9]@>.)( )"
.Replacement.Text = "\1^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Do While .Execute(Replace:=wdReplaceNone)
If Selection.StartOf(Unit:=Word.wdParagraph, Extend:=Word.wdMove) Then
Selection.Next
Selection.Find.Execute Replace:=wdReplaceOne
End If
Loop
End With
End Sub