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