That is an interesting question. I'm not sure I have a proper solution but this approach causes the dialog to immediately reload until you click Cancel
Code:
Sub ShowDocsListModal()
With Dialogs(wdDialogWindowActivate)
Do While .Show <> 0
Loop
End With
End Sub
Is that close enough?