Webサイトの文字列をWordに貼り付けると、
Webサイトの書式情報を保持した状態で、文字列が貼り付けられます。
コピーした文字列を、貼り付け先の書式でペーストしたい場合は、
≪編集≫－≪形式を選択して貼り付け≫－≪テキスト≫を選んで≪ＯＫ≫
すればできますが、これではあまりにも非効率です。
そのような時は、こうすると便利です。
【１】文字列をテキスト形式で貼り付けるＶＢＡを記述
Sub PasteAsText()
On Error GoTo EXCEPTION
Selection.PasteSpecial DataType:=wdPasteText, Link:=False
Exit Sub
EXCEPTION:
MsgBox Error(Err), vbExclamation
End Sub
【２】上記マクロをショートカットキーに割り当て
１．≪ツール≫－≪ユーザー設定≫－≪コマンド≫タブ
２．≪キーボード≫ボタンをクリック
≪キーボードのユーザー設定≫ダイアログボックスが開きます。
３．≪分類≫一覧から≪マクロ≫を選択
４．≪マクロ≫一覧から≪PasteAsText≫を選択
５．≪割り当てるキーを押してください≫ボックスをクリック
ショートカットキーを割り当てます。
６．[Ctrl]+[V]
７．≪現在のキー≫ボックスに「Ctrl+V」と表示
登録を完了させます。
８．≪閉じる≫ボタンをクリック
９．続けて、≪閉じる≫ボタンをクリック
ちなみに、ショートカットメニュー（右クリック）に登録したい場合は以下の手順。
【おまけ】上記マクロをショートカットメニューに登録
１．≪ツール≫－≪ユーザー設定≫－≪ツールバー≫タブ
２．≪ショートカット メニュー≫をオン
≪ショートカット メニュー≫ツールバーが表示されます。
３．≪コマンド≫タブをクリック
４．≪分類≫一覧から≪マクロ≫を選択
５．≪コマンド≫一覧から≪PasteAsText≫を選択
ショートカットメニューに登録します。ドラッグの操作が続きます。
６．≪ショートカットメニュー≫ツールバーの≪テキスト≫までドラッグ
７．さらに、≪テキスト≫の上に重ねるようにドラッグ
「切り取り」や「コピー」などのが並ぶショートカットメニューが表示されます。
８．任意の位置でドラッグアンドドロップ
登録を完了させます。
９．≪閉じる≫をクリック
—————————————————————–
実は当初、≪編集≫－≪形式を選択して貼り付け≫－≪テキスト≫を選んで≪ＯＫ≫
の手順をマクロで登録したのですが、記述されたのは以下の1行のみでした。
Selection.PasteAndFormat (wdPasteDefault)
もしかして、Default を Text に修正すれば解決できちゃうのかな？
と思ったのですが、できませんでした。しばらく悩んでしまいました。
今回もいくつかのサイトからヒントをいただきました。
おかげさまで、作業がサクサク進んでいます。感謝、感謝です。
ありがとうございました。