formatting text boxes

[lukkycs]

Hello i need advice. I work with multiple files where there is a pile of text boxes.

In all I need to set up: scale: 100%; space: normal; position: normal.


Currently I have to click in each text box to select the text and set it, which is very time consuming for 200 text boxes.


Couldn't it be made easier by some macros?


Thanks for helping me.

[lukkycs]

solved, I used:

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

but i still need to set the bullets - scale: 100%; space: normal; position: normal. and somehow I can't.
I need in the document for all bullets and numbering rewrite the format