Useful Commands for word macro

macroWord.md

https://stackoverflow.com/questions/3691154/find-all-instances-of-yellow-text-and-change-font-color-to-red

this sets white Black to text

Sub WhiteToBlackText()
'
' WhiteToBlackText Macro
'
'

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorWhite
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRose
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

this one sets all textbox with color to no background color

Sub BoxNoColor()
'
' BoxNoColor Macro
'
ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _
    RGB(255, 255, 255)

End Sub

macroWords_v2.md

too lazy to see what was implemented what aws not, here is new version from 12-05-2020

Sub BoxNoColor()
'
' BoxNoColor Macro
'
ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _
    RGB(255, 255, 255)

End Sub
Sub BlacktextTextBox()
'
' BlacktextTextBox Macro
'
'
Dim oShp As Shape


  For Each oShp In ActiveDocument.Shapes
  
      If oShp.Type = msoTextBox Then
      
       oShp.TextFrame.TextRange.Font.ColorIndex = wdBlack
       

    
  

    End If
  
Next oShp


End Sub
Sub WhiteToBlackText()
'
' WhiteToBlackText Macro
'
'

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorWhite
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorYellow
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
Sub RemoveTextHiglight()
'
' RemoveTextHiglight Macro
'
'
    'Macro created by Stefan Blom, MVP, January 2015

    With ActiveDocument.Content.ParagraphFormat.Shading
        .Texture = wdTextureNone
        .ForegroundPatternColor = wdColorAutomatic
        .BackgroundPatternColor = wdColorAutomatic
    End With
   
    With ActiveDocument.Content.Font.Shading
        .Texture = wdTextureNone
        .ForegroundPatternColor = wdColorAutomatic
        .BackgroundPatternColor = wdColorAutomatic
    End With



End Sub