东莞购物网站百度站长平台注册

1、表格首行居中

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

宏：

Sub 表格首行居中()Dim tbl As tableOn Error Resume Next ' 错误时继续执行下一个循环For Each tbl In ActiveDocument.TablesOn Error Resume Next ' 再次设置错误处理，针对当前表格With tbl.Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 设置水平居中End WithWith tbl.Rows(1).Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter ' 设置垂直居中End WithOn Error GoTo 0 ' 重置错误处理，以便在循环的下一次迭代中捕获错误Next tbl
End Sub

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

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

宏：

Sub 表格内容靠左上下居中()Dim tbl As tableDim row As rowDim cell As cellOn Error Resume Next ' 设置错误处理，忽略错误继续执行For Each tbl In ActiveDocument.Tables' 跳过首行For Each row In tbl.RowsIf row.Index <> 1 Then ' 首行索引为1，跳过首行For Each cell In row.CellsWith cell.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft ' 设置水平靠左End WithWith cell.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter ' 设置垂直居中End WithNext cellEnd IfNext rowNext tbl
End Sub