使用方法：

点击开发工具---录制新宏(更改宏名)----点击停止录制；点击宏，选择刚刚录制的宏名，点击编辑，即可在方法内用vb语言编辑代码，保存后关闭即可；点击宏，选择刚刚录制的宏名，点击运行即可更新该word(按照代码的样式)。

*表格中字体垂直水平居中、颜色黑色、样式宋体

Sub Macro2()

{

??For i=1 To ActiveDocument.Tables.Count

??ActiveDocument.Tables(i).Select

??With Selection

????????.Font.NameFarFast=”宋体”

????.Font.NameAscii=”Times New Roman”

.Font.ColorIndex=1

.Cells.VerticalAlignment=wCellAlignVerticalCenter

.ParagraphFormat.Alignment=wAlignParagraphCenter

End With

ActiveDocument.Tables(i).AutoFitBehavior Behavior:=wdAutoFitWindow

Next i

End Sub

}

*修改文档中所有字体大小、样式、颜色

Sub Macro1()

ActiveDocument.Content.Font.Size=23

ActiveDocument.Content.Font.Name=”楷体”

ActiveDocument.Content.Font.ColorIndex=0

//ActiveDocument.Content.Font.Color=RGB(0,0,0)

---

1.本站遵循行业规范，任何转载的稿件都会明确标注作者和来源；2.本站的原创文章，会注明原创字样,如未注明都非原创，如有侵权请联系删除！；3.作者投稿可能会经我们编辑修改或补充；4.本站不提供任何储存功能只提供收集或者投稿人的网盘链接。