Создание макроса

[Diamatra]

Я в программировании очень плохо разбираюсь, но мне надо для работы сделать макрос для ворда 2010, который должен выделять все слова имеющие знак "#" жирным

Есть макрос от 2003 ворда

Attribute VB_Name = "SetFirstWordBold"
Sub SetFirstWordBold()
Attribute SetFirstWordBold.VB_Description = "Макрос создан 20.09.2006 djon"
Attribute SetFirstWordBold.VB_ProcData.VB_Inv oke_Func = "Normal.NewMacros.SetFirstWordB old"
'
' SetFirstWordBold Макрос
' Макрос создан Евгением Волковым
' Выделяет и применяет атрибут "Жирный" к первому слову, начинающемуся со знака "#"
Dim StartChr, EndChr, P As Integer

s = ActiveDocument.ComputeStatistics(St atistic:=wdStatisticParagraphs)

P = 0
Do While P <> Int(Val(s)) - 1
If Int(Val(s)) = 0 Then Exit Sub
Selection.Find.ClearFormatting
With Selection.Find
.Text = "#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
StartChr = Selection.Start
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
EndChr = Selection.End
ActiveDocument.Range(Start:=StartCh r, End:=EndChr).Bold = True
P = P + 1
Loop
End Sub

Тему можно удалить, разобрался сам