word vba将光标放置于段落中任意位置选择整段

您可以使用以下代码将光标置于段落中，并选择整个段落：

Selection.MoveUp Unit:=wdParagraph, Count:=1 '将光标移动到上一个段落
Selection.MoveDown Unit:=wdParagraph, Count:=1 '将光标移动到当前段落的第一行
Selection.EndKey Unit:=wdLine '将光标移动到段落末尾
Selection.MoveUp Unit:=wdParagraph, Count:=1 '将光标移动到段落开头
Selection.Extend '选择整个段落

请注意，这将选择整个段落，而不是将其高亮显示。如果您希望高亮显示整个段落，请使用以下代码：

Selection.MoveUp Unit:=wdParagraph, Count:=1 '将光标移动到上一个段落
Selection.MoveDown Unit:=wdParagraph, Count:=1 '将光标移动到当前段落的第一行
Selection.EndKey Unit:=wdLine '将光标移动到段落末尾
Selection.MoveUp Unit:=wdParagraph, Count:=1 '将光标移动到段落开头
Selection.HomeKey Unit:=wdLine '将光标移动到行首
Selection.MoveEnd Unit:=wdLine, Count:=1 '将光标移动到行末
Selection.Range.HighlightColorIndex = wdYellow '将整个段落高亮显示