用vba删除特定形状后，光标如何能回到原先位置？

xiaoyouxi01

测试文档请见附件。

先将光标定位在某个位置（位置1），然后运行下面这句代码，将名为“矩形 1”的形状删除。

1. Sub deleteMyShape()
   
2.     ActiveDocument.Shapes("矩形 1").Delete
   
3. End Sub
   

复制代码

这句代码运行后，光标会变到原先形状所在的段落（位置2）。

我希望在形状删除后，光标能重新回到原先的位置（位置1）。请教一下大家，代码该如何写？

或者有没有其他语句，可以删除某个形状而不会改变光标位置？

test.rar (12.67 KB, 下载次数: 7)

2018-7-16 23:05 上传

点击文件名下载附件

413191246se

楼主，你的代码似乎不对，看我的，光标就不动：
ActiveDocument.Shapes(1).Delete

xiaoyouxi01

413191246se 发表于 2018-7-17 12:52
楼主，你的代码似乎不对，看我的，光标就不动：
ActiveDocument.Shapes(1).Delete

我用你的代码试了一样会动。。= =！

但是很奇怪，我在单位电脑上试我自己的代码，光标就不动；而用家里的电脑试就会动。。。也不知道什么原因。。

xiaoyouxi01

有没有办法可以记录当前光标所在的段落，然后再重新将光标定位到这个段落？

413191246se

楼主请试试：

1. Sub test光标原来位置()
   
2.     Dim r As Range
   
3.     Set r = ActiveDocument.Range(Selection.Start, Selection.End)
   
4.     '以上代码记录原位置
   
5. '''----------------------------------------------------
   
6.     Selection.EndKey unit:=wdStory '此句代码可以替换为别的动作
   
7. '''----------------------------------------------------
   
8.     '以下代码回到原位置
   
9.     r.Select
   
10. End Sub

复制代码

xiaoyouxi01

413191246se 发表于 2018-7-18 14:05
楼主请试试：

太棒了！完美解决我的问题！！！非常感谢！