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

pwkduke

守柔版主能不能帮帮我啊

守柔

以下是引用pwkduke在2004-11-2 9:35:00的发言：

请教一下守柔版主

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

你这个问题问得有些难度，因为在WORD或者VB中，确定图形的位置，其实只有一个点，那就是左上角的坐标（.left,.top)，其它的数据都是以此为参照，如height,width等,所以我也不知如何是好.问题是,有没有这么必要做?你的目的是什么?能不能考虑其它的方式(过程)来完成呢?

我记得以前我也曾研究过关于斜线相交,查找交点的事,终因水平不济无功而返.

pwkduke

因为我想做移动的功能，也就是使一条线移到另一条线上，使其首尾相交，所以如果是“/”，就要取左下角的点，如果是“\”就必须取左上角的点。只有知道这条线的具体坐标才能知道如何用移动来拼接，还可以扩展到相交的剪切。其时如果是自己玩玩可以做得差一点，加一个“/”和“\”的模式选择，但如果是拿出来给大家共享的话，就显得档次太低了。不是精品就不拿出来见人。

pwkduke

守柔版主，请教一下，模块与类模块有何区别。为什么你的pwkpuke里把

Public WithEvents App As Word.Application Private Sub App_WindowSelectionChange(ByVal Sel As Selection) Dim mark As String On Error Resume Next If Sel.Type = wdSelectionShape Then If Sel.ShapeRange.Type = msoLine Then With UserForm1 .Show (0) .TextBox1 = Sel.ShapeRange.Left .TextBox2 = Sel.ShapeRange.Height End With End If End If End Sub 放在类模块里。

Dim X As New EventClassModule Sub Register_Event_Handler() Set X.App = Word.Application End Sub

上面的一段有什么用？

守柔

一则WORD中如果需要处理此类事件必须在类模块中进行声明，然后初始化类模块。

若要创建 Application 对象事件的事件处理器，需要完成下列三个步骤：

在类模块中声明对应于事件的对象变量。

编写指定事件的过程。

从其他模块中初始化已声明的对象。

详细情况可搜索WORD VBA帮助文件中的“使用application对象事件”。

pwkduke

谢谢版主的指点，不过我还是用不起来。因为我把我做的程序放在normal.dot里，这样才能让所有的文档都可以使用这个绘图软件，而版主的程序在打开文件时可以实现这个功能，但是如果存成normal.dot后，就不能实现了，我不知道这样是方法不对还是思路不对。请守柔版主指教一二。

守柔

你可以将其做成模板(不要做成NORMAL.DOT),然后做为加载宏加载.

或者以此模板为新建.前次有个工程师问我我曾详细给他解释过,但MSN中的发信箱中竟然连一点蛛丝蚂迹都没有了.

我记得是加载宏比较好,你再试一下.

NORNAL.DOT中需要用AutoExec,以初始化类模块.

pwkduke

版主，我试了一下，不行，Word里的加载宏好象不是自动加载的，我添加了之后，打上勾，第二次打开WORD后勾就没了，没有自动加载。

[此贴子已经被作者于2004-11-8 14:19:30编辑过]

守柔

你可以放在STARTUP文件夹下啊！

通常路径：C:\Documents and Settings\UserName\Application Data\Microsoft\Word\STARTUP

加载模板或加载项之后，它只在当前的 Word 会话中保持加载状态。如果退出并重新启动 Word，该模板或加载项不会自动重新加载。若要在启动 Word 时自动加载模板或加载项，请将模板或加载项存储在启动文件夹中。若要查看或更改“启动”文件夹的设置，请单击“工具”菜单中的“选项”，然后单击“文件位置”选项卡。

pwkduke

试了一下，可以自动加载了，但是功能无法用。也就是没有点击线段就弹出对话框的功能。请守柔版主自己先试一下。