有一些困难... 我在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 "的信纸文档。
这对我来说是可行的
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)
你可以像下面的命令一样,设置你的自定义页面大小,如果你想用A4来设置Word大小,你应该设置9.如果你想用A5来设置Word大小,你应该设置11。
objDoc.PageSetup.PaperSize = 9
如果你想用A4来设置Word大小,你应该设置9.如果你想用A5来设置Word大小,你应该设置11。
枚举。