MS Word宏，将当前段落文本复制到剪贴板

Question

从这个page我发现了如何创建一个选择当前段落文本的宏。

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