Sub box()
If Documents.Count = 0 Then
Proceed = MsgBox("no document.Please open a document.", vbOKCancel + vbExclamation, "Format Report")
If Proceed = vbOK Then
Dialogs(wdDialogFileOpen).Show
If Documents.Count = 0 Then End
Else
End
End If
End If
End Sub