代码修改

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