Private Sub CommandButton21_Click()
Dim wdApp As Object
Dim RetVal
Set wdApp = GetObject(, "word.application")
If wdApp Is Nothing Then
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
End If
RetVal = Shell("WINWORD.EXE " & ThisWorkbook.Path & "\收入清单打印.docx", 1)
Set wdApp = Nothing
Workbooks("收支清单.xlsm").Close savechanges:=True
End Sub