如何使用VB脚本完全关闭Word应用程序

如何解决如何使用VB脚本完全关闭Word应用程序

我在 word 中有一个宏/脚本可以将 docx 文件转换为 PDF；一旦文件被转换，我只想简单地关闭 word 应用程序（宏）。转换部分运行良好，但宏仍保持打开状态。 ...一旦所有文件都转换完毕，我将如何关闭宏/MS Word 应用程序？

脚本：

Sub BatchConvertDocxToPDF()
  Dim objDoc As Document
  Dim strFile As String,strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Public\ConvertedFiles\"
  strFile = Dir(strFolder & "*.docx",vbnormal)
 
  'Precess each file in the file folder and convert them to pdf.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    objDoc.ExportAsFixedFormat _
      OutputFileName:=Replace(objDoc.FullName,".docx",".pdf"),_
      ExportFormat:=wdExportFormatPDF,OpenAfterExport:=False,Optimizefor:=wdExportOptimizeforPrint,_
      Range:=wdExportAllDocument,Item:=wdExportDocumentContent
 
    objDoc.Close
    strFile = Dir()
  Wend
  
  'close word
  Set AppWord = CreateObject("Word.Application")
  AppWord.Visible = True
  AppWord.Application.Quit

End Sub

预先感谢您的任何帮助

解决方法

简单使用

Application.Quit

代替

Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
AppWord.Application.Quit

这个位创建了一个新的 Word 实例只是为了立即关闭它，这完全没用。

,

试试这个：

Sub KillWord
    Dim Ws,Command,Execution
    Set Ws = CreateObject("Wscript.Shell")
    Command = "cmd /c Taskkill /F /IM "word.exe""
    Execution = Ws.Run(Command,True)
    Set Ws = Nothing
End Sub