Sub mynzWordTableLoop() '表内的循环 With ActiveDocument.Tables(1) For I = 2 To .Rows.Count '第一个表格第二行到最后一行循环一次 With .Rows(I).Range .ParagraphFormat.Alignment = wdAlignParagraphLeft '左对齐 With .Font .Bold = False '不加粗/取消加粗 .ColorIndex = 1 '黑色 .Name = "仿宋" '字体设为仿宋 .Size = 6 '6磅大小 End With End With Next End WithEnd SubØ本节内容参考程序文件:Chapter06-1.docm 【分享成果,随喜正能量】我20多年的VBA实践经验,全部浓缩在下面的各个教程中: 【分享成果,随喜正能量】夜卧早起三月春,缓形无努志逆生。万物皆有灵,众生皆平等,存一分善心,常常布施善行,养生护生,世间就多温暖一些。。