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
相关推荐
睿思达DBA_WGX15 小时前
使用 python-docx 库操作 word 文档(3):读取word文档的内容
python·word
cehuishi952715 小时前
excel中关联word邮件合并使用
word·excel·批量打印·邮件合并
SoberChina15 小时前
Jasperreport 导出word 多个element重叠部分导致不显示(不支持)
pdf·word·jaspersoft·模版打印
缺点内向16 小时前
Java:将 Word 文档转换为密码保护的 PDF 文件
java·pdf·word
jaray17 小时前
word和wps下分别设置签名或图片背景透明色的方法
word·wps
龙仔CLL17 小时前
vue3下载图片,pdf,excle,word通用函数
pdf·vue·word
我命由我123451 天前
Excel - Excel 列出一列中所有不重复数据
经验分享·学习·职场和发展·word·powerpoint·excel·职场发展
东方芷兰1 天前
LLM 笔记 —— 08 Embeddings(One-hot、Word、Word2Vec、Glove、FastText)
人工智能·笔记·神经网络·语言模型·自然语言处理·word·word2vec
E_ICEBLUE1 天前
Python 处理 Word 文档中的批注(添加、删除)
开发语言·python·microsoft·word
睿思达DBA_WGX2 天前
使用 python-docx 库操作 word 文档(2):在word文档中插入各种内容
python·word