Excel VBA，在Word中设置自定义页面大小

有一些困难…我有Excel中的VBA代码打开MS Word并将页面大小更改为自定义大小。 我无法实现它，我已经search了几种不同的方式来尝试，我不经常这样做，我想我错过了一些东西。

Dim objWord Dim objDoc Dim objRange Dim objSelection Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add Set objSelection = objWord.Selection objDoc.PageSetup.PageWidth = InchesToPoints(11.5) objDoc.PageSetup.PageWidth = InchesToPoints(14.375) <...rest of code> objWord.Visible = True 

在这一点上，我已经尝试了“objDoc.PageSetup.PageWidth”如上所示，我也试过“objSelection.PageSetup.PageWidth”和“objWord.ActiveDocument.PageSetup.Pagewidth” – 但它只是打开一个8.5 “x 11”信纸文件。

Answer 1

这对我有用

 Dim objWord Dim objDoc Dim objRange Dim objSelection Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add Set objSelection = objWord.Selection objDoc.PageSetup.PageWidth = objWord.InchesToPoints(11.5) objDoc.PageSetup.PageWidth = objWord.InchesToPoints(14.375) objWord.Visible = True 

它仍然说信，但实际大小是不同的 –

注意你的代码有两次页面pagewidth ，没有高度。

使用 –

 objDoc.PageSetup.PageHeight = objWord.InchesToPoints(14.375) 

Answer 2

这是否工作：

 objDoc.PageSetup.PaperSize = xlPaperA4 

内置的纸张大小可以在这里find： Excel纸张大小

其中一个可能接近您的自定义尺寸。