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

pwkduke · 发表于 2004-10-27 11:10

我想实现以下功能：

如图，点一下选择线段按钮，先隐藏窗体回到word ，等用户点一下当前word文档里已预先画好的某一条线段后，自动回到刚才的程序，再得到这条线段的位置信息，再根据上面输入的XY偏移量，来移动该线段。

[此贴子已经被作者于2004-11-18 17:08:48编辑过]

守柔 · 发表于 2004-10-27 11:19

是不是这样:不要隐藏窗体（也可以隐藏），将USERFORM.SHOW (0),即设为无模式,再由用户去选中某一线条,再返回窗体中,取得所选线段的参数,以作偏移之用?

以法需要使用类模块.

你认为必须隐藏窗体吗?

pwkduke · 发表于 2004-10-27 11:30

可以不隐藏，“将USERFORM.SHOW (0),即设为无模式”我不太明白。

守柔 · 发表于 2004-10-27 11:32

对了,你还能否考虑先选定再位移呢?

我目前正在对此程序按照你最新的想法在设计.

守柔 · 发表于 2004-10-27 11:50

简单地做了一个,你可以体会并修饰一下.主要内容应该全了.供楼主参考:

其中的窗体即为无模式的,即无需关闭,直接返回文档中操作,你试一下选定线条,自动弹出窗体,并标出尺寸的.

注意宏安全性必须为低.

wx7or2gP.zip (12.63 KB, 下载次数: 36)

pwkduke · 发表于 2004-10-28 12:56

谢谢，这几天挺忙的，有空试试先。

pwkduke · 发表于 2004-10-29 15:59

请守柔版主解释一下无模式的意思，另外，版主的程序有一个问题就是当程序在运行状态时，只要画一条线，也会弹出该对话框，能不能去除。其实我的本意是想自己做一个画线的程序，实现以下功能，1.连续画线（第二次画线的起始点采用第一次的结束点，只是无法解决出现线头的问题，象矩形的直角跟两条线构成的直角是不同的）。2.移动线段。3.连接两条线（先选择一条线，按一下连线工具，隐藏对话框（也可不隐藏），再选另一条线，弹出对话框，显示出每条线的两个端点坐标，实现连线功能），也就是本帖的用意。4.裁剪（当两条线相交时，剪掉一部分，将X形变成T形），也需要先解决本帖的问题，请版主在技术上予以支持。

[此贴子已经被作者于2004-10-29 16:32:07编辑过]

守柔 · 发表于 2004-10-30 05:05

所谓有模式,是必须完成用户窗体(包括部分WORD内置对话框)中的对话过程,退出或者隐藏窗体后,才能进入其它的用户操作(如页面部分键盘输入鼠标选定), 而无模式则无需关闭或者隐藏用户窗体(包括部分WORD内置对话框),用户与用户窗体的对话的焦点可以移出窗体,回到页面中去则该窗体自动失去焦点.

举个例子: 查找/替换操作,你可以回到页面中去,进行其它操作,而该对话框失去焦点,然后我们可以再回到该对话框中来.(即无模式)

字体对话框,必须先完成该对话框的操作后才能返回文档中去此为有模式状态.

至于你说的画线,我本来就是要你自行修饰的那个程序代码只能算是一个初稿.

连续画线事宜,我觉得你是否可以体会一下WROD中编辑顶点的功能很强大看看是否对你有用或者有启发我觉得你想实现的功能使用编辑顶点就可以完成了.

另外,你如果觉得有用看一看我的作品:<WORD中的AUTO功能>,也许对你有帮助.

希望你能早日完成!

pwkduke · 发表于 2004-11-1 15:16

谢谢版主的解释，版主的<WORD中的AUTO功能>早已拜读,只是我觉得版主的程序使得文档中加了许多无用的点，会造成文件资源的浪费，我的想法就是通过点击线段得到线段的起点和终点的信息，来画线比较经济。

pwkduke · 发表于 2004-11-2 09:35

请教一下守柔版主

我原以为点一下线段可以得到线段的两个顶点的坐标，但是录制了宏之后才发现只能得到图形的左上角坐标和图形的大小，而无法得到坐标，其实关键在于不知道线段的走向，即左高右低“\”还是左低右高“/”，不知道怎样得到这个信息。

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