excel - 使用 Excel VBA 打印 Word 文档而不打开它

Question

我想通过 Excel 工作表中的按钮打印 Word 文档 mydocument.docx。两者都在同一个文件夹中。

我不希望用户看到 Word 文档。他们只需单击 Excel 中的按钮即可。

我可以在 Excel 中创建一个按钮并使其打开一个空的 vb。据我所知就这么多。如果您能分步解释这一点，那就太棒了。

Answer 1

您可以使用Word automation object model以编程方式访问 Word。

在几乎所有情况下，您都需要执行以下步骤:

1. 创建 Word 应用程序对象。
2. 打开文档。
3. 对文档进行一些操作。
4. 关闭文档。
5. 退出 Word 应用程序。

基本 VBA 代码如下所示:

' Step 1
Dim objWord
Set objWord = CreateObject("Word.Application")
' Hidden window!
objWord.Visible = False
' Save the original printer, otherwise you will reset the system default!
Dim previousPrinter
Set previousPrinter = objWord.ActivePrinter
objWord.ActivePrinter = "My Printer Name"

' Step 2
Dim objDoc
Set objDoc = objWord.Documents.Open("C:\Test\SomeDocument.docx")

' Step 3 -- in this case, print out the document without any prompts
objDoc.PrintOut
' Restore the original printer
objWord.ActivePrinter = previousPrinter

' Step 4
objDoc.Close

' Step 5
objWord.Quit