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

Word-Dokument mit VBA öffnen

Forumthread: Word-Dokument mit VBA öffnen

Word-Dokument mit VBA öffnen
22.10.2004 17:52:18
Alex
Hallo,
kann mir jemand sagen, wie ich ein Word-Dokument mit VBA-Schaltfläche aus Excel öffnen kann? Das ganze Verzeichnis (Excel-Datei und Word-Dateien) sollen später aus CD gebrannt werden.
Danke
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word-Dokument mit VBA öffnen
22.10.2004 17:59:39
Mike E.
Hallo,
so in etwa (zuvor im VB-Editor unter "Extras" einen Verweis auf die Word-ObjectLibrary setzen):

Private Sub cmdWord_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open("C:\DeinDokument.doc")
wrdApp.Documents.Open ("C:\DeinDokument.doc")
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub

Beste Grüße
Mike
Anzeige
AW: Word-Dokument mit VBA öffnen
22.10.2004 18:58:20
Alex
Klappt eigentlich ganz gut, aber wenn ich dann alles auf CD brenne, dann kenne ich ja nicht den kompletten Pfad. CD-Laufwerk kann ja D:, E: oder sonst was sein.
Kann ich auch einen variablen Pfad angeben? Wenn ja, wie?
AW: Word-Dokument mit VBA öffnen
22.10.2004 19:52:02
andre
Hallo Alex,
das mal als Anregung mit Inputbox. Ein Standardname / Pfad ist in der Mappe hinterlegt.
...
DeinDateiName = InputBox("Eingabe Hauptdokument: ", "Hauptdokument", ThisWorkbook.Sheets("Admin").[a1])
If DeinDateiName = "" Then DeinDateiName = ThisWorkbook.Sheets("Admin").[a1]
' Document öffnen
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = False
'wordObj.Visible = True
On Error GoTo nixda
wordObj.Documents.Open DeinDateiName
...
Anzeige
AW: Word-Dokument mit VBA öffnen
23.10.2004 14:47:04
Martin II.
kann er nicht auch den momentanen pfad mittels CurDir auslesen und in eine variable schreiben. damit wäre es egal, wo die datei die er öffnen will liegt, ob auf lw e: oder f: oder sonstwo.

Private Sub cmdWord_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = New Word.Application
Dim strPfad as string
strPfad = CurDir
ChDir strPfad
Set wrdDoc = wrdApp.Documents.Open("DeinDokument.doc")
wrdApp.Documents.Open ("DeinDokument.doc")
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Word-Dokument mit VBA aus Excel öffnen


Schritt-für-Schritt-Anleitung

Um ein Word-Dokument mit VBA aus Excel zu öffnen, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11 in Excel, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Verweis auf die Word-ObjectLibrary setzen:

    • Gehe zu Extras > Verweise und aktiviere die Microsoft Word xx.0 Object Library (xx steht für die Version).
  3. VBA-Code hinzufügen:

    • Füge den folgenden Code in ein neues Modul ein, um ein Word-Dokument zu öffnen:
    Private Sub cmdWord_Click()
       Dim wrdApp As Word.Application
       Dim wrdDoc As Word.Document
       Set wrdApp = New Word.Application
       Set wrdDoc = wrdApp.Documents.Open("C:\DeinDokument.doc")
       wrdApp.Visible = True
       Set wrdDoc = Nothing
       Set wrdApp = Nothing
    End Sub
  4. Füge eine Schaltfläche hinzu:

    • Gehe zurück zu Excel, füge eine Schaltfläche ein und verlinke sie mit dem cmdWord_Click Sub.

Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden":

    • Stelle sicher, dass der angegebene Pfad zur Word-Datei korrekt ist. Verwende MsgBox zur Fehlersuche.
  • Fehler: Word öffnet nicht:

    • Überprüfe, ob Word korrekt installiert ist und in der Registry eingetragen ist.
  • Lösung für variablen Pfad:

    • Wenn der Pfad variabel ist (z.B. auf CD), kannst Du InputBox verwenden, um den Dateinamen dynamisch abzufragen:
    DeinDateiName = InputBox("Eingabe Hauptdokument: ", "Hauptdokument", ThisWorkbook.Sheets("Admin").[A1])
    If DeinDateiName = "" Then DeinDateiName = ThisWorkbook.Sheets("Admin").[A1]

Alternative Methoden

  • Verwendung von CurDir:

    • Du kannst den aktuellen Arbeitsordner auslesen und das Dokument entsprechend öffnen:
    Dim strPfad As String
    strPfad = CurDir
    Set wrdDoc = wrdApp.Documents.Open(strPfad & "\DeinDokument.doc")
  • Datei über CreateObject öffnen:

    • Ein alternativer Weg ist die Verwendung von CreateObject, um Word zu öffnen:
    Dim wordObj As Object
    Set wordObj = CreateObject("Word.Application")
    wordObj.Visible = True
    wordObj.Documents.Open "C:\DeinDokument.doc"

Praktische Beispiele

  1. Ein einfaches Word-Dokument öffnen:

    Private Sub cmdOpenWord_Click()
       Dim wrdApp As Object
       Set wrdApp = CreateObject("Word.Application")
       wrdApp.Visible = True
       wrdApp.Documents.Open "C:\DeinDokument.doc"
    End Sub
  2. Ein Dokument im aktuellen Verzeichnis öffnen:

    Private Sub cmdOpenCurrentDir_Click()
       Dim wrdApp As Object
       Dim strPfad As String
       strPfad = CurDir
       Set wrdApp = CreateObject("Word.Application")
       wrdApp.Visible = True
       wrdApp.Documents.Open strPfad & "\DeinDokument.doc"
    End Sub

Tipps für Profis

  • Excel als vertrauenswürdig einstufen:

    • Um Sicherheitswarnungen beim Öffnen von Word-Dokumenten zu vermeiden, stelle sicher, dass Excel und Word als vertrauenswürdig eingestuft sind.
  • VBA Code optimieren:

    • Verwende With-Anweisungen, um den Code lesbarer und effizienter zu gestalten:
    With wrdApp
       .Visible = True
       .Documents.Open "C:\DeinDokument.doc"
    End With
  • Fehlerbehandlung einfügen:

    • Implementiere eine Fehlerbehandlung, um unerwartete Fehler während der Ausführung zu vermeiden:
    On Error GoTo ErrorHandler
    ' Dein Code hier
    Exit Sub
    ErrorHandler:
       MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Wie kann ich ein Word-Dokument mit VBA öffnen und bearbeiten? Um ein Word-Dokument zu öffnen und zu bearbeiten, kannst Du den VBA-Code so anpassen, dass Du auf die Dokumentobjekte zugreifst, nachdem Du das Dokument geöffnet hast.

2. Was mache ich, wenn der Pfad zur Datei unbekannt ist? Verwende eine InputBox, um den Benutzer nach dem Pfad zu fragen, oder nutze CurDir, um den aktuellen Ordner auszulesen.

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