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
相关推荐
极智-9969 小时前
word怎么自动生成目录?【图文详解】word目录自动生成?怎么自动生成目录和页码?
word·word使用技巧·word怎么自动生成目录·word文档目录·怎么自动生成目录和页码·word目录自动生成·word文档目录生成
CodeCraft Studio10 小时前
国产化Word处理控件Spire.Doc教程:用Java实现TXT文本与Word互转的完整教程
java·c#·word·spire.doc·word文档转换·txt转word·word转txt
洛白白1 天前
Word文档中打勾和打叉的三种方法
经验分享·学习·word·生活·学习方法
ekkcole1 天前
java把word转pdf使用jar包maven依赖
java·pdf·word
CNRio3 天前
将word和excel快速转换为markdown格式
python·word·excel
玩泥巴的4 天前
.NET驾驭Word之力:基于规则自动生成及排版Word文档
c#·word·.net·com互操作
道之极万物灭4 天前
Python操作word实战
开发语言·python·word
跳动的喵尾巴6 天前
Endnote | word中加载项消失不见,如何处理?
word
夜白宋6 天前
【word多文档docx合并】
java·word
Uluoyu8 天前
word、pdf文档内容提取工具类
java·pdf·word