[求助]插入控件的位置??

gbq1208

在word文档中怎么样才能在光标位置插入控件啊??

word本身好象默认的每段的开始位置

守柔

简单地做了一下，你可以自己进一步调试一下，注意：一是你的工具/选项中，插入图形不能是嵌入型，否则，代码要改一下；另外，你可以在代码中设置MyShape的大小和版式。

Sub Example() Dim MyShape As Shape With Selection Set MyShape = ActiveDocument.Shapes.AddOLEControl(Anchor:=.Range, _ ClassType:="Forms.CommandButton.1") MyShape.Left = .Information(wdHorizontalPositionRelativeToPage) End With End Sub

gbq1208

我试了一下,但是每次控件出现在段首向右的位置,假如我在十行为一段的文本的最后位置插入控件的话,控件依旧出现在本段段首向右的位置!!

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-16 11:02:32 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyShape As Shape, SLT As Single, STP As Single SLT = Selection.Information(wdHorizontalPositionRelativeToPage) '获得光标的LEFT位置 STP = Selection.Information(wdVerticalPositionRelativeToPage) '获得光标的TOP位置 ' Debug.Print SLT, STP Set MyShape = ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CommandButton.1", Left:=SLT, Top:=STP) End Sub '----------------------

wangming2

这个代码我试了

获取的光标只是相对于屏幕而加载控件是默认在第一页，

这样的话就是说无法在下边的页（比如第３页）里加载控件

wangming2

应该怎样加上页码的索引让它在当前页上加载呢？

gbq1208

是啊 斑竹 假如一篇文档就一段共三页,那么在第二页的文本中用这段代码的话,控件就跑到第一页去了,在第二页上面什么反映都没有了,怎么办呢??还有就是控件是怎么跳回第一页的啊??

gbq1208

是啊 斑竹 假如文本就一段共三页,那么我在第二页运行这段代码的话,控件就跑到第一页去了,那在第二页怎么才能加上啊,这段代码好象只是记住了光标的坐标而不是位置啊??

守柔

以下是引用gbq1208在2005-8-15 15:17:34的发言：

在word文档中怎么样才能在光标位置插入控件啊??

word本身好象默认的每段的开始位置

严重提示楼主注意，你的问题是在光标位置插入控件！

如果要在某页指定位置插入，应定位到该页！

gbq1208

斑竹啊

我的目的是无论什么情况,我想在任意位置插入任何种控件都是自由的,这是怎么实现的呢