このマクロには多くの問題があります:
ActiveDocument.CopyStylesFromTemplate NormalTemplate.FullName
With Selection
.Style = ActiveDocument.Styles("Normal")
.Range.HighlightColorIndex = 0
.Font.Shading.Texture = wdTextureNone
.Font.Name = ActiveDocument.Styles("Normal").Font.Name
.Font.Size = ActiveDocument.Styles("Normal").Font.Size
End With
次のような行で完全に機能します。このテキストは、太字や斜体なしでフォーマットする必要があります。
このテキストは、太字や斜体を使用せずに書式設定する必要があります。
ただし、最後の文字の直前まで選択して実行した場合にのみ機能します。行をダブルクリックするか、行全体を手動で選択してマクロを実行しても、まったく効果がないようです。
これを引き起こしている可能性のあるアイデア、または選択範囲内の太字/斜体のテキストを削除し、すべてのテキストを通常のスタイル/フォントに変換するために使用する必要がある別の方法がある場合は?
編集: これは、マクロ メニューから手動で実行すると正常に動作するため、キーボード ショートカットからマクロを実行することに関係している可能性があります。