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

2024年4月21日 222次阅读 来源: yivifu

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

    Application.ScreenUpdating = False
    Dim aShape As Shape
    For Each aShape In ActiveDocument.Shapes
        If aShape.Type = msoTextBox Or aShape.Type = msoFreeform Then
            txt = aShape.TextFrame.TextRange.Text
            aShape.Select
            Selection.Delete
            Selection.InsertAfter txt
        End If
    Next
    Application.ScreenUpdating = True

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

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

    原文作者：yivifu
    原文地址: https://blog.csdn.net/yivifu/article/details/118240146
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