Office: (Office 2003) VBA: Word-Dokument beim starten unsichtbar machen

Moin.

Schönes neues Jahr wünsche ich allen!

Ich möchte, dass beim öffnen einer Datei nur die Userform angezeigt wird, nicht aber das eigentliche Dokument. Dieses soll erst nach Abschluss der Userform angezeigt werden. Gibt es dazu einen Code, und wo baue ich diesen ein? Bereits in ThisDokument oder doch erst bei Userform1?

Gruß, Torsten

 

Hallo Thorsten,

ich kann mir zwei Varianten vorstellen (verborgen/sichtbar und minimiert / normal):

In ein allgemeines Modul:
Die Deklaration der Objektvariablen fürs Dokument und für die Applikation

Code:

Public doku As Document
Public wdApp As Word.Application

Ins Modul ThisDocument:
Der Code für verborgen oder für minimieren

Code:

Sub document_New()
'Variante Minimieren:
'Set doku = ActiveDocument
'doku.ActiveWindow.WindowState = wdWindowStateMinimize

'Variante verbergen:
Set doku = ActiveDocument
Set wdApp = doku.Parent
wdApp.Visible = False

'für beide Varianten:
UserForm1.Show vbModeless
End Sub

Falls es keine Dokumentvorlage ist, mit Document_Open arbeiten. Für die Variante verbergen würde ich auf alle Fälle noch eine Fehlerbehandlung einbauen, damit bei Laufzeitfehler das Word wieder sichtbar geschaltet wird.

Ins Modul der Userform:
Der Code zum Wiederherstellen

Code:

Private Sub CommandButton1_Click()
Me.hide

'Variante minimieren:
'doku.Activate
'doku.ActiveWindow.WindowState = wdWindowStateNormal 

'Variante verbergen:
wdApp.Visible = True 
End Sub

 

Hallo Gerhard.

Sorry, hat lang gedauert, ist einiges los im Büro (nicht erst seit Corona)... Werde das aber demnächst mal testen, ob ich das hin kriege. Vielen Dank erstmal.

Gruß, Torsten