Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Word in Vordergrund

Forumthread: Word in Vordergrund

Word in Vordergrund
14.06.2018 11:23:16
Jörg
Hallo,
ich habe das Problem, dass ich es zwar schaffe, die entsprechende Datei zu finden und zu öffnen, aber ich hab keine Ahnung, wie ich Word sofort im Vordergrund öffnen kann und hoffe auf eure Hilfe. Folgenden Quellcode hab ich:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.WindowState = 1
AppWD.Activate
Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder(Worksheets("Nutzerverwaltung").Range("B29"))
For Each File In Folder.Files
If File.Name Like "LOV VA P-4 Produktion A*.dot" Then
AppWD.Documents.Open File.Path, ReadOnly:=True
Exit For 'nur die erste Datei ist relevant
End If
Next
End Sub

Danke schon mal im Vorraus
Jörg
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word in Vordergrund
14.06.2018 12:49:04
Michael
Hallo!
https://stackoverflow.com/questions/25362563/open-word-document-and-bring-to-front
LG
Michael
AW: Word in Vordergrund
14.06.2018 13:40:41
Jörg
Hallo Michael,
ich habe mir deinen Link angesehen, komme aber nicht damit zurecht.
Könntest du mir den Quelltext entsprechend abändern.
Ich danke schon mal
Gruß Jörg
Anzeige
AW: Word in Vordergrund
19.06.2018 09:37:40
Michael
Hi!
Versuch's mal mit diesem Tipp aus dem gezeigten Link:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.WindowState = 1
AppWD.Activate
Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder(Worksheets("Nutzerverwaltung").Range("B29"))
For Each File In Folder.Files
If File.Name Like "LOV VA P-4 Produktion A*.dot" Then
AppWD.Documents.Open File.Path, ReadOnly:=True
AppWD.Selection.Goto what:=1, which:=2, Name:=pagenumber
AppWD.Visible = True
AppWD.acitvate
Exit For 'nur die erste Datei ist relevant
End If
Next
End Sub
LG
Michael
Anzeige
AW: Word in Vordergrund
19.06.2018 10:06:25
Jörg
Hallo Michael,
danke für deine Mühe. Ich hab das zwischenzeitlich mit folgendem Quelltext erledigt. Komischerweise hab ich zwar unter Excel 2010 ab und zu einen Laufzeitfehler, aber unter Excel 2013 läuft es super:
Private Sub CommandButton10_Click()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.WindowState = 1
AppActivate AppWD.Caption
Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder(Worksheets("Nutzerverwaltung").Range("B29"))
For Each File In Folder.Files
If File.Name Like "LOV VA P-4 Produktion A*.dot" Then
AppWD.Documents.Open File.Path, ReadOnly:=True
Exit For 'nur die erste Datei ist relevant
End If
Next
End Sub
Danke nochmal!
Gruß Jörg
Anzeige
Alles klar, dann noch viel Erfolg, lg und owT
19.06.2018 10:12:14
Michael
;
Anzeige

Infobox / Tutorial

Word im Vordergrund öffnen


Schritt-für-Schritt-Anleitung

Um Word im Vordergrund zu öffnen, kannst du den folgenden VBA-Code verwenden. Achte darauf, dass du die richtigen Verweise in deinem Excel-Projekt gesetzt hast.

Private Sub CommandButton10_Click()
    Dim AppWD As Object
    Set AppWD = CreateObject("Word.Application") 'Word als Object starten
    AppWD.Visible = True
    AppWD.WindowState = 1
    AppWD.Activate
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set Folder = FS.GetFolder(Worksheets("Nutzerverwaltung").Range("B29"))

    For Each File In Folder.Files
        If File.Name Like "LOV VA P-4 Produktion A*.dot" Then
            AppWD.Documents.Open File.Path, ReadOnly:=True
            Exit For 'nur die erste Datei ist relevant
        End If
    Next
End Sub

Dieser Code öffnet eine Word-Datei im Vordergrund. Stelle sicher, dass du den Pfad zur Datei korrekt angibst.


Häufige Fehler und Lösungen

  • Laufzeitfehler unter Excel 2010:

    • Dies kann auftreten, wenn die Version von Excel und Word nicht optimal zusammenarbeiten. Versuche, die Datei unter Excel 2013 zu öffnen, wie im Thread beschrieben.
  • Word öffnet sich nicht im Vordergrund:

    • Stelle sicher, dass der Befehl AppWD.Activate nach dem Öffnen des Dokuments aufgerufen wird.

Alternative Methoden

Eine alternative Methode zur Steuerung von Word aus Excel ist die Verwendung der AppActivate-Funktion. Hier ist ein Beispiel:

Private Sub CommandButton10_Click()
    Dim AppWD As Object
    Set AppWD = CreateObject("Word.Application") 'Word als Object starten
    AppWD.Visible = True
    AppWD.WindowState = 1
    AppActivate AppWD.Caption 'Bringt Word in den Vordergrund
    ' Rest des Codes...
End Sub

Diese Methode sorgt dafür, dass Word sofort fokussiert wird, nachdem es sichtbar gemacht wurde.


Praktische Beispiele

Angenommen, du hast eine Tabelle in Excel, die eine Liste von Word-Dokumenten enthält. Du kannst den Code leicht anpassen, um die Dokumente basierend auf Informationen aus der Tabelle zu öffnen.

Hier ein Beispiel, wie du den Code für eine Word-Tabelle im Vordergrund verwenden kannst:

Dim WordDoc As Object
Set WordDoc = AppWD.Documents.Open("Pfad_zur_Datei")
' Hier kannst du die Tabelle in Word bearbeiten

Tipps für Profis

  • Achte darauf, dass du die richtige Version von Excel verwendest, um Komplikationen zu vermeiden. Excel 2013 hat in der Regel weniger Probleme mit der Interaktion mit Word.
  • Nutze die Try...Catch-Struktur, um mögliche Fehler beim Öffnen von Dateien abzufangen und zu behandeln.
  • Halte deine Office-Anwendungen stets auf dem neuesten Stand, um die besten Ergebnisse zu erzielen.

FAQ: Häufige Fragen

1. Wie bringe ich eine Word-Tabelle in den Vordergrund? Verwende den oben genannten Code mit AppActivate, um sicherzustellen, dass das Word-Dokument im Vordergrund angezeigt wird.

2. Funktioniert dieser Code in allen Excel-Versionen? Der bereitgestellte Code funktioniert am besten in Excel 2013 und höher. Bei älteren Versionen kann es zu Laufzeitfehlern kommen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige