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

从中我了解了如何创建选择当前段落文本的宏

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

---

但我定义了这一点：当我将光标放在段落内时，宏将选择段落文本并将其复制到剪贴板。我怎样才能做到这一点？

您可以使用不同的单位（即WDPARATION、wdCharacter、wdLine）在单词周围移动。这将选择当前段落并复制到剪贴板

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

---

您可以使用不同的单位（例如WDPARATION、wdCharacter、wdLine）在单词周围移动。这将选择当前段落并复制到剪贴板

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

---

以下内容将复制您的选择，但检查

wdSelectionNormal

将跳过帧、形状等：

Selection.Paragraphs(1).Range.Select

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

---

以下内容将复制您的选择，但检查

wdSelectionNormal

将跳过帧、形状等：

Selection.Paragraphs(1).Range.Select

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

---

也就是说，使用just

Selection.Copy

如果要复制所选内容，请使用just

Selection.Copy

如果要复制所选内容