[求助]全部删除WORD中的文本框

wuwei123 · 发表于 2005-5-3 21:50

DOC中好多文本框，不方便打印，如何全部删除，保存文本？如果是PPT中呢？

zwy · 发表于 2005-5-3 22:13

可否上传附件参考一下？

我也很想知道。

叶恋风 · 发表于 2005-5-4 00:29

文本框也是图形对像，要全部删掉对像，不是连图片和艺术字也都删掉了吗？

我办不到，不知有高手行没不

守柔 · 发表于 2005-5-4 09:22

工具/选项/打印：打印对象的附加信息/图形对象前去勾，则所有图形对象不会被打印出来。

wuwei123 · 发表于 2005-5-4 10:45

我的意思是一个文档中有许多文本框，我想一下删除所有文本框，只留文字，方便排版打印，版主的方便打印太费纸！

henterwu · 发表于 2005-5-4 13:11

这个试一下。

Sub 清除图形和线条() If MsgBox(" 清除当前文档中所用的图形对象，继续吗？ ", vbOKCancel + vbExclamation, "提示") = vbOK Then ActiveDocument.Shapes.SelectAll Selection.ShapeRange.Delete End If End Sub

wuwei123 · 发表于 2005-5-4 15:08

楼上的方法很厉害，连文本都删了！

henterwu · 发表于 2005-5-4 20:14

不好意思，不知道你要保留框中的文本，可以试一下去除边框线。

henterwu · 发表于 2005-5-4 20:41

再试试这个：

Sub test() On Error Resume Next For Each shapTxt In ActiveDocument.Shapes shapTxt.TextFrame.TextRange.Select Str1 = Str1 & Selection.Text & Chr(10) Next MsgBox Str1 End Sub

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