![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
最初の質問
VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)
早速keithinさんより以下のご回答をいただきました。新しいWORDファイルで例題(30行ぐらい)を作り実行したところ、希望通りの結果でした。 その後ハイパーリンクの全てが表の中にある本ファイルで実行したところ、ハイパーリンクスタイルを再設定する途中で止まってしまい(12-13は設定されている)、”指定されたプロパティはこのオブジェクトではサポートされません”として
h.Range.Style = wdStyleHyperlink
がハイライトされてしまいます。
どのような問題が考えられるのでしょうか?
問題解決したと云いながら申し訳ありません。 サポートよろしくお願いします。
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
No.1ベストアンサー
- 回答日時:
ん~~~
とりあえず次のようにしてみて下さい。
変更前:
h.Range.Style = wdStyleHyperlink
変更後:
if h.type = msohyperlinkrange then
h.Range.Style = wdStyleHyperlink
end if
文章に埋め込まれたハイパーリンクではなく,ボタンなど図形等に取り付けたハイパーリンクを一緒にコピーしてきているのではないかと思います。
またはもっと安直に,
sub macro1()
の直下に
sub macro1()
on error resume next
のようにするのでも出来ます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メッセージボックスに表示する...
-
ワードで英単語を入力すると文...
-
パソコンの表示フォントが突然...
-
ワードで、文字の大きさを変え...
-
差し込み印刷された時の文字の...
-
ワードやエクセルで文字を縦長...
-
ワードでA4 1行40字×30行...
-
縦書きで途中から2行にする場合...
-
A4サイズの用紙いっぱいに1文字...
-
Wordについて
-
ワードの原稿用紙、文字ずれに...
-
急に文字が細くて、見づらくな...
-
WORDで、一行当たりの文字数を4...
-
Outlookメールで、画面の文字の...
-
Excel2007でハイパーリンクを設...
-
エクセル表の行がメール添付し...
-
1文字をB5用紙サイズくらい...
-
word2007 フォントの色を維持す...
-
エクセルのテキストボックス内...
-
メモ帳での印刷時、文字の大き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスに表示する...
-
ワードで英単語を入力すると文...
-
ワードやエクセルで文字を縦長...
-
差し込み印刷された時の文字の...
-
パソコンの表示フォントが突然...
-
A4サイズの用紙いっぱいに1文字...
-
Outlookメールで、画面の文字の...
-
ワードで、文字の大きさを変え...
-
ワードでA4 1行40字×30行...
-
箇条書きの数字の一部の色を変...
-
縦書きで途中から2行にする場合...
-
WORDで、一行当たりの文字数を4...
-
急に文字が細くて、見づらくな...
-
ワードの原稿用紙、文字ずれに...
-
Chem Drawの使い方
-
Gメールの画面すべてのフォント...
-
Excel2007でハイパーリンクを設...
-
ワードで筆のような文字にしたい
-
セルの条件によってフォントサ...
-
Wordについて
おすすめ情報