WORD 常用宏，不定时更新

表格批量垂直居中，宏VB

Sub 表格批量局中()
'
' 表格批量局中 宏
'
'
For i = 1 To ActiveDocument.Tables.Count

    ActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenter

    Next i

End Sub

自动编号转换为文本，宏VB

Sub 编号转换为文本()
Dim kgslist As List
For Each kgslist In ActiveDocument.Lists
kgslist.ConvertNumbersToText
Next
End Sub