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

Question

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

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

但我需要注意的是:当我将光标放在段落中时，宏会选择段落文本并将其复制到剪贴板。我该怎么做呢？

Answer 1

下面将复制您的选择，但检查wdSelectionNormal将跳过框架、形状等：

Selection.Paragraphs(1).Range.Select

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

Answer 2

你可以使用不同的单位(如wdParagraph，wdCharacter，wdLine)来移动单词。这将选择当前段落并复制到剪贴板。

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