ワードアートの一括変換
Office2003のEXCEL使用しています。
ワードアートのフォントを別のモノに
一括変換したくて調べたら、
VBA のコードを実行すればOKと書いてありました。
以下文章。
1. Microsoft Word の「Visual Basic Editor」を起動。
2. [挿入] - [標準モジュール] を選択。
3. 下記のコードを貼り付け。
4. [実行] - [Sub/ユーザー フォームの実行] を選択。
これで、ワードアートのフォントが一括で置換出来る。
Sub ChangeWordArtFont()
' ワードアートのフォントを変更(書式が「行内(インライン)」の場合)
Dim inlineShape
For Each inlineShape In ActiveDocument.InlineShapes
If inlineShape.Type = wdInlineShapePicture Then
inlineShape.TextEffect.FontName = "HG創英角ポップ体"
End If
End If
' ワードアートのフォントを変更
Dim shape
For Each shape In ActiveDocument.Shapes
If shape.Type = msoTextEffect Then
shape.TextEffect.FontName = "HG創英角ポップ体"
End If
Next
End Sub
この通りにやったのですが、エラーが出て完了できません。
構文が間違っているのでしょうか?
お礼
さっそく回答していただきましてありがとうございます。 バージョンは回答のとおり2010でしたので、ご指示の通りやってみましたら 文書ウインドウと印刷プレビューが同じように表示されました。 どうもありがとうございました。