VBA即用型代码手册：设置表格内的字体Set the font in the table
我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：VBA即用型代码手册：设置表格内的字体Set the font in the table
【分享成果，随喜正能量】42一切有为法，如梦幻泡影，如露亦如电，应作如是观。若是生活发生了太多，那就呵护好自己内心的快乐，快乐多一点，生活的阳光就多一分。凡事多一些体谅，以后就少许多后悔；我们的悲哀，不在于昨天失去得太多，而是沉陷在曾经的记忆中，对一些人耿耿于怀，对一些事斤斤计较。人生一辈子，有时想想，还真是除了生死，什么都是闲事。
第六章 Word对象及示例
Word Objects and Macro Examples
19 设置表格内的字体Set the font in the table
Sub mynzTableStle()
With ActiveDocument.Tables(1).Rows(1).Range '第一个表格第一行设为with对象
.Rows.HeightRule = wdRowHeightAuto '设置行高为自适应高度
.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
With .Font
.Bold = True '加粗
.ColorIndex = wdRed '红色
.Name = "黑体" '黑体
.Size = 12 '12磅大小
End With
End With
End Sub
本节内容参考程序文件：Chapter06-1.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：