[求助]在WORD的VBA里能不能实现选择功能？

守柔 · 发表于 2004-11-17 05:38

请参此贴:

http://club.excelhome.net/viewthread.php?tid=3502&extra=&page=1#72278

即将该模板中的OPEN事件代码改为AUTOEXEC中:

Private Sub Document_Open() Register_Event_Handler With ActiveDocument.PageSetup X0 = .LeftMargin Y0 = .TopMargin End With On Error Resume Next ActiveDocument.Shapes("原点").Select X1 = Selection.ShapeRange.Left Y1 = Selection.ShapeRange.Top End Sub

改为如下:

Sub AutoExec() Register_Event_Handler With ActiveDocument.PageSetup X0 = .LeftMargin Y0 = .TopMargin End With On Error Resume Next ActiveDocument.Shapes("原点").Select X1 = Selection.ShapeRange.Left Y1 = Selection.ShapeRange.Top End Sub

pwkduke · 发表于 2004-11-17 10:22

版主的程序与第5帖里上的文件内容不符，是不是就是把第5帖里的文件里的

Private Sub Document_Open() Register_Event_Handler UserForm1.Show (0) End Sub

改成

Private Sub AutoExec() Register_Event_Handler UserForm1.Show (0) End Sub

就可以用了。我试了一下，好象还是不行。

守柔 · 发表于 2004-11-17 10:41

Private Sub AutoExec() Register_Event_Handler UserForm1.Show (0) End Sub

你将上述的Private Sub AutoExec()改为Sub AutoExec()再试一下.

pwkduke · 发表于 2004-11-18 10:01

行了！！

但是我的程序还是不行，第一次可以，第二次就不行了。请守柔版主帮忙看看。

将文件拷到startup下，打开word ，随意画两条线，点击一条线后，运行“word移动”，弹出对话框，点击“参考线段”，再点击另一条线，可以再次弹出对话框，并在上面显示出参考线段的参数，但是实际运行时，第一次可以，第二次就不行了。而且第一次对话框虽然弹出来，但是没有显示出参考线段的参数，代码没问题，好象是在这种状态下无法对话框进行操作。另外把文件拷到startup下之后，就没有办法进行程序调试，有什么办法吗？

我的思路是，将注册表中的“已注册”设成“”，当我点击“移动”对话框的参考线段时，将“已注册”设成“ok”，当此时点击其他线段时，弹出“移动”对话框，并将已注册设成空值，而平时点击时因为已注册的值为空，所以不弹出对话框。

cPKC9XcT.rar (26.23 KB, 下载次数: 12)

[此贴子已经被作者于2004-11-18 11:12:32编辑过]

pwkduke · 发表于 2004-11-22 08:26

守柔版主，帮我看一下吧！有些自动执行的东西我不太懂。只能依葫芦画瓢，现在葫芦也没了，我怎么画瓢啊！

[此贴子已经被作者于2004-11-22 17:11:09编辑过]

		自动登录	找回密码
密码			免费注册