excel vba批量打印word文件中，如何把这个常量Pages:="1"设置成变量？

louweiming5

我有一段excel vba批量打印word文件的代码，想把这句代码Pages:="1"的常量设置成变量？请高手回答！

Sub Print1()
Dim mypath, myfile, wApp
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
mypath = .SelectedItems(1) & "\"
End With
myfile = Dir(mypath & "*.doc*")
On Error GoTo ERROR1
Do While myfile <> ""
Set wApp = CreateObject("word.application")
With wApp
.documents.Open mypath & myfile
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"
.NormalTemplate.Saved = True
.Quit
End With
Set wApp = Nothing
myfile = Dir
Loop
Exit Sub
ERROR1:
wApp.Application.Quit
End Sub

vbee

把, Pages:="1"去掉试试

louweiming5

这个问题已解决，感谢大家关注！

田开秀

louweiming5 发表于 2018-6-30 09:30
这个问题已解决，感谢大家关注！

这个问题是怎么解决的？能不能麻烦你告诉我？
谢谢！

imleading

田开秀 发表于 2020-2-26 16:16
这个问题是怎么解决的？能不能麻烦你告诉我？
谢谢！

1就是变量，要什么自己改什么？