Opet malo Word pitanjce

[Bata]

Imam ".doc" fajl sa gomilom text boksova. Kako mogu:
1. Da promenim font u svim celom dokumentu odjednom (i onaj text u text boksovima !!!!)

ili da

2. Sav sadrzaj text boksova prebacim tu gde je bio textbox a njih da nema vishe(opet sa zeljom da promenim font u celom dokumentu)

 

[gadafi]

Napravi makro sa sledecim sadrzajem

Sub MacroTextBox()
   Dim shp As Shape
   For Each shp In ActiveDocument.Shapes
      If shp.Type = msoTextBox Then
         shp.Select
         Selection.Font.Name = "Times New Roman"
      End If
   Next
End Sub

Naravno, font izaberi kako ti odgovara.

 

[Bata]

fala. che probamo:type: