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

【问题标题】：Excel VBA, set custom page size in WordExcel VBA，在 Word 中设置自定义页面大小
【发布时间】：2021-05-30 23:52:45
【问题描述】：

遇到一些困难...我在 Excel 中有 VBA 代码来打开 MS Word 并将页面大小更改为自定义大小。我无法让它工作，我用谷歌搜索了几种不同的方法来尝试它，我不经常这样做，我想我错过了一些东西。

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" 信纸文件。

【问题讨论】：

您遇到错误了吗？
您好，完全没有错误。它只是以字母页面大小打开。

标签： vba excel ms-word

【解决方案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)

【讨论】：

使用 objDoc.PageSetup.PageWidth = objWord.InchesToPoints(11.5) 为我工作...非常感谢！
@LeahW 如果您的问题已解决，请务必单击已解决的答案旁边的绿色复选标记。这会将其标记为已解决，以便其他人知道。

【解决方案2】：

您可以像以下命令一样设置自定义页面大小；

objDoc.PageSetup.PaperSize = 9

如果你想用 A4 设置 Word 大小，你应该设置 9。如果你想用 A5 设置 Word 大小，你应该设置 11。

枚举；

9=xlPaperA4
11=xlPaperA5

【讨论】：

【解决方案3】：

这行得通吗：

objDoc.PageSetup.PaperSize = xlPaperA4

可在此处找到内置纸张尺寸：Excel Paper Sizes

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

【讨论】：

【解决方案4】：

我使用自定义纸张尺寸。不幸的是，Word 似乎将所有这些设置为纸张大小 41 但是，至少在我的情况下，当我将 paperzize 设置为 41 然后将边距更改为特定大小，纸张大小名称正确

这对我有用

    activedocument.PageSetup.PaperSize = 41
    activedocument.PageSetup.PageWidth = InchesToPoints(4.25)
    activedocument.PageSetup.Pageheight = InchesToPoints(5.5)

【讨论】：