word怎样去掉图文框,又保留文字呢

2024-11-06 07:32:03
推荐回答(5个)
回答(1):

1、如果是文字边框:选定——菜单栏——格式——边框和底纹——边框——设置:无;应用于:选文字或段落(根据情况)确定;
2、如果是页面边框:选定——菜单栏——格式——边框和底纹——页面边框——(参考以上操作);
3、如果是文本框:点选——右键——设置文本框格式——转换为图文框——设置图文框格式——删除图文框——再参考以上——去掉边框。

回答(2):

文本框你也可以采用在边框上右键,设置边框格式,采用无线条就可以了

回答(3):

如果是表格,可以选择“表格”--“转换” 将表格转换成文档。
文本框就先把内容复制出来再处理吧,其他方法就不清楚了

回答(4):

你可以先选重文本框然后在下面的状态栏中把文本框的轮廓色设为无,即可了,(这是我所理解的你的问题,),!

回答(5):

word批量去除文本框保留文本

文本框一般以浮动的形式(即文字环绕方式为四周环绕、紧密环绕、衬于文字上方等)存在于文档中,选中文本框时可以看到在它的左侧有一个锚定标记,锚标总是在某一个段落的开头位置,表示浮动的文本框锁定于该段落,如图。

如果一个文档中存在大量文体框,需要去除文本框而保留其中的文字的话,在编写代码时,可以根据文本框存在锚定标记这一特点,把文本框内的文本放于锁定段落的后面,再删除文本框。

利用VBA代码批量去除文本框保留文本,不能保证文本的顺序是正确的,所以事后需要检查。下面是代码。

Sub 批量去除文本框()
'批量去除文本框,保留文本。嵌入式或浮动式的文本框都可以处理,但存在组合的文本框时无法处理。
Dim oshap As Shape, i&
Application.ScreenUpdating = False
If ActiveDocument.Shapes.Count > 0 Then
For i = ActiveDocument.Shapes.Count To 1 Step -1 '从最后一个开始往前处理,因为文本框一般为浮动式的,从前往后处理,会引起后面文本框位置的变化。
Set oshap = ActiveDocument.Shapes(i)
If oshap.TextFrame.HasText Then '存在文本时处理。因为shapes不仅包含文本框,也包含其他形状、图片等对象,所以需要判断。
oshap.Anchor.Paragraphs(1).Range.InsertAfter oshap.TextFrame.TextRange '在文本框锁定段落的后面插入文本框中的文本。
oshap.Anchor.Paragraphs(1).Next.Range.Font.ColorIndex = wdDarkRed '把文本设置为红色,以便后面检查。因为可能存在错乱。
oshap.Delete '删除文本框
End If
Next i
End If
Application.ScreenUpdating = True
End Sub