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
    
    
    

    运行脚本

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

  • 相关阅读:
    android git问题File not found: git.exe
    asp.net 连接数据库的问题总结
    asp.net记账本
    asp.net对数据库增删改操作
    asp.net 连接数据库操作
    第九、十周周记
    作业四-兴趣问题清单
    价值观作业
    第七周周记
    第三次作业问卷调查
  • 原文地址:https://www.cnblogs.com/wangyang0210/p/14034584.html
Copyright © 2011-2022 走看看