zoukankan      html  css  js  c++  java
  • Microsoft Word —— 使用宏脚本将所有表格添加边框

    前言

    写文档写废掉了

    内容

    宏脚本内容

    Sub 宏1()
    '
    ' 宏1 宏
    '
    '
    For Each aTable In ActiveDocument.Tables
    '    aTable.Borders.OutsideLineStyle = wdLineStyleSingle
    '    aTable.Borders.OutsideLineWidth = wdLineWidth025pt
    '
    ''    aTable.Borders.InsideLineStyle = wdLineStyleSingle
    ''    aTable.Borders.InsideLineStyle = wdLineWidth025pt
        With aTable
            aTable.Select
            With .Borders(wdBorderLeft)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderRight)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderTop)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderBottom)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderHorizontal)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            With .Borders(wdBorderVertical)
                .LineStyle = wdLineStyleSingle
                .LineWidth = wdLineWidth050pt
                .Color = wdColorAutomatic
            End With
            .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
            .Borders.Shadow = False
        End With
        With Options
            .DefaultBorderLineStyle = wdLineStyleSingle
            .DefaultBorderLineWidth = wdLineWidth050pt
            .DefaultBorderColor = wdColorAutomatic
        End With
    Next aTable
    
    
    End Sub
    
    
    

    运行脚本

    视图->->查看宏->编辑->粘贴脚本->运行

  • 相关阅读:
    Python中列表
    Python中For循环
    While循环
    python中if else流程判断
    python中get pass用法
    python学习
    Forbidden Attack:7万台web服务器陷入被攻击的险境
    爱恨交织!我们经常抱怨却离不开的7种语言
    玩转大数据,你需要了解这8种项目类型!
    如何用 Python 实现 Web 抓取?
  • 原文地址:https://www.cnblogs.com/wangyang0210/p/14034584.html
Copyright © 2011-2022 走看看