Sub SetTextBoxStyle()
  Dim oShape As Shape, objDoc As Document, oInnerShape As Shape
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  For Each oShape In objDoc.Shapes
    If oShape.Type = msoGroup Then
      For Each oInnerShape In oShape.GroupItems
        FormatAShape oInnerShape
      Next oInnerShape
    Else
      FormatAShape oShape
    End If
  Next oShape
  Application.ScreenUpdating = True
End Sub

Function FormatAShape(oShape As Shape)
  With oShape

    If .TextFrame.HasText Then
     
'      .TextFrame.TextRange.Font.TextColor.RGB = RGB(8, 8, 8)  ' Set text color.
      .TextFrame.TextRange.Font.Size = 9  ' Set text size.
      .TextFrame.TextRange.Font.Name = "Arial Narrow"  ' Set font face.
      .TextFrame.TextRange.Font.Spacing = 0  ' Set character spacing.
      .TextFrame.TextRange.Font.Scaling = 100 ' Set character spacing.
      .TextFrame.TextRange.Font.Position = 0  ' Set character spacing.
    End If
  End With
End Function