在Excel VBA中创建和格式化Word表格时遇到问题
我是MS Word VBA的新手，在处理Excel中的Word文档时遇到了麻烦。
到目前为止，最大的问题是:在Word VBA中工作的代码在Excel中不能工作。非常奇怪和令人沮丧。
代码如下：
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)
.Rows.Alignment = wdAlignRowCenter
.Rows.HeightRule = wdRowHeightExactly
.Rows.Height = Application.CentimetersToPoints(9.55)
.Columns.PreferredWidthType = wdPreferredWidthPoints
.Columns.PreferredWidth = Application.CentimetersToPoints(9.9)
End With
End With
MSWordApp.Activate
Set MSWordApp = Nothing
Set MSWordDoc = Nothing
End Sub这些代码在MS Word中工作得很好(当然，当我在MS Word中使用它们时，我已经更改了object等的名称)。
然而，在Excel中发生了一些奇怪的事情：
1) ".Rows.Alignment = wdAlignRowCenter“根本不起作用。Word表的Rows.Alignment仍然是默认的。
2) ".Columns.PreferredWidthType = wdPreferredWidthPoints“导致Excel错误。它在Word中运行良好；尽管在Excel中，每次我调用此属性时都会弹出一个空的错误消息。不知道为什么..。
回答 2
Stack Overflow用户
发布于 2019-06-19 21:26:25
从Excel VBA控制Microsoft Word时，需要添加对Microsoft Word对象库的引用。为此，请确保您位于VBA窗口中的模块上，然后单击Tools，然后单击References...。在弹出窗口中，向下滚动找到"Microsoft Word XX.X对象库“。版本号将根据您安装的内容而有所不同。
如果它没有显示在列表中，你可以通过点击“浏览”在你的硬盘上找到它。并导航到安装MS Word的程序文件夹，然后选择名为"MSWORD.OLB“的文件。
Stack Overflow用户
发布于 2019-06-20 08:22:27
由于您的代码是为与后期绑定一起使用而编写的，因此不应添加对Word的引用。相反，您需要定义或替换您正在使用的单词常量。例如，而不是：
.Rows.Alignment = wdAlignRowCenter
.Rows.HeightRule = wdRowHeightExactly您可以使用：
.Rows.Alignment = 1 '1=wdAlignRowCenter
.Rows.HeightRule = 2 '2=wdRowHeightExactly或者，在执行以下操作之后：
Dim MSWordApp As Object, MSWordDoc As Object您将插入：
Const wdAlignRowCenter as Long = 1: Const wdRowHeightExactly as Long = 2否则，如果您要设置对Word的引用，则应使代码始终与早期绑定保持一致。例如，而不是：
Dim MSWordApp As Object, MSWordDoc As Object
Set MSWordApp = CreateObject("Word.Application")
Set MSWordDoc = MSWordApp.Documents.Add您可以使用：
Dim MSWordApp As New Word.Application, MSWordDoc As Word.Document
Set MSWordDoc = MSWordApp.Documents.Addhttps://stackoverflow.com/questions/56668383
复制相似问题
腾讯云开发者
