VBA设置word格式(页面,段落,表格,图片)


Sub glkCurrentDocPageSetup()

 Dim glkDoc As Document '定义变量
 Set glkDoc = Application.ActiveDocument '设置为当前文档
 With glkDoc '设置文档参数
 With .PageSetup '设置【页面设置】参数
.Orientation = wdOrientPortrait '页面方向为纵向
.TopMargin = CentimetersToPoints(3) '上边距为3cm
.BottomMargin = CentimetersToPoints(3) '下边距为3cm
.LeftMargin = CentimetersToPoints(2.6) '左边距为2.6cm
.RightMargin = CentimetersToPoints(2.3) '右边距为2.6com
.Gutter = CentimetersToPoints(0) '装订线0cm
.HeaderDistance = CentimetersToPoints(1.5) '页眉1.5cm
.FooterDistance = CentimetersToPoints(2)  '页脚2cm
.PageWidth = CentimetersToPoints(21) '纸张宽21cm
.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
.SectionStart = wdSectionNewPage '节的起始位置:新建页
.OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同”
.DifferentFirstPageHeaderFooter = False '不勾选“首页不同”
.VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐”
.SuppressEndnotes = False '不隐藏尾注
.MirrorMargins = False '不设置首页的内外边距
.BookFoldRevPrinting = False '不设置手动双面打印
.BookFoldPrintingSheets = 1 '默认打印份数为1
.GutterPos = wdGutterPosLeft '装订线位于左侧
.LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格”
  End With '结束【页面设置】参数设置
  
  With .Content.ParagraphFormat '段落格式设置
.LeftIndent = CentimetersToPoints(0) '左缩进0cm
.RightIndent = CentimetersToPoints(0) '右缩进0cm
.SpaceBefore = 0 '段前间距0cm
.SpaceBeforeAuto = False '段前间距不设为“自动”
.SpaceAfter = 0 '段后间距0cm
.SpaceAfterAuto = False '段后间距不设为“自动”
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 30 '行距30磅
.Alignment = wdAlignParagraphJustify '段落设置为两端对齐
.WidowControl = False '不勾选“孤行控制”
.KeepWithNext = False '不勾选“与下段同页”
.KeepTogether = False '不勾选“段中不分页”
.PageBreakBefore = False '不勾选“段前同页”
.NoLineNumber = False '不勾选“取消行号”
.Hyphenation = True '不勾选“允许西文在单词中间换行”
.FirstLineIndent = CentimetersToPoints(2) '首行缩进2cm
.OutlineLevel = wdOutlineLevelBodyText '大纲级别为“正文文本”
.CharacterUnitLeftIndent = 0 '段落左缩进0cm
.CharacterUnitRightIndent = 0 '段落右缩进0cm
.CharacterUnitFirstLineIndent = 0 '特殊格式为“无”
.LineUnitBefore = 0 '段前间距为0
.LineUnitAfter = 0 '段后间距为0
.AutoAdjustRightIndent = True '自动调整段落的右缩进
.DisableLineHeightGrid = False '勾选“如果定义了文档网格,则对齐网格”,即指定段落中的字符与行网格对齐
.FarEastLineBreakControl = True '将东亚语言文字的换行规则应用于指定的段落
.WordWrap = True '在指定段落或文本框的西文单词中间断字换行
.HangingPunctuation = True '指定段落中的标点将可以溢出边界
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True '自动在指定段落的中文文字和拉丁文字之间添加空格。
.AddSpaceBetweenFarEastAndDigit = True '自动在指定段落中的中文文字与数字之间添加空格
.BaseLineAlignment = wdBaselineAlignAuto '自动调整基线字体对齐方式
End With

