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
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
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
Um ein Word-Dokument mit VBA aus Excel zu öffnen, folge diesen Schritten:
Öffne den VBA-Editor:
ALT + F11
in Excel, um den Visual Basic for Applications (VBA) Editor zu öffnen.Verweis auf die Word-ObjectLibrary setzen:
Extras
> Verweise
und aktiviere die Microsoft Word xx.0 Object Library
(xx steht für die Version).VBA-Code hinzufügen:
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
Füge eine Schaltfläche hinzu:
cmdWord_Click
Sub.Fehler: "Datei nicht gefunden":
MsgBox
zur Fehlersuche.Fehler: Word öffnet nicht:
Lösung für variablen Pfad:
InputBox
verwenden, um den Dateinamen dynamisch abzufragen:DeinDateiName = InputBox("Eingabe Hauptdokument: ", "Hauptdokument", ThisWorkbook.Sheets("Admin").[A1])
If DeinDateiName = "" Then DeinDateiName = ThisWorkbook.Sheets("Admin").[A1]
Verwendung von CurDir
:
Dim strPfad As String
strPfad = CurDir
Set wrdDoc = wrdApp.Documents.Open(strPfad & "\DeinDokument.doc")
Datei über CreateObject
öffnen:
CreateObject
, um Word zu öffnen:Dim wordObj As Object
Set wordObj = CreateObject("Word.Application")
wordObj.Visible = True
wordObj.Documents.Open "C:\DeinDokument.doc"
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
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
Excel als vertrauenswürdig einstufen:
VBA Code optimieren:
With
-Anweisungen, um den Code lesbarer und effizienter zu gestalten:With wrdApp
.Visible = True
.Documents.Open "C:\DeinDokument.doc"
End With
Fehlerbehandlung einfügen:
On Error GoTo ErrorHandler
' Dein Code hier
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen