Paragraph 2.1
paragraph 4.5.6
Looks for paragraph whether capitalized or not and then bolds. All this is fine.
Code: Select all
.Text = "[Pp]aragraph [0-9]{1,}"
Code: Select all
.Text = "[Pp]aragraph* [0-9]{1,}"
Here is the entire procedureParagraph A3.1.3.2 and Paragraph A3.2.3.2. This is the total man-hours earned from this attachment for FMF. Now return to the AFMS FMF core application instructions and continue on at Step 3.
Code: Select all
Sub BoldParagraph()
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Text = "[Pp]aragraph* [0-9]{1,}"
While .Execute
Selection.MoveEndWhile Cset:="0123456789."
If Selection.Characters.Last = "." Then Selection.MoveEnd Unit:=wdCharacter, Count:=-1
If Selection.Range.Font.Bold = True Then GoTo Skip
If MsgBox(Prompt:="Bold this reference?", Buttons:=vbYesNo + vbQuestion, Title:="Emphasize References") = vbYes Then
Selection.Style = ActiveDocument.Styles("Strong")
Selection.Text = StrConv(Selection.Text, vbProperCase)
End If
Skip:
Selection.Collapse wdCollapseEnd
Wend
End With
End Sub