word2003里如何用VB实现粘贴并选中

lister135135

word2003里如何用VB实现粘贴并选中，就是粘贴剪切板上的内容，然后又选中刚才粘贴的内容，以备下一步操作

shenjianrong163

试一下可行不

1. Sub test()
   
2.     Dim pos As Integer
   
3.     pos = Selection.Start
   
4.     Selection.Paste
   
5.     Selection.Start = pos
   
6. End Sub

复制代码

：

过客fppt

过客fppt

过客fppt 发表于 2024-8-16 12:00

1. Sub 粘贴剪切板内容并选中()
   
2.     Dim j, l As Long
   
3.     j = Selection.Range.Start
   
4.     Selection.Paste
   
5.     l = Selection.Range.End
   
6.     Selection.SetRange j, l
   
7. End Sub
   

复制代码

batmanbbs

才看到和2#一样

lister135135

shenjianrong163 发表于 2024-8-16 11:30
试一下可行不
：

我在word2003中，用起来很好，谢谢！

lister135135

过客fppt 发表于 2024-8-16 12:02

刚才测试了，可用！谢谢

lister135135

batmanbbs 发表于 2024-8-16 16:19
才看到和2#一样

已经把三位大侠的代码都测试了，都非常好用，在这里一并感谢