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