VBA 快速实现Word三线表

た入场券 2023-06-18 14:53 8阅读 0赞

Sub TablLine3()
        ' 三线表格式设置
        Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
     
        
        Options.DefaultBorderLineWidth = wdLineWidth100pt
        With Selection.Borders(wdBorderTop)
            .LineStyle = Options.DefaultBorderLineStyle
            .LineWidth = Options.DefaultBorderLineWidth
            .Color = Options.DefaultBorderColor
        End With
        Options.DefaultBorderLineWidth = wdLineWidth100pt
        With Selection.Borders(wdBorderBottom)
            .LineStyle = Options.DefaultBorderLineStyle
            .LineWidth = Options.DefaultBorderLineWidth
            .Color = Options.DefaultBorderColor
        End With
        
        Options.DefaultBorderLineWidth = wdLineWidth025pt
        With Selection.Rows(1).Borders(wdBorderBottom) '第一行的底边框
            .LineStyle = Options.DefaultBorderLineStyle
            .LineWidth = Options.DefaultBorderLineWidth
            .Color = Options.DefaultBorderColor
        End With
        
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，8人围观）

还没有评论，来说两句吧...

相关阅读

相关 WORD图片版式转换宏VBA

' ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ ' Created By SHOUROU@ExcelHome 2007-12-11 5:28:2

冷不防/ 2023年10月08日 10:16/ 0 赞/ 44 阅读

相关 word VBA_替换下划线

Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting

傷城~/ 2023年07月10日 09:00/ 0 赞/ 201 阅读

相关 VBA 快速实现Word三线表

Sub TablLine3() ' 三线表格式设置 Selection.Borders(wdBorderTop).LineStyle =

た入场券/ 2023年06月18日 14:53/ 0 赞/ 9 阅读

相关使用latex做三线表

LawsonAbs的认知与思考，还请各位读者批判阅读。总结文章来源：csdn：LawsonAbs 持续更新~ --------------------

向右看齐/ 2022年12月30日 10:37/ 0 赞/ 534 阅读

相关论文中的三线表绘制（word）

步骤 1、选中表格（点击下图中的红框部分选中） ![20200807084310612.png][] 2、右击表格选择“表格属性” ![watermark_type

àì夳堔傛蜴生んèń/ 2022年11月25日 01:56/ 0 赞/ 268 阅读

相关 WORD中插入三线制表格

1、在电脑上打开一个word文档，依次点击界面选项中的“插入/表格”，插入一个5x4的表格。 ![watermark_type_ZmFuZ3poZW5naGVpdGk_sha

心已赠人/ 2022年10月23日 08:25/ 0 赞/ 353 阅读

相关 Word 利用 VBA 批量设置图片格式

Word 利用 VBA 批量设置图片格式批量设置图片格式转为嵌入式图形参考资料批量设置图片格式 Sub setShapeStyl

左手的ㄟ右手/ 2022年10月07日 02:53/ 0 赞/ 526 阅读

相关 VBA 学习笔记 Word样式处理

VBA 学习笔记 Word样式处理移除样式并保留格式删除用户自定义样式删除未使用样式判断样式是否存在参考资料移除样式并保留格

╰+攻爆jí腚メ/ 2022年10月07日 01:56/ 0 赞/ 651 阅读

相关 Word 2016 撰写论文(3): 文献中常见的表格（三线表）制作

![20190702141057492.png_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly94aW9uZ3lpbWlu

一时失言乱红尘/ 2022年05月16日 02:19/ 0 赞/ 685 阅读

相关 latex 三线表

LaTeX 处理三线表相当简单方便。用到的宏包主要是 booktabs 。代码如下：需要添加包：\\usepackage\{booktabs\}。 \\documentc

Myth丶恋晨/ 2021年12月20日 04:29/ 0 赞/ 690 阅读