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

某些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就更是无能为力了。希望你好运,碰到的文本框其内容恰好就该放在文本框所在的位置,那么这个宏就真正能用上了。

  • 1
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 2
    评论
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

yivifu

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值