• <tr id="29943f86"><strong id="35fdad0e"></strong><small id="7795bfd2"></small><button id="17a3b047"></button><li id="3ad7f8b"><noscript id="6a92f98a"><big id="2d699b3b"></big><dt id="4dc103aa"></dt></noscript> </tr><ol id="6a897f7f"><option id="157c6481"><table id="65fb14d"><blockquote id="3daced39"><tbody id="11dd73a3"></tbody></blockquote></table></option></ol><u id="637cba20"></u><kbd id="7302c861"><kbd id="6f28bbce"></kbd></kbd>
  • 千赢国际教程下载和软件下载中心,Microsoft技术社区联盟成员,全球极具影响力的千赢国际门户,Office技术培训社区

    用Word VBA排版,你试过吗?

    2018-06-23  作者:千赢国际Home  阅读:

    千赢国际 VBA 为大家所熟知,在数据处理方面其强大之处不再述说。今天为大伙带来一小段Word VBA 千盈,主要是用于VBA 在Word文档中的排版使用。对于经常排版文书的同志们可以了解下,希望能让你的Word排版效率提高那么“一点点”。

    单步运行效果如下:



    代码如下:

    Option Explicit '强制

    'Word VBA 常用语句(在Word VBE中运行)

    SubWordVbaCode()

    '声明Sel 为Selection

    DimSel AsWord.Selection

    Set Sel = Selection '实例化Sel

    Sel.WholeStory '全选文档内容

    Sel.ClearFormatting '清除所选文本格式

    Sel.Collapse 1 '取消选择,光标移至段头位置

    '【常用字体的设置】

    Sel.Expand 5 '光标点扩选当前行

    Sel.Font.Size = 16 '设置3号字体

    Sel.Font.ColorIndex =wdBlue '设置蓝色字体

    Sel.Font.Name = "楷体" '设置楷体字

    Sel.Font.Bold = True'加粗

    Sel.Font.Bold = False'取消加粗

    Sel.Font.Italic = True'倾斜

    Sel.Font.Italic = False'取消倾斜

    Sel.Font.ColorIndex =wdBlack '设置黑色字体

    Sel.Collapse 0 '取消选择千赢老虎机千赢国际平台,光标至段尾

    '【常用段落的排版设置】

    '声明ParFor为ParagraphFormat

    DimParFor AsParagraphFormat

    '实例化ParFor

    Set ParFor = Sel.ParagraphFormat

    Sel.Expand 4 '扩选当前段

    ParFor.Alignment = 0 '段落居左

    ParFor.Alignment = 1 '段落居中

    ParFor.Alignment = 2 '段落居右

    ParFor.Alignment = 3 '两端对齐

    ParFor.CharacterUnitFirstLineIndent = 2 '首行缩进

    ParFor.CharacterUnitFirstLineIndent = -2 '悬挂缩进

    ParFor.CharacterUnitLeftIndent = 2 '段落左缩进

    ParFor.CharacterUnitRightIndent = 2 '段落右缩进

    ParFor.LineUnitBefore = 1 '段后1行

    ParFor.LineUnitAfter = 1 '段前1行

    ParFor.LineSpacingRule = 4'行距自定义

    ParFor.LineSpacing = 24 '自定义行距

    Sel.Collapse 0 '取消选择

    '恢复正常排版

    Sel.WholeStory

    Sel.ClearFormatting

    Sel.Font.Size = 16

    Sel.Font.Name = "仿宋"

    ParFor.CharacterUnitFirstLineIndent = 2

    Sel.Collapse 1

    End Sub
     

    转载请注明来源"千赢国际Home"并保留原文链接。
    固定链接:http://ryansdrew.com/lesson/animation/Word/1909.html
    分享到:
    Copyright 1999 - 2017 千赢国际 Home.All Rights Reserved.
    本站特聘法律顾问:徐怀玉律师 李志群律师   沪ICP备11019229号
           
    网站地图