Word处理表格的一些宏

目录

1、表格首行居中

说明: 遇到错误将进行捕获,然后继续处理下一个表格

宏:

java 复制代码
Sub 表格首行居中()
    Dim tbl As table
    On Error Resume Next ' 错误时继续执行下一个循环

    For Each tbl In ActiveDocument.Tables
        On Error Resume Next ' 再次设置错误处理,针对当前表格
        With tbl.Rows(1).Range
            .ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置水平居中
        End With
		With tbl.Rows(1).Range
			.Cells.VerticalAlignment = wdCellAlignVerticalCenter ' 设置垂直居中
		End With
        On Error GoTo 0 ' 重置错误处理,以便在循环的下一次迭代中捕获错误
    Next tbl
End Sub

2、表格内容靠左上下居中(排除首行)

说明: 遇到错误将进行捕获,然后继续处理下一个表格

宏:

java 复制代码
Sub 表格内容靠左上下居中()
    Dim tbl As table
    Dim row As row
    Dim cell As cell
    On Error Resume Next ' 设置错误处理,忽略错误继续执行

    For Each tbl In ActiveDocument.Tables
        ' 跳过首行
        For Each row In tbl.Rows
            If row.Index <> 1 Then ' 首行索引为1,跳过首行
                For Each cell In row.Cells
                    With cell.Range.ParagraphFormat
                        .Alignment = wdAlignParagraphLeft ' 设置水平靠左
                    End With
                    With cell.Range
                        .Cells.VerticalAlignment = wdCellAlignVerticalCenter ' 设置垂直居中
                    End With
                Next cell
            End If
        Next row
    Next tbl
End Sub
相关推荐
玩泥巴的1 天前
.NET驾驭Word之力:COM组件二次开发全攻略之连接Word与创建你的第一个自动化文档
word·二次开发·com互操作
辣香牛肉面2 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
FlYFlOWERANDLEAF3 天前
DevExpress中Word Processing Document API学习记录
学习·c#·word
AnySpaceOne3 天前
PDF转Word在线转换教程:多种实用方法分享
学习·pdf·word
我命由我123455 天前
Word - Word 的 5 种视图(页面视图、阅读视图、Web 版式视图、大纲视图、草稿视图)
ui·word·excel·photoshop·表格·ps·美工
XYZLHL5 天前
Word怎么设置页码总页数不包含封面和目录页
word
传而习乎5 天前
Word添加图/表题注
word
YAY_tyy5 天前
基于 Vue3 + VueOffice 的多格式文档预览组件实现(支持 PDF/Word/Excel/PPT)
前端·javascript·vue.js·pdf·word·excel
东风西巷5 天前
Atlantis Word Processor:全方位的文字处理专家
前端·学习·word·软件需求