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