在VBA运行完之后如何让鼠标定位到指定位置？

andy800529

当VBA进行一系列的操作之后，我希望鼠标能够回到最初的位置，应该怎么做？

kqbt

如果光标前面有文字增减 ，是要光标纹丝不动？

andy800529

kqbt 发表于 2015-11-21 07:38
如果光标前面有文字增减 ，是要光标纹丝不动？

呃，VBA只是对字体上进行操作，不对内容进行增减操作。。

kqbt

如果整个过程可以用Range对象来完成，就不用动光标的位置。

loquat

activedocument.range(aRangeStart, aRangeEnd).Select

andy800529

loquat 发表于 2015-11-23 08:41
activedocument.range(aRangeStart, aRangeEnd).Select

谢谢，我尝试一下。

andy800529

loquat 发表于 2015-11-23 08:41
activedocument.range(aRangeStart, aRangeEnd).Select

arangestart和arangeend是什么含义啊？

loquat

这两个参数定义文档位置

andy800529

loquat 发表于 2015-11-23 14:05
这两个参数定义文档位置

不好意思，请问这是可以直接用吗？

andy800529

我还是把整个代码贴出来吧：

1. Sub Filesave()
   
2.     Selection.WholeStory
   
3.     Selection.Font.NameFarEast = "华文细黑"
   
4.     Selection.Font.NameAscii = "Times New Roman"
   
5.     Selection.HomeKey Unit:=wdStory
   
6.     Do
   
7.         Selection.Find.ClearFormatting
   
8.         Selection.Find.Execute findtext:="^#"
   
9.         If Selection.Find.Found = True Then Selection.Font.Name = "Arial"
   
10.     Loop Until Selection.Find.Found = False
    
11. End Sub
    

复制代码