视频网站如何优化,手工活300元一天,中小企业服务,简述网络营销的特点目录 1、表格首行居中2、表格内容靠左上下居中#xff08;排除首行#xff09; 1、表格首行居中
说明#xff1a; 遇到错误将进行捕获#xff0c;然后继续处理下一个表格
宏#xff1a;
Sub 表格首行居中()Dim tbl As tableOn Error Resume Next 错误时继续执行下一个… 目录 1、表格首行居中2、表格内容靠左上下居中排除首行 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 Sub2、表格内容靠左上下居中排除首行
说明 遇到错误将进行捕获然后继续处理下一个表格
宏
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
