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

       使用word批量制作证书，发现制作好人证书单个保存时有点麻烦， 特用python实现批量修改word文本框内容，生成单个word文件。

       本代码段中涉及word文档包含一张底图图片，及两个文本框。其他童鞋有需要修改多个文本框内容的，可依次添加。

# 导入包
import osimport time
from threading import Thread
import pythoncom
import win32com.client
from openpyxl import load_workbook
# 声明 doc 之前要加入的代码
pythoncom.CoInitialize()
# 模拟打开office
word = win32com.client.Dispatch('Word.Application')
# 后台运行
word.Visible = False
if not os.path.exists('批量创建word证书'):    
    os.mkdir('批量创建word证书')

# 加载证书明细
wb = load_workbook("data.xlsx")
old_text1 = sheet.cell(row=1, column=1).value
old_text2 = sheet.cell(row=1, column=2).value

# 文本框替换函数
def text_box_replace(start_num, end_num):    
    for row in range(start_num, end_num):        
    # 打开模板文件        
    doc = word.Documents.Open(r"模板.docx")        
    # 读取需要替换的值       
    new_text1 = sheet.cell(row=row, column=3).value        
    new_text2 = sheet.cell(row=row, column=11).value        
    for shp in doc.Shapes:            
        if shp.TextFrame.HasText:          
           shp.TextFrame.TextRange.Find.Execute(FindText=old_text1,ReplaceWith=new_text1, Replace=1, Forward=True)
           shp.TextFrame.TextRange.Find.Execute(FindText=old_text2, ReplaceWith=new_text2, Replace=1, Forward=True)
    # 文件保存        
    filename = str(sheet.cell(row=row, column=1).value)        
    doc.SaveAs(r'证书-{}.doc'.format(filename))        
    doc.Close()

# 列表推导式 创建多线程
threads = [Thread(text_box_replace(i, i + 1)) for i in range(2, sheet.max_row + 1, 1)]
# 启动线程
[t.start() for t in threads]
[t.join() for t in threads]

print('证书批量制作完成')

参考：https://plus.wps.cn/blog/p12970.html

单击工具栏 开始 下的 选择 ，在选择的下拉菜单当中选择“选择对象”，然后用鼠标选中所有要删除的文本框，然后就一次选中了，然后再右键删除或者键盘上delete就可以了。

还可以一次性把鼠标斜着拖曳，选择一个区域中所有的文本框。

如上图所示，可以看到，如果一个一个单独删除上面一排文本框是比较麻烦和浪费时间的。
而一次选中再删除就比较方便。