代码修改（把word的文本变成双列表格 跳过图片）

yang1998

想将word中的所有纯文本做成双列表格 左列隐藏
目前的代码把所有图片也做成了表格 目前想修改代码 跳过图片 只对纯文本操作 感谢各位大佬帮忙修改代码
Sub Main()
'整个程序入口
Call TextToTables1
End Sub

Sub TextToTables1()
'
'Text to Tables
'
'操作前请选中需要处理的内容
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
         NumRows:=2, AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        .Style = "网格型"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
    End With
Call TablesFormat
End Sub

Sub TablesFormat()
Selection.Columns(1).Select     '选中表格第Source列
Selection.Copy                  '将Source复制一份
Selection.Paste
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)   '表格宽度根据窗口自适应
Selection.Font.Hidden = True     '将Source列隐藏
End Sub

yang1998

急急急 希望各位大佬帮帮忙