最近写报告写得很频繁，一篇报告里面询骆帘呦带着各种各样的表格，这些表格我一般是先在Excel里做好，再一个一个复制到W泠贾高框ord里。可是复制到Word里之后，经常出现表格的字体、字号跟要求的不一致。我比较懒，懒的一个表格一个表格的调整：一个表格一个表格调整太麻烦了，有过在Word里大量调整表格的人都知道，那种感觉，啧啧。所以，得用个办法，来批量调整。
工具/原料
PC
Office2007（Word2007）
一、启用“终极神器”
1、我们用到Word VBA，所有，首先得启用这个功能。具体启用步骤看下面的经验。
二、进入编程界面
1、点击“开发工具”，点击“Visual Basic”
2、来，看图操作：单击右键－插入（邪恶的词汇啊）－模块～～
3、再来给我们的模块起个名字～～
三、编辑代码
1、代码我已经编辑好了，直接复制粘贴就行，下面是代码
2、Sub 批量调整表格字体字号() For i = 1 To Act坡纠课柩iveDocument.Tables.Cou荏鱿胫协nt 'For循环，从第一个表到最后一个表循环；Tables.Count文档内的表格数量 ActiveDocument.Tables(i).Select '从第一个表格开始逐个选中 Selection.Font.Name = "宋体" '设置选中表格的字体 Selection.Font.Size = 14 '是指选中表格的字号 NextEnd Sub
3、把第二步的代码放到编辑器里，就是这个样子～
4、再调整一下编辑器的大小，好显示出我们的文档内容来
四、运行代码
1、接下来就是见证奇迹的时候了～～点击绿色的小三角：运行子程序／用户窗体。快捷键是F5
2、我们点一下，然后～～～所有表格的所有字体、字号，一瞬间全部调整完成～～绝对秒改～～批量秒改～～
3、需要注意的地方，上面点击绿色的小三角，正常情况下会直接运行，不过有的时候会弹出另外一个窗口，这个时候，只需要点击一下“运行”就行了。
