Apply another font to all text boxes within a canvas or to grouped

Dear Experts:
Below macro changes all text within text boxes to "arial ,bold, Size
8". So far, so good. This macro is working

a. But I also got text boxes within canvasses. How do I have to
change the code so that text boxes within canvases also get their font
changed to "Arial Bold 8"?
b. I also got grouped text boxes in my document. How do I have to
change the code so that grouped text boxes also get their font changed
to "Arial Bold 8"?

Help is much appreciated. Thank you very much in advance. Regards,
Andreas


Sub ApplyFontToTextBoxes()
Dim shp As Word.Shape

For Each shp In ActiveDocument.Shapes
With shp.TextFrame
If .HasText Then
.TextRange.Font.Name = "Arial"
.TextRange.Font.Size = 8
.TextRange.Bold = True
End If
End With
Next shp
End Sub

Helmut
Sat Jun 28 13:06:55 PDT 2008

Hi Andreas,

perhaps like that, and
watch out for line continuation:

Sub ApplyFontToTextBoxes()
Dim i As Long ' group items count
Dim l As Long ' shapes.count
Dim x As Long ' a shape's index
Dim y As Long ' a shape's canvas items count
Dim z As Long ' a shape's canvas item index
Dim shp As Word.Shape
l = ActiveDocument.Shapes.Count
For x = 1 To l
i = ActiveDocument.Shapes(x).GroupItems.Count
For z = 1 To i
If ActiveDocument.Shapes(x).GroupItems(z). _
TextFrame.HasText Then
ActiveDocument.Shapes(x).GroupItems(z). _
TextFrame.TextRange.Font.name = "Arial"
End If
Next
If ActiveDocument.Shapes(x).TextFrame.HasText Then
ActiveDocument.Shapes(x).TextFrame. _
TextRange.Font.name = "Arial"
End If
' ActiveDocument.Shapes(x).Select
On Error Resume Next '!
y = ActiveDocument.Shapes(x).CanvasItems.Count
For z = 1 To y
ActiveDocument.Shapes(x).CanvasItems(z). _
TextFrame.TextRange.Font.name = "Arial"
Next
Next

End Sub
--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

andreas
Sun Jun 29 04:38:16 PDT 2008

On 28 Jun., 22:06, Helmut Weber <red....@t-online.de> wrote:
> Hi Andreas,
>
> perhaps like that, and
> watch out for line continuation:
>
> Sub ApplyFontToTextBoxes()
> Dim i As Long ' group items count
> Dim l As Long ' shapes.count
> Dim x As Long ' a shape's index
> Dim y As Long ' a shape's canvas items count
> Dim z As Long ' a shape's canvas item index
> Dim shp As Word.Shape
> l =3D ActiveDocument.Shapes.Count
> For x =3D 1 To l
> =A0 =A0i =3D ActiveDocument.Shapes(x).GroupItems.Count
> =A0 =A0For z =3D 1 To i
> =A0 =A0 =A0 If ActiveDocument.Shapes(x).GroupItems(z). _
> =A0 =A0 =A0 TextFrame.HasText Then
> =A0 =A0 =A0 =A0 =A0ActiveDocument.Shapes(x).GroupItems(z). _
> =A0 =A0 =A0 =A0 =A0TextFrame.TextRange.Font.name =3D "Arial"
> =A0 =A0 =A0 End If
> =A0 =A0Next
> =A0 =A0If ActiveDocument.Shapes(x).TextFrame.HasText Then
> =A0 =A0 =A0 ActiveDocument.Shapes(x).TextFrame. _
> =A0 =A0 =A0 TextRange.Font.name =3D "Arial"
> =A0 =A0End If
> =A0 =A0' ActiveDocument.Shapes(x).Select
> =A0 =A0On Error Resume Next '!
> =A0 =A0y =3D ActiveDocument.Shapes(x).CanvasItems.Count
> =A0 =A0For z =3D 1 To y
> =A0 =A0 =A0 ActiveDocument.Shapes(x).CanvasItems(z). _
> =A0 =A0 =A0 TextFrame.TextRange.Font.name =3D "Arial"
> =A0 =A0Next
> Next
>
> End Sub
> --
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Vista Small Business, Office XP

Dear Helmut,

as always your macros are running just fine. Thank you very much for
your terrific help.
It is always astonishing how quickly you come up with your solutions.

Best Regards and thank you very much again,

Andreas