With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.text = "^p"
.Font.Bold = True
With .Replacement
.text = ""
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
End With
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.text = "^p"
.Font.Bold = True
With .Replacement
.text = ""
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
End With
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.