Question

为了运行Windows计算器并执行一些计算，我运行了以下VBA代码（在MS Word中）：

Dim RetVal, i
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)    ' Run Calculator.

代码进行了一些计算，然后我将信息输入到一个弹出框中。在我按下Enter键之后，程序会自动进行一些神奇的格式化并打印一张表格（我对此没有任何问题）。

但是，我不知道如何简单地关闭刚打开的计算器。我不需要它来测试有多少实例处于打开状态。只是关闭它。如何关闭我已脱壳的应用程序？

编辑：这是大部分的宏：

Sub PageHeight()

Dim ReturnValue, i
ReturnValue = Shell("calc.exe", 1)

ActiveDocument.PageSetup.PageWidth = InchesToPoints(InputBox("Enter Page Width - 8.5 inches or less" & vbNewLine & "Do not enter the inches symbol.", xpos:=1440, ypos:=720))  
    ActivePrinter = "HP LaserJet P2055dn UPD PCL 6"

With Application
        .DisplayAlerts = wdAlertsNone
        .PrintOut Background:=False
        .DisplayAlerts = wdAlertsAll
End With

    End

如何关闭带壳的应用程序

0 个答案: