如何在VBA Word中将选择转换为字符串

Question

我想在字符串中输入选择词，例如：

Dim str As String

Selection.Paragraphs(1).Range.Select
Selection.Copy
str = Selection.Paste

Answer 1

而不是使用复制粘贴：

str = Selection.Paragraphs(1).Range.Text