有图片和表格的报告快速排版，求选中除了图片和表格外所有文字的宏程序

wx_24791

有图片和表格的报告快速排版，求选中除了图片和表格外所有文字的宏程序

limonet

另存为文本。

小鹏的账号

Sub SelectTextExcludingImagesAndTables()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim rng As Range
    Set rng = doc.Content
    rng.Find.ClearFormatting
    rng.Find.Execute FindText:="[!^13^t]", MatchWildcards:=True
    While rng.Find.Found
        rng.Select
        Set rng = doc.Range(rng.End, doc.Content.End)
        rng.Find.Execute FindText:="[!^13^t]", MatchWildcards:=True
    Wend
End Sub



使用方法：
按 Alt + F11 打开 VBA 编辑器。
在编辑器中，点击 “插入”->“模块”。
将上述代码粘贴到模块中。
回到 Word 文档，按 Alt + F8 打开宏对话框，选择这个宏并运行，
   

可以去试试看，不保真