ザックは常にPDFファイルからの引用をWord文書の本文に貼り付けています。彼は、PDFから貼り付けるためのマクロを作成したいと考えています。このマクロは、書式設定なしで貼り付け、貼り付けたテキストの各行の終わりにある段落の区切りを自動的に削除します。

マクロでこの方法でテキストを操作するのは比較的簡単です。クリップボードから文字列変数に情報を移動するだけです。変数に含めると、テキストに関連付けられた書式設定はなくなり、段落区切りを検索して置き換えることができます。次のマクロは両方のステップを実行します：

Sub PastePDFClean()

Dim MyData As DataObject     Dim sTextIn As String     Dim x As Integer     Dim y As Integer

Set MyData = New DataObject     MyData.GetFromClipboard     sTextIn = MyData.GetText

x = InStr(sTextIn, vbCr)

y = 1     While x > 0         sTextIn = Left(sTextIn, x - 1) & Mid(sTextIn, x + 1)

y = x + 1         x = InStr(y, sTextIn, vbCr)

Wend

Selection.TypeText sTextIn     Set MyData = Nothing End Sub

覚えておいてください。マクロはクリップボードにあるものすべてで機能します。したがって、PDFの選択範囲でマクロを適切に実行するには、マクロを実行する前に、選択範囲をクリップボードにコピーしてWord文書に切り替える必要があります。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（583）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Processing_Information_Pasted_from_a_PDF_File [PDFファイルから貼り付けられた情報処理情報]。