
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)
Sub フォント変換()
'
'
With ActiveDocument.Content.Find
.Text = MatchiWildcards
.Format = True
.Font.Size = 11
With .Replacement
.Font.Name = "MS Pゴシック"
.Font.Size = 10.5
.Font.Color = wdColorBlack
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Content.Find
.Text = MatchiWildcards
.Format = True
.Font.Size = 12
With .Replacement
.Font.Name = "MS Pゴシック"
.Font.Size = 10.5
.Font.Color = wdColorBlack
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
End Sub
No.2ベストアンサー
- 回答日時:
こんなカンジ
Sub macro1()
Dim h As Hyperlink
’全文のフォントを設定する
With ActiveDocument.Range(0, ActiveDocument.Range.End).Font
.Name = "MS Pゴシック"
.Size = 10.5
.Bold = False
.Color = wdColorBlack
End With
’ハイパーリンクスタイルを再設定する
For Each h In ActiveDocument.Hyperlinks
h.Range.Style = wdStyleHyperlink
Next
End Sub
ありがとうございました。希望通りに通りにできました。
全てのフォントを10.5にするのではなく8ポイントとかそのまま残しないフォントがありましたので、変更したいフォントサイズを指定しました。 でもORを使って短くする方法があるのでしょうね。
勉強します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
outlook 文字を揃えたい。tab...
-
マイクロ(μ)の文字を半角で出...
-
教えてください。
-
MsgBoxについて
-
似ているフォント(Win⇔Mac)
-
逆向き/(スラッシュ)の入力方法
-
「MS Pゴシック」と同じ幅の...
-
Excel:一部のフォントでセルの...
-
英語版OSでの遊明朝、游ゴシック
-
フォントについて質問です。
-
”÷”とか”×”は日本語?
-
WORD全角入力しても半角に...
-
このフォントはなんというフォ...
-
Wordで、指定したフォント...
-
漢字変換のフォントがおかしい
-
Eclipseで文字がずれます。
-
gvimでフォント、色テーマ設定...
-
フォントを探しています
-
入力規則のリストの文字の大き...
-
HTMLで行間隔調整の方法をお教...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
outlook 文字を揃えたい。tab...
-
マイクロ(μ)の文字を半角で出...
-
教えてください。
-
似ているフォント(Win⇔Mac)
-
「MS Pゴシック」と同じ幅の...
-
Excel:一部のフォントでセルの...
-
MsgBoxについて
-
英語版OSでの遊明朝、游ゴシック
-
ワードでゴシックの文字を太く...
-
逆向き/(スラッシュ)の入力方法
-
gvimでフォント、色テーマ設定...
-
C# Font GdiCharSet
-
WORD全角入力しても半角に...
-
font-family の記載方法
-
WORD VBAでハイパーリ...
-
縦書きテキストボックスの表示"...
-
メールで、榊の文字を木辺に神...
-
コマンドプロンプト(cmd.exe)を...
-
PreRenderイベントの実装方法に...
-
無料で使える日本語フォントを...
おすすめ情報