Word Datei über Excel VBA öffnen

Hallo,

ich brauche Hilfe, da ich ein blutiger Excel VBA Anfänger bin. Naja, ein bisschen, kann ich Codes lesen aber selbst welche generieren, da beist es tatsächlich aus. Bisher habe noch keine Lösung gefunden, die mich zufrieden stellen würde.

Ich habe eine Excel Datei, von der aus ich eine Word Datei starten möchte. Die Word Datei soll quasi erscheinen und in den Vordergrund gerückt werden und auch nur im "Ansichtsmodus" gestartet werden.

Es soll am besten keine Änderung vorgenommen werden können oder gespeichert werden können.

Wenn die entsprechende Word- Datei im Hintergund bereits geöffnet ist, sollte diese einfach nur erscheinen. (Andere möglicherweise geöffnete Word Dateien sollten nicht betroffen sein, also alles was im Code passiert, sollte tatsächlich nur die eine Word Datei umfassen)

Die praktische Anwendung ist: ich habe eine Excel Datei die als Programm fungiert und ein Bediener soll eine Arbeitsanweisung öffnen, anschauen und wieder schließen können.

Ich hab zwar bereits die Datei öffnen können,aber man hätte sie dann auch ändern und auch überspeichern können. Wenn das Dokument geöffnet war, kam im Hintergrund eine Fehlermeldung und es machte keine Datei mehr auf - bzw. nach der Bestätigung immer ein weiteres Word Dokument.

Ich hoffe ihr könnt mein Problem nachvollziehen und habt vll einen Code an der Hand der mir hier helfen kann.

Für jede Hilfe vin ich dankbar.

Vielen lieben Dank und einen guten Start in die kommende Woche.

VG
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub XL_öffnet_WordFile() Dim wdApp As Object Dim wdDoc As Object Dim myFile As String 'Word-Anwendung initialisieren On Error Resume Next Set wdApp = GetObject("Word.Application") If Err > 0 Then Err = 0 Set wdApp = CreateObject("Word.Application") Else If Not wdApp.Visible Then Err = 0 Set wdApp = CreateObject("Word.Application") End If End If myFile = "Dein Pfad" & "\" & "Deine Word-Datei" wdApp.Visible = True 'Word-Datei schreibgeschützt öffnen, Set wdDoc = wdApp.Documents.Open(myFile, ReadOnly:=True) ' ...... Deine Aktivitäten 'Word-Dokument anzeigen wdApp.Activate 'aufräumen Set wdDoc = Nothing Set wdApp = Nothing End Sub

Option Explicit Sub XL_öffnet_WordFile() Dim wdApp As Object Dim wdDoc As Object Dim myFile As String Dim myPath As String Dim oDok As Object myPath = "Dein Pfad\" myFile = "Deine Word-Datei" 'Word initialisieren On Error Resume Next Set wdApp = GetObject("Word.Application") If err > 0 Then 'Word ist noch nicht gestartet Set wdApp = CreateObject("Word.Application") Set wdDoc = wdApp.Documents.Open(filename:=myPath & myFile, ReadOnly:=True) Else 'Word läuft bereits For Each oDok In wdApp.Documents 'ist das bestimmte Dokument geöffnet? If wdApp.Documents(oDok.Name) = myFile Then wdApp.Documents(oDok.Name).Activate Exit For End If Next End If ' ...... Hier Deine Aktivitäten wdApp.Visible = True wdApp.Activate 'aufräumen Set wdDoc = Nothing Set wdApp = Nothing End Sub

Option Explicit Sub XL_öffnet_WordFile() Dim wdApp As Object Dim wdDoc As Object Dim myFile As String 'Word-Anwendung initialisieren Set wdApp = CreateObject("Word.Application") myFile = "Dein Pfad" & "\" & "Deine Word-Datei" wdApp.Visible = True 'Word-Datei schreibgeschützt öffnen, Set wdDoc = wdApp.Documents.Open(myFile, ReadOnly:=True) ' ...... Deine Aktivitäten 'Word-Dokument anzeigen wdApp.Activate 'aufräumen Set wdDoc = Nothing Set wdApp = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Word Datei über Excel VBA öffnen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word Datei über Excel VBA öffnen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread