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

Question

有一些困难... 我在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"×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

你可以像下面的命令一样，设置你的自定义页面大小，如果你想用A4来设置Word大小，你应该设置9.如果你想用A5来设置Word大小，你应该设置11。

objDoc.PageSetup.PaperSize = 9

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

枚举。

• 9=xlPaperA4
• 11=xlPaperA5

Answer 3

这是否可行。

objDoc.PageSetup.PaperSize = xlPaperA4

内置的纸张尺寸可以在这里找到。Excel纸张尺寸

其中一个可能与您的定制尺寸接近。