批量表格转换为文本的vba

逐月飞鸿

'一次性选择WORD文档中的所有表格的vba如下：网上收集的，在此谢谢原作者
Sub 选中所有表格()

    Dim tempTable As Table

    Application.ScreenUpdating = False

    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        'tempTable.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
        tempTable.Range.Editors.Add wdEditorEveryone
        
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True

End Sub
我们知道：再word2010和2007中，选中一个表格后，可以通过表格的布局中的：表格转换成文字按钮
实现表格转换成文字：录制的宏如下，选中表格中任何一行：
Sub 宏2()
'' 宏2 宏
'    Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
        NestedTables:=False
End Sub下：
但是运行上面“选中所有表格”后，“表格转换成文字”按钮却是灰色的，不能实现全部表格批量转换成文字，请教高手，能不能把Sub 宏2()
融入到“选中所有表格”宏中，实现批量转换。？
谢谢！

逐月飞鸿

Sub TbConvertToTx()
Dim tb As Table
For Each tb In ActiveDocument.Tables
tb.ConvertToText Separator:=wdSeparateByTabs'或Separator:=wdSeparateByParagraphs之类的，自己改
Next
End Sub
http://club.excelhome.net/viewthread.php?tid=411780

ak47ok

每次回帖、谢谢！

psystyle

标记一下，，，，，，，，

renkangjizhen

Word VBA接触不多，学习一下