word怎样去掉图文框,又保留文字呢
5个回答
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
文本框你也可以采用在边框上右键,设置边框格式,采用无线条就可以了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是表格,可以选择“表格”--“转换” 将表格转换成文档。
文本框就先把内容复制出来再处理吧,其他方法就不清楚了
文本框就先把内容复制出来再处理吧,其他方法就不清楚了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以先选重文本框然后在下面的状态栏中把文本框的轮廓色设为无,即可了,(这是我所理解的你的问题,),!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
文本框一般以浮动的形式(即文字环绕方式为四周环绕、紧密环绕、衬于文字上方等)存在于文档中,选中文本框时可以看到在它的左侧有一个锚定标记,锚标总是在某一个段落的开头位置,表示浮动的文本框锁定于该段落,如图。
如果一个文档中存在大量文体框,需要去除文本框而保留其中的文字的话,在编写代码时,可以根据文本框存在锚定标记这一特点,把文本框内的文本放于锁定段落的后面,再删除文本框。
利用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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询