Thread: Make a word bold if it starts with a particular character/string

This is from the top of my head as I'm certainly not a word specialist.

Code:

Sub Macro2()

Dim a As Long 'From 65 to 90 and for 97 to 122 a-z, A-Z

Application.ScreenUpdating = False

  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Bold = True
  With Selection.Find
    .Text = "^p"
    .Replacement.Text = "^p " 'Add space as wildcards and ^p don't go together
    .Forward = True
    .Wrap = wdFindContinue
  End With
Selection.Find.Execute Replace:=wdReplaceAll

For a = 65 To 122 Step 1

  If a = 91 Then a = 97
  
  With Selection.Find
    .Text = " " & Chr(a)
    .Replacement.Text = " " & Chr(a)
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  
Next a

  With Selection.Find
    .Text = "^p "
    .Replacement.Text = "^p" 'Add space as wildcards and ^p don't go together
    .Forward = True
    .Wrap = wdFindContinue
  End With
Selection.Find.Execute Replace:=wdReplaceAll

Application.ScreenUpdating = True

End Sub

Only need to do the first by hand

Edit: Added the red part later !
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True

Again, I'm not an expert on this but for complete words to become bold

HTML Code:

Sub MakeBold()

Application.ScreenUpdating = False

  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Bold = True
  With Selection.Find
    .Text = "^p"
    .Replacement.Text = "^p " 'Add space as wildcards and ^p don't go together
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
Selection.Find.Execute Replace:=wdReplaceAll

  With Selection.Find
    .Text = " s* "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchWildcards = True
  End With
  Selection.Find.Execute
  
  While Selection.Font.Bold = False
    Selection.Font.Bold = True
    Selection.Find.Execute
  Wend

  With Selection.Find
    .Text = "^p "
    .Replacement.Text = "^p" 'Add space as wildcards and ^p don't go together
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
  End With
Selection.Find.Execute Replace:=wdReplaceAll

Application.ScreenUpdating = True

End Sub

The restricton I have is that you have to start with ALL words NOT in Bold

change .Text = " s* " where s is replaced by your character

There you go, Rico!! Thanks for sharing!

use find replace
find <[A-a]*>
check wild cards box then from format option select font/ bold replace all (or usr ctrl+b in the replace field)

Martin, Almost

I like the approach, but with strings like Aaasasaasasaa all a's are turning Bold.

As I'm not an expert I can't find a better answer. I hope you might.

my mistake it should be
<[aA]*> works with this see attached

Martin,

What do you put in the "replace with" field (besides the bold

and what about these strings?
Zuidpool zuidpool
Aarde aarde

works ok for me with those see attached