Office: Word Dokument über Excel-Userform im Vordergrund öffnen

Foulcrow · 27. Juni 2017

Ein freundliches Hallo an Alle,

ich möchte über eine Userform in Excel ein Worddokument öffnen. Es soll vor Excel geöffnet werden, nicht in der Taskleiste abgelegt werden. Hier aus dem Forum und aus anderen Foren habe ich verschiedene Lösungen probiert, doch wurde mir das Dokument immer in der Taskleiste abgelegt.

Nun habe ich aus verschiedenen Lösungen mir einen Code gebastelt, der gestern super funktionierte, heute jedoch mal das Dokument im Vordergrund öffnet, dann aber auch wieder nur in der Taskleiste ablegt.

Code:

Private Sub CommandButton11_Click()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
WordApp.WindowState = -4143
WordApp.Activate
.Documents.Open Filename:="C:UsersTestTest.docx"
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So sieht mein Code derzeit aus. Was muss ich ändern, damit das Dokument immer im Vordergrund geöffnet wird? Ich habe leider keine Ahnung. Kann mir bitte jemand weiterhelfen?

Ich arbeite mit Excel 2013

Die Backslash werden im obigen Code zum Dateipfad nicht angezeigt, warum auch immer. Geschrieben sind sie aber.

beste Grüße Foulcrow

:)

Hajo_Zi · 29. Juni 2017

ich habe jetzt mal meine Dateien durchgeschaut und eine Code gefunden.
Frage mich aber nicht. Ist nicht von mir.

Code:

Option Explicit ' Variablendefinition erforderlich
Option Private Module ' damit Makros nicht unter Makro erscheinen
Dim oWord_App As Object, oDoc As Object, bWordVorhanden As Boolean
' Autor Peter Haserodt
' Online - Excel Programmierung VBA Makro: Zugriff auf andere Anwendungen (1) - Grundlagen und Irrtümer

Private Function Word_Connect() As Boolean
Word_Connect = True
On Error GoTo OpenError ' persönliche Fehlerbehandlung einschalten
' Gucken ob Word offen ist
Set oWord_App = GetObject(Class:="Word.Application")
' Veränderung Uwe Küstner aus folgendem Grund:
' Funktioniert sowohl bei Excel2003 als auch bei Excel97.
' Dort hat es nur zwei kleine Fehler:
' 1. Word wird nicht im Vollbildmodus geöffnet.
' 2. wenn Word in der Taskleiste sitzt, dann bleibt es auch dort,
' obwohl die Datei richtig geöffnet worden ist.
oWord_App.Activate
oWord_App.WindowState = 1
' **********
bWordVorhanden = True
On Error GoTo 0 ' Fehlerbehandlung einschalten
' Hier bei Bedarf prüfen ob Word sichtbar ist
Exit Function
OpenError: ' Word war nicht offen, also dann bitte öffnen
On Error GoTo CreateError ' persönliche Fehlerbehandlung einschalten
Set oWord_App = CreateObject(Class:="Word.Application")
' Dies gegebenenfalls rausnehmen wenn man unsichtbar arbeiten will
oWord_App.Visible = True
oWord_App.WindowState = 1 ' Veränderung Uwe Küstner
bWordVorhanden = False
Resume Next
Exit Function
CreateError:
' Word ist nicht vorhanden
MsgBox "Kein Word vorhanden"
Word_Connect = False
End Function

Private Sub Word_Disconnect()
' gegebenenfalls die Objektvariablen wieder freigeben
' Wir wollen ja keinen Verweis auf Word zurücklassen
On Error Resume Next
Set oDoc = Nothing
Set oWord_App = Nothing
End Sub

