标签：
使用VB可以将表外的字体设置标题字体实际操作如下：
VB代码如下：
Sub oliver_1() Selection.EndKey Unit:=wdStory ‘光标移到文末 For i = 1 To ActiveDocument.Tables.Count ‘有几个表格，下面操作就循环几次 With Application.Browser .Target = wdBrowseTable ‘插入点在表格中 .Previous ‘插入点移至前一张表格之前 End With Selection.MoveUp Unit:=wdLine, Count:=1 ‘将光标移到表格上一行 Selection.Style = ActiveDocument.Styles("标题 3") ‘设置为标题1 Next End Sub
上面的代码输入到指定区域，然后按F5即可执行，也可以保存后打开EXCLE，ALT+F8，然后运行oliver_1.
标签：
原文地址：http://www.cnblogs.com/OliverQin/p/5754095.html
