Selection对象在Word VBA中用于表示当前选定的内容或光标的位置。你可以使用Selection.Move、Selection.MoveUp、Selection.MoveDown等方法来移动光标。 示例代码 假设你想要将光标移动到文档的开头,可以使用以下代码: vba Sub MoveToDocumentStart() Selection.HomeKey Unit:=wdStory End Sub 如果你想要将光标移动到文档...
'Selection .Move(Unit, Count) 'Unit 移动的单位和数量 'Count 移动的数量 正数表示向后移动,负数表示向前移动 Sub 光标移动和定位() '将光标定位于文档首行之前 '向后移动3个字符 'Selection.Move 1, 3 '向后移动2段 'Selection.Move 4, 2 '将光标定位于第三行行首 '向上移动2个段落 Selection.Move 4...
在WORD中用VBA实现光标移动与内容选择的方法 在WORD中如何用VBA宏语言选定一行、一段,删除一行、一段,移动光标至行首、行尾、段首、段尾等。请看以下内容。Sub MoveToCurrentLineStart() '移动光标至当前行首 Selection.HomeKey unit:=wdLine End SubSub MoveToCurrentLineEnd() '移动光标至当前行尾 Selection....
Selection.MoveUp unit:=wdParagraph End SubSub MoveToCurrentParagraphEnd() '移动光标至当前段落的结尾 Selection.MoveDown unit:=wdParagraph End SubSub SelectToCurrentParagraphStart() '选择从光标至当前段落开始的内容 Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend End SubSub SelectToCurrentParagraphE...
部分增加了 VBScript 的脚本写法):在 WORD 中用 VBA 宏语言选定 一行、一段,删除一行、一段,移动光标至行首、行尾、段首、段尾 等。 1 2 Sub ' MoveToCurrentLineStart() 移动光标至当前行首 3 ' Selection.HomeKey wdLine 4 Selection.HomeKey unit:=wdLine 5 End Sub 6 Sub MoveToCurrentLineEnd()...
在WORD中如何用VBA宏语言选定一行、一段,删除一行、一段,移动光标至行首、行尾、段首、段尾等。请看以下内容。SubMoveToCurrentLineStart()'移动光标至当前行首Selection.HomeKey unit:=wdLineEnd SubSubMoveToCurrentLineEnd()'移动光标至当前行尾Selection.EndKey unit:=wdLineEnd SubSubSelectToCurrentLineStart(...
vba ms-word 1个回答 0投票 插入不会改变光标位置,这很好。但如果您需要移动两个示例的光标,请尝试 Sub one() Selection.InsertAfter vbCrLf Selection.Move wdParagraph, 1 End Sub Sub two() Dim lastParagraph As Paragraph Set lastParagraph = Selection.Paragraphs(Selection.Paragraphs.Count) lastParagraph...
Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End Sub Sub DisplaySelectionStartAndEnd() '显示选择区的开始与结束的位置,注意:文档第1个字符的位置是0 MsgBox ("第" & Selection.Start & "个字符至第" & Selection.End & "个字符") ...
Const wdMove = 0 下面我将Mr.Abao’S Blog的内容转帖(略作修改,主要是注释部分增加了VBScript的脚本写法):在WORD中用VBA宏语言选定一行、一段,删除一行、一段,移动光标至行首、行尾、段首、段尾等。 1 2 3 4 5 6 7 8 9 10 11 12 13
Shell"Calc.exe"WithTasks("Calculator") .WindowState = wdWindowStateNormal .Move Top:=50, Left:=50EndWith 另請參閱 Application 物件 支援和意見反應 有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱Office VBA 支援與意見反應。