嗨，作为刚接触Word VBA的新手，碰到跨Office应用的兼容性问题太正常啦！你的代码在Word里能正常运行，到Excel里就出问题，核心原因是你用了Late Binding（CreateObject）创建Word对象，但Excel VBA环境里没有定义Word专属的内置常量——比如wdAlignRowCenter、wdPreferredWidthPoints这些，Excel根本不知道它们代表什么数值，自然就会失效或者报错。

咱们来逐个解决你的两个问题：

问题1：表格行对齐设置无效 #

wdAlignRowCenter是Word的内置常量，对应的实际数值是1。在Excel VBA里因为没引用Word对象库，直接写常量名Excel识别不了，把它替换成对应数值就能生效。

问题2：设置列宽类型触发错误 #

同理，wdPreferredWidthPoints对应的实际数值是2，把常量名换成这个数值就能避免空白错误提示。

另外顺便提一句，你代码里的wdRowHeightExactly也是Word常量，对应的数值是2，同样需要替换哦。

修改后的完整可运行代码 #

Sub abc()
 Dim MSWordApp As Object, MSWordDoc As Object
 Set MSWordApp = CreateObject("Word.Application")
 Set MSWordDoc = MSWordApp.Documents.Add
 MSWordApp.Visible = True
 With MSWordDoc
  With .PageSetup
   .TopMargin = Application.CentimetersToPoints(0.51)
   .BottomMargin = Application.CentimetersToPoints(0.51)
   .LeftMargin = Application.CentimetersToPoints(0.51)
   .RightMargin = Application.CentimetersToPoints(0.51)
  End With
  .Tables.Add Range:=.Range(0, 0), NumRows:=3, NumColumns:=2
  With .Tables(1)
   ' 替换wdAlignRowCenter为对应数值1
   .Rows.Alignment = 1
   ' 替换wdRowHeightExactly为对应数值2
   .Rows.HeightRule = 2
   .Rows.Height = Application.CentimetersToPoints(9.55)
   ' 替换wdPreferredWidthPoints为对应数值2
   .Columns.PreferredWidthType = 2
   .Columns.PreferredWidth = Application.CentimetersToPoints(9.9)
  End With
 End With
 MSWordApp.Activate
 Set MSWordApp = Nothing
 Set MSWordDoc = Nothing
End Sub

额外小提示：想保留常量名让代码更易读？ #

你可以改成Early Binding方式，步骤如下：

1. 打开Excel VBA编辑器，点击顶部菜单栏的「工具」→「引用」
2. 在弹出的列表里找到并勾选「Microsoft Word xx.x Object Library」（xx.x是你安装的Word版本号）
3. 把代码里的对象声明改成：Dim MSWordApp As Word.Application, MSWordDoc As Word.Document，创建对象的语句改成Set MSWordApp = New Word.Application
   这样就能直接用wdAlignRowCenter这些常量名了，但缺点是换电脑如果Word版本不一致可能出兼容性问题，Late Binding（用CreateObject）的适配性会更好。

内容的提问来源于stack exchange，提问作者OTstand