美文网首页PPT设计~解锁新姿势
软件技能|Word三线表格式刷

软件技能|Word三线表格式刷

作者: 马骋 | 来源:发表于2016-04-26 19:37 被阅读234次

问题描述

将word中的标准表格设为论文常用的三线表格。

解决方法

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

使用示例

  • Alt + F11进入word VBA编程模块,将以上代码拷贝到此处;
    TabLine3.jpg-206.2kBTabLine3.jpg-206.2kB
  • Alt + F8进入宏运行选项;
  • 运行TabLine3;
    macro.jpg-193.2kBmacro.jpg-193.2kB
  • 处理结果;


    Demo.jpg-56.6kBDemo.jpg-56.6kB

相关文章

  • 软件技能|Word三线表格式刷

    问题描述 将word中的标准表格设为论文常用的三线表格。 解决方法 使用示例 Alt + F11进入word VB...

  • Word三线表

    写论文都流行三线表,这个设置起来也比较简单,以word2007为例:首先将光标落在自己的表格上,之后点击表格,新建...

  • 你有什么技能?

    “你有什么技能?”“word ,excel ,ppt ,这些软件我都会。”“这不是技能”。 如果会这些办公软件不是...

  • word制作三线表并设置线宽

    说明:本文完全参考于百度经验里面的怎样使用word2013制作三线表首先看看已经制作好的一张三线表 1.“插入”菜...

  • pdf转成word后格式调试

    pdf转成word后格式调试?我们常用的pdf转换软件在处理pdf文件转成了word文件时,经常会出现文件的格式方...

  • pdf转成word后格式快速调整

    pdf转成word后格式调试?我们常用的pdf转换软件在处理pdf文件转成了word文件时,经常会出现文件的格式方...

  • word多次使用格式刷

    格式刷这个功能说实话还是挺有用的!然后就是一般默认是只能使用一次,多次使用的关键一步就是快速双击格式刷,如图所示(...

  • word格式刷的问题

    女友在写毕业论文的时候,遇到一个使用格式刷的问题。出现这个问题的原因是对格式刷使用方式的理解有差别。她理解的格式刷...

  • 连格式刷都不会用,你不加班谁加班?

    格式刷在Word中是一个神奇的工具,用好它可以减少很多不必要的麻烦,今天给大家分享一下关于格式刷的用法。 格式刷的...

  • 如何快速制作三线表格式数据

    在做论文分析时,多少会用到一些表格辅助,论文中最常见的就是三线表。 但这时大家一定会有这样的苦恼:"软件输出的格式...

网友评论

    本文标题:软件技能|Word三线表格式刷

    本文链接:https://www.haomeiwen.com/subject/ixtcrttx.html