Word öffnet nicht richtig
02.01.2004 22:53:06
Jens
Frohes Neues wünsch ich.
Folgende Frage.
Über eine Schaltfläche öffne ich eine Wordvorlage mit folgendem Makro.
Sub Vorlage_Meldung_öffnen()
'prüfen, welcher Pfad existiert
Dim VorlPfad As String
Dim VorlDatei As String
Dim FSo, sWb
Dim i As Byte
'alle angegebenen Pfade durchlaufen
For i = 1 To 200
'zu überprüfendes Hilfsblatt festlegen
VorlPfad = Worksheets("help.doc").Cells(i, 1)
'zu öffnende Datei festlegen
VorlDatei = VorlPfad & "Vorlage_Meldung.doc"
'überprüfen, ob die Datei existiert
Set FSo = CreateObject("Scripting.FileSystemObject")
If FSo.FileExists(VorlDatei) Then
'Meldung ausgeben
If Bowert = True Then MsgBox _
"Datei wurde unter folgendem Pfad gefunden und wird jetzt geöffnet. Pfad lautet: " & VorlPfad
On Error Resume Next
Dim WordApp As Word.Application
'prüfen, ob Word schon geöffnet
Set WordApp = GetObject(, "Word.Application")
If Err.Number = 429 Then 'Kein Word gefunden
'neue Word-Instanz öffnen
Set WordApp = CreateObject("Word.Application")
'Meldung öffnen
WordApp.Application.Documents.Open VorlDatei
End If
On Error GoTo 0
With WordApp
'Word maximieren
.WindowState = wdWindowStateMaximize
'Word anzeigen
.Application.Visible = True
End With
Set WordApp = Nothing
Exit Sub
End If
Next
End Sub
Hierzu wird Word als Application aufgerufen. (Extras, Verweise etc in V.Basic)
Problem ist nur, dass Word unter Office97, da ja in Maximalgröße geöffnet wird, immer alle Symbol- bzw. Menüleisten ausgeblendet werden. Ich erhalte praktisch immer nur das nackte Dokument ohne alles. Unter Office (höhere Versionen) passiert das nicht. Hier wird Word ganz normal im Vollbild mit allen Leisten geöffnet. Da ich aber auf Arbeit nur Office 97 zur Verfügung habe, brauch ich ne Lösung, unter der Word in Vollbild normal öffnet. Gebe ich nämlich unter Office 97 nicht den Befehl :
With WordApp
'Word maximieren
.WindowState = wdWindowStateMaximize
'Word anzeigen
.Application.Visible = True
wird mir immer nur ein kleines Fenster geöffnet.
Wie kann ich das abstellen?
Ich habe es dann noch mal mit diesem Code probiert, da Word hier als Programm, nicht als Application, geöffnet wird. Da habe ich die Problem mit dem Öffnen nicht. Nur klappt hier der Befehl mit den gDir nicht. Ich bekomme zwar Word geöffnet, allerdings mit dem Hinweis, dass der Pfad nicht stimmt.
Was mach ich falsch???
Sub Vorlage_ Meldung_öffnen()
'prüfen, welcher Pfad existiert:
Dim VorlPfad As String
Dim VorlDatei As String
Dim FSo, sWb
Dim i As Byte
'alle angegebenen Pfade durchlaufen
For i = 1 To 200
'zu überprüfendes Hilfsblatt festlegen
VorlPfad = Worksheets("help.doc").Cells(i, 1)
'zu öffnende Datei festlegen
VorlDatei = VorlPfad & "Vorlage_Meldung.doc"
'überprüfen, ob die Datei existiert
Set FSo = CreateObject("Scripting.FileSystemObject")
If FSo.FileExists(VorlDatei) Then
'Meldung ausgeben
If Bowert = True Then MsgBox _
"Ordner wurde unter folgendem Pfad gefunden und wird jetzt geöffnet. Pfad lautet: " & VorlPfad
'prüfen ob "Verzeichnis" schon offen, wenn nicht öffnen:
On Error Resume Next
Dim stAppName As String
Dim gDir As String
'Pfad öffnen
gDir = VorlDatei
'Word öffnen
stAppName = "E:\Programme\Microsoft Office\Office10\WINWORD.EXE & gDir"
'Word maximieren
Call Shell(stAppName, vbMaximizedFocus)
Exit Sub
End If
Next
End Sub
Würde mich freuen wenn zu beiden Codes Hilfe käme.
Gruß Jens
Anzeige