将word文档中所有文本框中的内容转换成普通段落

某些pdf转word工具生成的word文档，会将很多内容放在文本框中，以至于编辑word文档不太方便，例如想全选所有段落中的文字再调整某些格式，文本框中的文字有时候不能像普通段落中的文字一样产生同样的效果。于是不免想找一个简单的方法将word文档中所有文本框中的内容全部取出来放到一个普通段落中。遇到大量的、性质相近的、方便自动化执行的工作，首先想到的是VBA。下面的VBA代码可以实现将文档中所有文本框中的内容转换成普通段落的功能：

    Application.ScreenUpdating = FalseDim aShape As ShapeFor Each aShape In ActiveDocument.ShapesIf aShape.Type = msoTextBox Or aShape.Type = msoFreeform Thentxt = aShape.TextFrame.TextRange.TextaShape.SelectSelection.DeleteSelection.InsertAfter txtEnd IfNextApplication.ScreenUpdating = True

代码太过简单，就不多做解释了。word中插入的图片或者文本框之类，都是shape。通过shape的type属性可以判断是否文本框。type的值可以查MSDN。

上述代码将文本框中的内容直接插入在文本框所在位置。如果文本框比较奇葩，只在页面中起个定位作用，内容却包含了不同行的文本，那么转换后的内容就难以阅读了。这个问题人是根据上下文一眼可以看出来文本应该放置的位置的，但AI目前还不能做到这一点，VBA就更是无能为力了。希望你好运，碰到的文本框其内容恰好就该放在文本框所在的位置，那么这个宏就真正能用上了。

将word文档中所有文本框中的内容转换成普通段落相关推荐

Excel VBA实现从多篇Word文档内抓取文本框内内容（书接上一篇博客）
Excel VBA实现从多篇Word文档内抓取文本框内内容(书接上一篇博客) 一.前情提要我在上一篇博客<VBA摘取Word图形(Shapes)内文字>里验证了遍历doc文档内图形--尤 ...
ChatGPT | Word文档如何更好地提取表格内容给ChatGPT
本文来自http://blog.csdn.net/hellogv/ ,引用必须注明出处! Word文档如何更好地提取表格内容给ChatGPT做知识库,这属于文本预处理工作. 本文只讲思路.测试结果,技 ...
在html中加入文本框,在HTML中的文本框中添加多行
我试图在保留设计的同时让我的文本框有多行.我对HTML/CSS相当陌生,所以请让我知道你是如何做这个家伙的.在HTML中的文本框中添加多行此外,我试图让按钮在底部文本框的中心. 这是我的代码现在: ...
利用onblur事件实现文本框中英文字母全部转换成大写
利用onblur事件实现文本框中英文字母全部转换成大写 <body>文本框中输入:<input type="text" id="inp" v ...
SQL 把表中字段存储的逗号隔开内容转换成列表形式
原文:[原创]SQL 把表中字段存储的逗号隔开内容转换成列表形式我们日常开发中,不管是表设计问题抑或是其他什么原因,或多或少都会遇到一张表中有一个字段存储的内容是用逗号隔开的列表. 具体效果如下图: ...
Word控件Spire.Doc 【文本】教程(5) ；从 Word 文档中的文本框中提取文本
文本框的目的是允许用户输入程序要使用的文本信息.也可以从文本框中提取现有的文本信息.以下指南重点介绍如何通过Spire.Doc for .NET从 C# 中 Word 文档的文本框中提取文本. Spi ...
【C#】C#使用Microsoft.Office.Interop.Word操作Word文档，替换文本
最近要做一个批量打印文档功能,于是找了Microsoft.Office.Interop.Word这个插件. 基本步骤是这样的,创建Word模板文档,C#调用模板文档替换对应的文本,保存新文档. 下面仅 ...
python批量读取图片并复制入word_提取出 Word 文档里的图片并利用 python 批量转换格式...
日常工作中,你是否遇到过这样的场景,领导发来一份 Word 文档,要求你将文档中的图片存储到一个文件夹内,并且还要将图片都改成 .jpg 或者 .png,你会怎么办?你是不是一边内心崩溃,一边开始一张 ...
Word文档如何去除页眉中的横线
1．设置"边框和底纹"去掉Word页眉横线在"边框和底纹"对话框中可以去掉Word页眉横线,操作步骤如下所述: 第1步,打开Word2003文档窗口,在菜单栏 ...

将word文档中所有文本框中的内容转换成普通段落

将word文档中所有文本框中的内容转换成普通段落相关推荐

最新文章

热门文章