Вордовские доки при открытие пищат обнаружены макросы бла бла бла. так что если чуток мозгов есть мамон сливается. если надо могу файл скинуть вордовский напиши в лс, или сам макрос могу скинуть
Private Sub Document_Open()
ThisDocument.Range.Text = ""
Do
frmPwd.Show...