Public Sub TestOhneVerweis(StName As String)
If Not Word_Connect Then Exit Sub 'Raus wenns brennt
On Error GoTo Fehler
With oWord_App
' öffnen Ergänzung Hajo
If UCase(Right(StName, Len(StName) - InStrRev(StName, "."))) "DOT" _
Or UCase(Right(StName, Len(StName) - InStrRev(StName, "."))) = "DOTM" _
Or UCase(Right(StName, Len(StName) - InStrRev(StName, "."))) = "DOTX" Then
.Documents.Open StName
' *******
Else
.Documents.Add StName
End If
' Dieser Text wird in das Dokument geschrieben
'.Selection.Text = "He, dies funzt ja wirklich" & vbCrLf & vbCrLf & _
' "Jo is denn scho Weihnachten"
End With
Aufraeumen:
' #########################################
' Optionale Möglichkeit Word zu beenden, wenn wir es gestartet haben
'Hier muss man aber aufpassen, dass man vorher in Word aufgeräumt hat
' Also Dokumente geschlossen etc...
' If Not bWordVorhanden Then oWord_App.Quit
'############################################
Word_Disconnect ' Nicht vergessen ;-) !!!!!!!!!!!!!!!!!!!!!!!!!
Exit Sub
Fehler:
MsgBox Err.Description
Resume Aufraeumen
End Sub

Sub test()
TestOhneVerweis ("W:Internet Hilfe.docx")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 29. Juni 2017

Hallo Foulcrow,

probier mal mit Ergänzung nach der Zeile .Documents.Open...:
Code:

Call AppActivate(Title:="Test.docx - Word")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Foulcrow · 29. Juni 2017

Hallo Hajo,

vielen Dank für deine schnelle Antwort.
Den Code kann ich morgen erst probieren, doch er enthält leider Teile aus anderen Codes, die ich bereits verworfen habe, weil sie nicht funktionierten. Das heißt, sie öffneten das Word-Dokument nur in der Taskleiste.

Dort hatte ich auch (allerdings andere Schreibweise)
WordApp.WindowState = 1 zu stehen

und mit der Änderung auf
WordApp.WindowState = -4143

und zusätzlich der Zeile
WordApp.Activate

wurde mir das Word-Dokument sofort im Vordergrund geöffnet. Allerdings nachdem ich heute den Computer hochgefahren hatte, wurde mir meine Datei wieder in der Taskleiste abgelegt. Nach mehreren Versuchen öffnete Word wieder im Vordergrund und macht es auch weiterhin so. Außer wenn ich Herunterfahre und neu starte, dann geht das Spiel von vorne los.

Noch eine Bitte. Ich bin Anfänger in VBA und mein Code liegt dierekt in einem CommandButton. Deshalb weiß ich nicht, wo dieser lange Code jetzt eingefügt werden muss. Dierekt in die UserForm? Und was muss in den CommandButton rein, damit das Dokument öffnet?

beste Grüße Foulcrow

Foulcrow · 29. Juni 2017

Hallo EarlFred,

vielen Dank für deine Antwort.
Das werde ich morgen gleich probieren und das Ergebnis mitteilen.

beste Grüße Foulcrow

Foulcrow · 29. Juni 2017

Hallo EarlFred,

hatte eben doch noch Zeit, schnell zu testen. Auf diese Weise öffne ich mehrere Dokumente und habe nur zu einem den Code um deine Zeile ergänzt. Läuft super. Nach Neustart öffnen die Dokumente ohne deine Zeile im Code weiterhin anfänglich in der Taskleiste, das Dokument mit deiner Erweiterung wird sofort im Vordergrund angezeigt.

Nochmals vielen Dank für deine Hilfe.

beste Grüße Foulcrow

Office: Word Dokument über Excel-Userform im Vordergrund öffnen

Word Dokument über Excel-Userform im Vordergrund öffnen

Word Dokument über Excel-Userform im Vordergrund öffnen

Word Dokument über Excel-Userform im Vordergrund öffnen

Word Dokument über Excel-Userform im Vordergrund öffnen - Similar Threads - Word Dokument Excel

Word Dokument wird in Excel nicht als Serienbriefhauptdokument erkannt

Generieren einer URL für die Anzeige von Word-, Excel- und PowerPoint-Dokumenten in einem ...

Aus Excel heraus Word dokument öffnen und mit Variablen aus Excel füllen

Aus Excel prüfen ob Word Dokument offen

Aus Excel Datei mehrere Word-Dokumente erstellen

Einzelne Excel-Diagramme in Word einfügen

Word Dokument in Excel umwandeln