zoukankan      html  css  js  c++  java
  • Microsoft Office Word

    快捷键

    选区

    • 选择块:[Shift]+click,光标放到块的一端,然后按住Shift,然后光标放到块的另一端。

    更新域: F9

    右键没有更新域选项时可以使用,如更新全部域先Ctrl + A然后F9

    VBA 技巧

    1. 某个操作不知要调用什么方法可以先录制宏然后查看宏的代码

    图片

    自动编号

    插入 - 题注

    批量修改大小

    1. 在 word 中按 alt+f11 组合键,进入 VBA 模式

    2. 在左边的工程资源管理器中找到你的 word 文档,在其上右键 / 添加 / 模块

    3. 复制,粘贴如下代码,修改 Mywidth 和 Myheigth 为图片宽高

      Sub Macro()
        Mywidth=200 '图片宽度
        Myheigth=200 '图片高度
        For Each iShape In ActiveDocument.InlineShapes
            iShape.Height = Myheigth
            iShape.Width = Mywidth
        Next iShape
      End Sub
      
    4. f5 运行

    批量居中

    Sub ImageCenter()
        For Each iShape In ActiveDocument.InlineShapes
            iShape.Range.Paragraphs.Alignment = wdAlignParagraphCenter
        Next iShape
    End Sub
    

    表格

    设置表头(第一行)和内容(其余行)样式

    (推荐)添加 tableBody,tableHead 样式,给表头和表内容添加样式

    Sub setTableStyle()
        For Each aTable In ActiveDocument.Tables
        
            '表内容
            aTable.Select
            With Selection
                .Style = "tableBody"
            End With
            
            '表头
            aTable.Cell(1, 1).Select
            With Selection
                .SelectRow
                .Style = "tableHead"
            End With
        Next aTable
    End Sub
    

    (不推荐)加粗表格第一行,直接修改样式

    Sub BoldTablesFristRow()
        For Each aTable In ActiveDocument.Tables
            aTable.Cell(1, 1).Select
            With Selection
                .SelectRow
                For Each aCell In .Cells
                    aCell.Range.Bold = True
                Next aCell
            End With
        Next aTable
    End Sub
    

    (不推荐)加粗表格第一行,直接修改样式,会报 <无法访问此集合中单独的行,因为表格有纵向合并的单元格。> 错误

    Sub BoldTablesFristRow()
        For Each aTable In ActiveDocument.Tables
            For Each aCell In aTable.Rows.First.Cells
                aCell.Range.Bold = True
            Next aCell
        Next aTable
    End Sub
    

    段落

    遍历全部段落正则修改内容

    要先在 vba 的菜单上工具 - 引用 - 添加 Microsoft VBScript Regular Express 这个引用才能用

    Sub add_caption()
        Dim title As String
        '正则
        Dim regExp As New regExp
        regExp.Pattern = "^图(.*)[d ]*?(.*?)(?<!。)$"
        
        Application.ScreenUpdating = False
            For Each par In ActiveDocument.Paragraphs
                If regExp.test(par) Then
                    title = "&nbsp;&nbsp;" & regExp.Replace(par, "$1")
                    Selection.InsertCaption Label:="图", TitleAutoText:="", title:=title, _
                    Position:=wdCaptionPositionAbove, ExcludeLabel:=0
                End If
            Next
        Application.ScreenUpdating = True
    End Sub
    

    批量修改表名格式(表名在表上方)

    设置样式为 "题注"

    Sub setTableNameStyle()
        For Each aTable In ActiveDocument.Tables
            With aTable.Range
                .Collapse Direction:=wdCollapseStart
                .Move Unit:=wdParagraph, Count:=-1
                .Select
                .Style = "题注"
            End With
        Next aTable
    End Sub
    

    批量修改图片名格式(图片名在图片下方)

    设置样式为 "题注"

    Sub setImageNameStyle()
        For Each iShape In ActiveDocument.InlineShapes
            With iShape.Range
                .Collapse Direction:=wdCollapseStart
                .Move Unit:=wdParagraph, Count:=1
                .Select
                .Style = "题注"
            End With
        Next iShape
    End Sub
    

    题注

    批量添加表名题注(表名在表上方)

    Sub setTableName()
        For Each aTable In ActiveDocument.Tables
            With aTable.Range
                .Collapse Direction:=wdCollapseStart
                .Move Unit:=wdParagraph, Count:=-1
                .Select
                .Style = "正文"
            End With
            Selection.InsertCaption Label:="表", TitleAutoText:="", title:="  ", _
            Position:=wdCaptionPositionBelow, ExcludeLabel:=0
            Selection.Text = ""
        Next aTable
    End Sub
    

    交叉引用

    给每个表的题注添加交叉引用

    写文档是经常遇到表格上面一段是表名的 “题注”,再上面一段的结尾是 “如表 x-x”,这里的 “表 x-x” 是” 表的题注的交叉引用 “,下面是一个自动添加这种交叉引用的例子:

    Sub add_cr_of_caption()
        Dim i
        i = 1
    
        For Each aTable In ActiveDocument.InlineShapes
            With aTable.Range
                .Collapse Direction:=wdCollapseStart
                .Select
            End With
            Selection.MoveLeft Unit:=wdCharacter, Count:=1
            '交叉引用前面的字
            Selection.TypeText Text:=",如"
            Selection.InsertCrossReference ReferenceType:="图", ReferenceKind:= _
            wdOnlyLabelAndNumber, ReferenceItem:=i, InsertAsHyperlink:=True, _
            IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
            '交叉引用后面的字
            Selection.TypeText Text:="。"
            i = i + 1
        Next aTable
    End Sub
    

    样式批量导入

    样式 - 样式管理 - 导入 / 导出 - 选择两个文件 - 选择样式 - 复制

    正则表达式

    帮助 - 搜索 "正则"

    清除空白页眉页脚横线

    选中空白页眉页脚 - 清除格式

    插入带样式的代码

    从别处复制

    查看全部格式标记

    设置 - 显示 - 查看全部格式标记

    修订

    修订的简单标记会在左边显示红线,点击红线会查看修订的详细情况

    想要不显示左边的红线选无标记就行

    参考

    News, Tips, and Advice for Technology Professionals - TechRepublic

  • 相关阅读:
    streamsets 集成 cratedb 测试
    streamsets k8s 部署试用
    streamsets rest api 转换 graphql
    StreamSets sdc rpc 测试
    StreamSets 相关文章
    StreamSets 多线程 Pipelines
    StreamSets SDC RPC Pipelines说明
    StreamSets 管理 SDC Edge上的pipeline
    StreamSets 部署 Pipelines 到 SDC Edge
    StreamSets 设计Edge pipeline
  • 原文地址:https://www.cnblogs.com/jffun-blog/p/10327338.html
Copyright © 2011-2022 走看看