Office中国论坛/Access中国论坛

标题: 请教word"自动选择文本框"问题 [打印本页]

作者: zbs20528 时间: 2009-8-29 15:20
标题: 请教word"自动选择文本框"问题
本帖最后由 zbs20528 于 2009-8-29 23:46 编辑

一个文件有很多文本框
现在要做的是把所有文本框都变成图文框
需要一个循环来自动选择所有的文本框
我想用for each ..next 说4120错误
我又用textboxn.setfocus 说424没对象
谁可以给点提示？谢谢

作者: 小菜 时间: 2010-7-19 15:07
楼主试试下面的代码：

Sub test()
Dim oTF As Shape
For Each oTF In ActiveDocument.Shapes
If oTF.Type = msoTextBox Then
oTF.ConvertToFrame
End If
Next oTF
End Sub

复制代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)