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
相关推荐
揭老师高效办公16 小时前
在Word和WPS文字中把全角数字全部改为半角
word·wps文字
揭老师高效办公21 小时前
快速删除Word和WPS文字中的空白行
word·wps
Caster_Z3 天前
Java把word转HTML格式
java·html·word
angushine4 天前
Python将Word转换为Excel
python·word·excel
兔年鸿运Q小Q4 天前
html转word下载
javascript·vue.js·word
揭老师高效办公5 天前
Word和WPS文字如何制作分栏试卷?想分几栏分几栏
word·wps文字
揭老师高效办公7 天前
在Word和WPS文字中添加的拼音放到文字右边
word·wps文字
_oP_i7 天前
c# openxml 打开加密 的word读取内容
开发语言·c#·word
zzc9218 天前
用python自动标注word试题选项注意事项
python·自动化·word·办公·试题·自动化标记
梦想画家9 天前
Java 动态导出 Word 登记表:多人员、分页、动态表格的最佳实践
java·word·报表模板