Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 46|回复: 0

代码修改

[复制链接]
发表于 2021-9-14 16:50 | 显示全部楼层 |阅读模式


想将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

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-9-16 17:56 , Processed in 0.353326 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表