End With If .Show Then Application.ScreenUpdating = False num = .SelectedItems.count For Each file In .SelectedItems Set word_temp = Documents.Open(file) word_temp.Range.Copy word_result ") str = Format(num, "您选择合并0个文件,") & str MsgBox str, vbInformation, "文件合并结果" End Sub