Office: Word Dokument aus Access maximiert anzeigen

Hallo zusammen,
ich öffne aus einem Modul eine Wordvorlage
und habe jetzt das Problem das das Dokument nicht immer maximiert angezeigt wird.
im Code habe ich folgendes
Dim wrdDoc As Object
Dim wrdApp As Object

die weitere Prozedur läuft ohne Problem
Am Ende steht im Code

wrdApp.Visible = True
wrdApp.Activate
wrdApp.WindowState = 1

das Word Dokument wird auch aktiviert aber nicht immer maximiert.

 

Hallo Moci,

aktiviere mal sowohl das Dokumentenfenster als auch das Application-Fenster. Vielleicht hilft das ja.

 

Ich sehe jetzt nicht, daß das Dokumenten Fenster in deinem Code maximiert wird.

 

Jetzt habe ich eventuell etwas gefunden.
Wenn ich das Modul mit dem ExportCode für das Word Dokument nur öffne und wieder schließe funktioniert das maximieren
problemlos .
Wenn die Datenbank geschlossen wird und dann wieder geöffnet wird dann nicht.

 

Hallo Moci,

leider fehlt der relevante Codeausschnitt.

 

Abhängig von der Auswahl des Platzes über eine Eingabe im Formular wird am Etikett der gewählte Datensatz in der Wordvorlage eingefügt.
Das funktioniert tadellos.

' Word starten
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
End If
wrdApp.Visible = True
On Error GoTo 0

' Vorlage öffnen
Set wrdDoc = wrdApp.Documents.Add(strPfadVorlage)

' Platzierung festlegen
' Hier: Wir gehen davon aus, dass du ein Textrahmen/Shapes pro Platz hast,
' benenne sie z.B. "Etikett_1" .. "Etikett_10".

shpName = "Etikett_" & PlatzIndex

On Error Resume Next
Set shp = wrdDoc.Shapes(shpName)
On Error GoTo 0

If shp Is Nothing Then
MsgBox "Keine Etikettenvorlage vorhanden"

Else
' Text in das Shape schreiben
shp.TextFrame.TextRange.Text = Praxis & " " & Titel & vbCrLf _
& Vorname & vbCrLf _
& Name & vbCrLf _
& Strasse & vbCrLf _
& Plz & " " & Ort

End If

rs.Close
Set rs = Nothing

wrdApp.Activate
wrdApp.WindowState = 1

 

Hallo Moci,

setzte mal App.WindowState vor dem sichtbar machen, ohne Activate, und erstelle danach das neue Dokument. Das Fenster des Dokuments kannst du dann ebenfalls maximieren. Das sollte eigentlich reichen.

Ich würde in deinem Fall übrigens auf "Set wrdApp = GetObject(, "Word.Application")" verzichten und immer eine neue Instanz von Word öffnen.

Knnobbi38

 

anke Knnobbi38 für deine Hilfe.
Hat aber nicht funktioniert.
Ich lasse es jetzt so , ist ja nur 1 Klick mehr um das WORD Dokument anzuzeigen.

 

Moin,

hier mal die Werte für WindowState:

 

@drambeldier :

Die Werte sind leider nicht richtig. Hier der Link zur WdWindowState Aufzählung Word/VBA:
WdWindowState enumeration (Word)

Knobbi38

 

Danke nochmal für die Hilfe, das wichtigste funktioniert ja ,Etikettendruck mit der gewählten Adresse am gewählten Platz, lasse ich es jetzt so. Word wird ja aktiviert und der Benutzer muss halt 1 mal draufklicken.
Irritiert hat mich nur das der Aufruf nach Öffnen/Schließen des Moduls mit der Prozedur anstandslos funktioniert.

 

@knobbi38
Nanu - im Code wird WindowState angesprochen:
<code>
wrdApp.WindowState = 1
</code>
Heißt das nun, dass die falsche Variable benutzt wird?

[ot] Bin recht neu hier - keine Vorschau, keine Code-Brackets?

 

Oben in der Leiste Button für "Einfügen" (sieht aus, wie ein kleines Flipchart) und dann "Code" wählen.

Code:

Dein Code

 

Hi,

nein, nicht die falsche Variable, aber du hast die Hilfe von DotNet in deinem Link herangezogen und nicht die von Word/VBA. Leider sind diese Aufzählungen nicht kompatible.

Gruß Knobbi38