Word VBA指定页数打印份数时出现Run-time error '13'类型不匹配错误求助

错误根源 #

1. 页码取值错误：原代码中ActiveDocument.Content.End - 1返回的是文档末尾的字符位置，并非总页码，导致PrintOut方法的To参数类型不匹配（需要整数页码，却传入了字符位置值）。
2. PrintOut参数搭配错误：第一处PrintOut使用Range:=wdPrintRangeOfPages，但该参数需配合Pages属性使用，而非From和To，参数组合逻辑错误触发类型不匹配。
3. 输入验证不严谨：仅用IsNumeric验证输入，未判断是否为正整数，若输入小数（如2.5），CInt转换后虽能运行，但不符合打印份数的业务逻辑。

修正后的代码 #

Sub PrintPages()
    ' 弹出对话框询问1-2页的打印份数
    Dim copies As Integer
    Dim userInput As String
    Dim totalPages As Integer
    
    ' 获取文档总页码
    totalPages = ActiveDocument.BuiltInDocumentProperties("Number of Pages")
    
    ' 用户输入处理
    userInput = InputBox("请输入第1-2页的打印份数:", "设置打印份数")
    
    ' 严格验证输入：必须是正整数
    If Not IsNumeric(userInput) Or CInt(userInput) <= 0 Or userInput <> CStr(CInt(userInput)) Then
        MsgBox "请输入有效的正整数！"
        Exit Sub
    End If
    copies = CInt(userInput)

    ' 打印1-2页，按指定份数
    ActiveDocument.PrintOut Range:=wdPrintRangeFromTo, From:=1, To:=2, Copies:=copies

    ' 打印第3页及之后的所有页面，仅1份（如果总页码大于2）
    If totalPages > 2 Then
        ActiveDocument.PrintOut Range:=wdPrintRangeFromTo, From:=3, To:=totalPages, Copies:=1
    End If
End Sub

关键修正说明 #

• 用ActiveDocument.BuiltInDocumentProperties("Number of Pages")获取正确的总页码，替换错误的字符位置计算。
• 第一处PrintOut的Range改为wdPrintRangeFromTo，匹配From和To参数的使用逻辑。
• 增强输入验证：不仅检查是否为数字，还要确保是正整数，避免非整数输入导致的潜在问题。
• 添加总页码判断：只有当文档页数大于2时，才执行后续页面的打印，避免无效操作。

内容的提问来源于stack exchange，提问作者Metti