vba - MS Wordマクロ、現在の段落テキストをクリップボードにコピー

Question

このページから、現在の段落テキストを選択するマクロを作成する方法を見つけました。

Sub SelectCurrentParagraph()
   Selection.Paragraphs(1).Range.Select
End Sub

しかし、私はこれを修正しました。カーソルを段落内に置くと、マクロは段落テキストを選択してクリップボードにコピーします。これどうやってするの？

Answer 1

さまざまな単位（つまり、wdParagraph、wdCharacter、wdLine）を使用して単語内を移動できます。これにより、現在の段落が選択され、クリップボードにコピーされます。

Sub SelectCurrentParagraph()
    Selection.StartOf Unit:=wdParagraph
    Selection.MoveEnd Unit:=wdParagraph
    Selection.Copy
End Sub

Answer 2

以下は選択範囲をコピーしますが、チェックするwdSelectionNormalとフレームや形状などがスキップされます。

Selection.Paragraphs(1).Range.Select

If Selection.Type = wdSelectionNormal Then
    Selection.Copy
End If