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
相关推荐
我命由我123457 小时前
Excel 表格 - 合并单元格、清除单元格格式
运维·word·powerpoint·excel·工具·表格·软件工具
小付同学呀14 小时前
word——如何给封面、目录、摘要、正文设置不同的页码
word
Quz14 小时前
使用VBA宏批量修改Word中表格题注格式
word
PythonFun2 天前
基于Python的Word文件翻译器(免费下载)
word
修昔底德2 天前
一个适用于 Word(Mac/Win 通用) 的 VBA 宏:把所有“上角标格式的 0‑9”以及 “Unicode 上角标数字 ⁰‑⁹” 批量删除。
word
喝过期的拉菲4 天前
word参考文献对齐
word
小妖同学学AI6 天前
deepseek一键生成word和excel并一键下载
人工智能·word·excel·deepseek
Eternity_GQM9 天前
【Word VBA Zotero 引用宏错误分析与改正指南】【解决[21–23]参考文献格式插入超链接问题】
开发语言·c#·word
小付同学呀11 天前
word——删除最后一页空白页
word
我在北国不背锅11 天前
基于Java的Markdown转Word工具(标题、段落、表格、Echarts图等)
java·word·echarts·markdown