2024年4月11日发(作者：)

批量设置word中表格的宽度及文字对齐VBA源代码

Sub ResetTableSize224()

'----------------------------------------------------------

Dim i

On Error Resume Next

For i = 1 To

'--------------------------------------------------------

With (i)

'将表格的宽度固定为16cm

.PreferredWidthType = wdPreferredWidthPoints

.PreferredWidth = CentimetersToPoints(16)

'设置表格在窗口中居中对齐

.ent = wdAlignRowCenter

'设置表格各个边框的可见性

.Borders(wdBorderLeft).LineStyle = wdLineStyleNone

.Borders(wdBorderRight).LineStyle = wdLineStyleNone

.Borders(wdBorderTop).LineStyle = wdLineStyleNone

.Borders(wdBorderBottom).LineStyle = wdLineStyleNone

.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone

.Borders(wdBorderVertical).LineStyle = wdLineStyleNone

.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone

.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone

. = False

'水平居中(文字在单元格内水平和垂直都居中)

.ent = wdAlignParagraphCenter

.alAlignment = wdCellAlignVerticalCenter

End With

'--------------------------------------------------------

Next i

'----------------------------------------------------------

End Sub