Application.Browser.Target = wdBrowseTable
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Set myCell = ActiveDocument.Tables(i).Cell(Row:=3, Column:=1) ' 对每个表选中第3行第1列,如Row:=3,Column:=2则是定位第3行第2列,这俩数可以任意改
myCell.Shading.Texture = wdTexture20Percent ' 突出显示的命令
'myCell.Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中 // 这条貌似不起作用?
myCell.VerticalAlignment = wdAlignVerticalCenter '//这条可以实现垂直居中,Top居顶
myCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 水平居中
myCell.Range.ParagraphFormat.Alignment = wdAlignParagraphRight ' 水平右
Next i