''''''''''新增部分

   
With .Styles("标题 1").Font
    .Color = wdColorBlack
    .Bold = False '标题不再加粗
    .Size = 22 '三号
    .Name = "宋体"
    End With
    
     With .Styles("标题 2").Font
    .Color = wdColorBlack
    .Bold = False '黑体一般不再加粗
    .Size = 16 '三号
    .Name = "楷体"
    End With
    With .Styles("正文").Font    '设置正文普通文字格式
    .Color = wdColorBlack
    .Bold = False
    .Size = 10
    .Name = "宋体"
    End With
 End With '结束文档参数设置
  
 
End Sub
Sub 表格处理()
    '功能:光标在表格中处理当前表格;否则处理所有表格!
    Application.ScreenUpdating = False  '关闭屏幕刷新
    Application.DisplayAlerts = False  '关闭提示
    On Error Resume Next  '忽略错误
    '***************************************************************************
    Dim mytable As Table, i As Long
    If Selection.Information(wdWithInTable) = True Then i = 1
    For Each mytable In ActiveDocument.Tables
        If i = 1 Then Set mytable = Selection.Tables(1)
        With mytable
            '取消底色
            .Shading.ForegroundPatternColor = wdColorAutomatic
            .Shading.BackgroundPatternColor = wdColorAutomatic
            Options.DefaultHighlightColorIndex = wdNoHighlight
            .Range.HighlightColorIndex = wdNoHighlight
            .Style = "表格主题"
            
            '单元格边距
            .TopPadding = PixelsToPoints(0, True) '设置上边距为0
            .BottomPadding = PixelsToPoints(0, True) '设置下边距为0
            .LeftPadding = PixelsToPoints(0, True)  '设置左边距为0
            .RightPadding = PixelsToPoints(0, True) '设置右边距为0
            .Spacing = PixelsToPoints(0, True) '允许单元格间距为0
            .AllowPageBreaks = True '允许断页
            '.AllowAutoFit = True '允许自动重调尺寸
            
            '设置边框
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderTop).LineStyle = wdLineStyleThinThickMedGap
            .Borders(wdBorderTop).LineWidth = wdLineWidth225pt
            .Borders(wdBorderBottom).LineStyle = wdLineStyleThickThinMedGap
            .Borders(wdBorderBottom).LineWidth = wdLineWidth225pt
            
            With .Rows
                .WrapAroundText = False '取消文字环绕
                .Alignment = wdAlignRowCenter '表水平居中  wdAlignRowLeft '左对齐
                .AllowBreakAcrossPages = False '不允许行断页
                .HeightRule = wdRowHeightExactly '行高设为最小值   wdRowHeightAuto '行高设为自动
                .Height = CentimetersToPoints(0) '上面缩进量为0
                .LeftIndent = CentimetersToPoints(0) '左面缩进量为0
            End With
            
            With .Range
                With .Font '字体格式
                    .Name = "宋体"
                    .Name = "Times New Roman"
                    .Color = wdColorAutomatic '自动字体颜色
                    .Size = 12
                    .Kerning = 0
                    .DisableCharacterSpaceGrid = True
                End With
                
                With .ParagraphFormat '段落格式
                    .CharacterUnitFirstLineIndent = 0 '取消首行缩进
                    .FirstLineIndent = CentimetersToPoints(0) '取消首行缩进
                    .LineSpacingRule = wdLineSpaceSingle '单倍行距  wdLineSpaceExactly '行距固定值
                    '.LineSpacing = 20 '设置行间距为20磅,配合行距固定值
                    .Alignment = wdAlignParagraphCenter '单元格水平居中
                    .AutoAdjustRightIndent = False
                    .DisableLineHeightGrid = True
                End With
                
                .Cells.VerticalAlignment = wdCellAlignVerticalCenter  '单元格垂直居中
                
            End With
            
            '设置首行格式
            .Cell(1, 1).Select ' 选中第一个单元格
            With Selection
                .SelectRow '选中当前行
                Selection.Rows.HeadingFormat = wdToggle '自动标题行重复
                .Range.Font.Bold = True '表头加粗黑体
                .Shading.ForegroundPatternColor = wdColorAutomatic '首行自动颜色
                .Shading.BackgroundPatternColor = -603923969 '首行底纹填充
            End With
            
            '自动调整表格
            .Columns.PreferredWidthType = wdPreferredWidthAuto
            .AutoFitBehavior (wdAutoFitContent) '根据内容调整表格
            .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整表格
            
        End With
        
        If i = 1 Then Exit For
    Next
    '***************************************************************************
    Err.Clear: On Error GoTo 0 '恢复错误捕捉
    Application.DisplayAlerts = True  '开启提示
    Application.ScreenUpdating = True   '开启屏幕刷新
End Sub

'设置图片大小
Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoFalse '不锁定纵横比

Shap.Width = CentimetersToPoints(10) '宽10CM

Shap.Height = CentimetersToPoints(7) '高7CM

End If

Next
'设置页码
Sub sutAddPageNum1()
   With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
       Set rng = .Range
       rng.Text = "第 "
       rng.Font.Size = 16 '三号
       rng.Collapse wdCollapseEnd
       ActiveDocument.Fields.Add rng, wdFieldPage, "Page"
       Set rng = .Range
       rng.Collapse wdCollapseEnd
       rng.Text = " 页 / 共 "
       rng.Collapse wdCollapseEnd
       ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"
       Set rng = .Range
       rng.Collapse wdCollapseEnd
       rng.Text = " 页 "
       .Range.Fields.Update
       .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
   End With
End Sub
 

  • 0
    点赞
  • 26
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

variation8

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值