请教word"自动选择文本框"问题

zbs20528 · 发表于 2009-8-29 15:20:51

本帖最后由 zbs20528 于 2009-8-29 23:46 编辑

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

小菜 · 发表于 2010-7-19 15:07:38

楼主试试下面的代码：

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

复制代码

帐号		自动登录	找回密码
密码			注册

主题相关群

地区相关群[您还没设置居住地]

请教word"自动选择文本框"问题

群介绍
主题无相 (随机显示版	同地区群块其他地区)

群介绍
Word中国官方群 (186310675)