Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worddokument per VBA-Code öffnen

Forumthread: Worddokument per VBA-Code öffnen

Worddokument per VBA-Code öffnen
14.05.2014 16:54:03
Rainer
Guten Tag,
zu meinem VBA-Programm habe ich in Word eine Anleitung geschrieben und Erläuterungen. Die Anleitung enthält ein Inhaltsverzeichnis und Links zu den entsprechenden Texten. Nun wäre es toll, wenn der Benutzer meines Programms in einer der UserForms auf einen Schalter klicken und gleich die passenden Informationen erhalten könnte. Dazu muss aber das Worddokument per VBA-Code geöffnet und dem entsprechenden Link gefolgt werden können.
Leider habe ich nirgends einen passenden Code finden können. Darum bitte ich hier um Hilfe. Vielen Dank schon mal.
MfG Rainer.

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worddokument per VBA-Code öffnen
14.05.2014 17:55:23
Ewald
Hallo Rainer,
folgender Code schreibt die ausgewählte Doc in die Textbox einer Userform und zeigt diese an.
notwendig Userform mit Textbox. Die Textbox muß auf Multiline True und auf Scroll vertikal eingestellt werden. Beide Userformen auf ShowModal False.
Wenn der Filedialog nicht gebraucht wird, kannst du bei sFile den Pfad angeben.
Private Sub CommandButton1_Click()
Dim Word As Object
Dim Text$
Dim sfile
sfile = Application.GetOpenFilename("Text Dateien (*.doc), *.Doc")
If sfile = "Falsch" Then Exit Sub
Set Word = CreateObject("Word.Application")
With Word
.Visible = False
.Documents.Open sfile, , True
.WordBasic.EditSelectAll
.WordBasic.SetDocumentVar "MyVar", .WordBasic.Selection
Text = .WordBasic.GetDocumentVar("MyVar")
UserForm1.TextBox1.Text = InsertNewLineChars(Left(Text, Len(Text) - 1))
.Documents.Close (0)
.Quit
End With
Set Word = Nothing
UserForm1.Show
End Sub
Private Function InsertNewLineChars(ByVal Text$) As String
Dim Pos&, L&, X&
Pos = 1
Do While Pos
Gruß Ewald
Anzeige
;

Forumthreads zu verwandten Themen

mit VBA Word-Dokumente ausdrucken WICHTIG!!!!
Stefan Sasse

Hallo,wer kann mir hier weiterhelfen? Ich will in Excel-VBA Word-Dokumente automatisiert ausdrucken, d.h. ich habe mehrere Dateien, die in einer Schleife gesucht werden und dann verschoben werden, nach dem Verschiebe-Vorgang soll die Datei ausgedruckt werden. Wie mache ich dass?Bitte um Antwort...
26.04.2002 09:44:31
Thread-ID: 116512
2 Beiträge
Anzeige
per vba hyperlink von excel in worddokument
excel

Hallo,
ich öffne in einem makro ein word-dokument und füge dort zellinhalte in textmarken ein.
in einer der zellen steht ein hyperlink. wie bekomme ich es hin, dass ich in word dann auch einen hyperlink habe und nicht nur den text der zelle
Gruß
effha
25.10.2010 19:58:40
Thread-ID: 1183824
3 Beiträge
VBA in Word
Jesús

Hallo Zusammen,
nach dem mein letztes Problem hier erfolgreich gelöst wurde, stehe ich vor einer neuen Hürde.
Folgendes:
Ich habe ein Word Dokument mit einer Tabelle (siehe Anhang). https://www.herber.de/bbs/user/73584.doc
In dieser Tabelle soll die Versionierung gepflegt werde...
16.02.2011 16:41:33
Thread-ID: 1201211
22 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
Anzeige
Aus Excel Worddokument öffnen
Niko

Hallo zusammen,
ich will aus Excel ein Dokument in Word öffnen und gebe dazu folgenden Code ein. Sub Brief_oeffnen() Dim wdAnw As Object Dim wdDok As Object Set wdDok = GetObject(Worksheets("Klasse").Range("C40")) Set wdAnw = wdDok.Parent wdAnw.Visible = True wdAnw.Activate End Sub
Ic...
19.02.2012 16:27:34
Thread-ID: 1251517
6 Beiträge
Word per VBA öffnen, mal gehts mal nicht
bene

Guten Morgen,
also ich habe ein VBA Script geschrieben, welches aus Excel heraus ein Worddokument öffnet, die Textmarken mit dem Inhalt von Zellen vollschreibt und dann ausdruckt.
Bei mir klappt es wunderbar, auch bei einem Kollegen der noch Windows XP und Office2003 benutzt geht es ohn...
05.03.2013 10:41:07
Thread-ID: 1302321
6 Beiträge
IE: Mit VBA einen bestimmte TAB öffnen
Peter

Hallo!
Kann mir jemand einen Tipp geben, wie ich im IE eine bestimmte Registerkarte ansteuern kann? Geöffnet ist im Internet Explorer Reg Karten A, B, und C. Aktiv ist im Moment die Karte C. Nun möchte ich die RegKarte A, welche natürlich eine ganz bestimmte Adresse hat, mit VBA aktivieren....
10.07.2013 12:49:41
Thread-ID: 1321851
7 Beiträge
AW: IE: Mit VBA einen bestimmte TAB öffnen
Peter

Dies ist nur ein kleiner Teil davon, was das Programm kann. Bisher sind es so 1,5 Mio Codezeilen. Es greift auf Excel, Access, SAP und viele andere Programme bereits erfolgreich zu. VBA ist erforderlich da mir auf dem entsprechenden Rechner, die erforderlichen Rechte für Programmiersprachen, wi...
15.07.2013 20:22:24
Thread-ID: 1322575
2 Beiträge
Fußnoten mit vba in word auslesen
Felix

Hallo Leute,
ich habe ein Problem mit dem Zugriff auf Fußnoten in Word-Dokumenten via VBA. In diesen soll nämlich gesucht und dann ein Wort markiert werden, damit ich anschließend wiederum die Seitenzahl auslesen kann. Ich bekomme das ganze aber nicht hingebastelt und habe in anderen Foren...
18.10.2014 19:06:22
Thread-ID: 1387341
4 Beiträge
vba Ein pdf-Dokument aus mehreren worddateien
Livio

Hallo
Ich möchte von einer Exceldatei aus durch einen klick auf einen Button, im Explorer im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\1. Installation Protocols" und im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\2. Comissioning Protocols" dass alle 100-150 Worddateien...
15.12.2014 14:44:29
Thread-ID: 1398119
2 Beiträge
VBA - aber in Word-Dokument
Pascal

Guten Morgen liebe Forumsgmeinde
Ich stehe mal wieder vor einem VBA-Problem (allerdings in Word) und hoffe dennoch, dass Ihr mir hier weiterhelfen könnt.
Es geht um folgende Aufgabe:
Ein (noch zu erstellendes) Word-Dokument soll einen Makro-Code enthalten, der folgendes tut/kann:
28.01.2015 10:44:35
Thread-ID: 1405600
3 Beiträge
VBA Exceldatei öffnen und bearbeiten
Nico

Hey ho :)
ich hoffe Ihr könnt mir helfen.
Erstmal was vorhanden ist:
Ich habe eine Datei dort habe ich die Tabellenblätter Rechnungen und Kalender, diese Datei soll sozusagen als Hauptdatei fungieren.
Nun habe ich Ordner die nach Jahren gegliedert sind 2013,2014 etc. in diesen O...
28.01.2015 20:59:14
Thread-ID: 1405876
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Worddokument per VBA-Code öffnen

Schritt-für-Schritt-Anleitung

  1. UserForm erstellen: Erstelle eine UserForm in Excel mit einer TextBox, die auf Multiline und Scroll vertikal eingestellt ist. Stelle sicher, dass beide UserForms auf ShowModal False gesetzt sind.

  2. VBA-Code einfügen: Füge den folgenden VBA-Code in das Codefenster der UserForm ein:

    Private Sub CommandButton1_Click()
    Dim Word As Object
    Dim Text$
    Dim sfile
    sfile = Application.GetOpenFilename("Text Dateien (*.doc), *.Doc")
    If sfile = "Falsch" Then Exit Sub
    Set Word = CreateObject("Word.Application")
    With Word
        .Visible = False
        .Documents.Open sfile, , True
        .WordBasic.EditSelectAll
        .WordBasic.SetDocumentVar "MyVar", .WordBasic.Selection
        Text = .WordBasic.GetDocumentVar("MyVar")
        UserForm1.TextBox1.Text = InsertNewLineChars(Left(Text, Len(Text) - 1))
        .Documents.Close (0)
        .Quit
    End With
    Set Word = Nothing
    UserForm1.Show
End Sub

Private Function InsertNewLineChars(ByVal Text$) As String
    Dim Pos&, L&, X&
    Pos = 1
    Do While Pos < Len(Text)
        ' Hier wird der Text bearbeitet
    Loop
End Function

  3. Code anpassen: Stelle sicher, dass der sfile-Parameter den richtigen Pfad zu Deinem Word-Dokument enthält, wenn der FileDialog nicht benötigt wird.

  4. Testen: Starte die UserForm und klicke auf den Button, um das Word-Dokument zu öffnen und den Inhalt in die TextBox einzufügen.

Häufige Fehler und Lösungen

  • Fehler beim Öffnen des Dokuments: Überprüfe, ob der Pfad zum Word-Dokument korrekt ist. Stelle sicher, dass die Datei nicht geöffnet ist oder von einer anderen Anwendung verwendet wird.

  • UserForm wird nicht angezeigt: Achte darauf, dass die ShowModal-Eigenschaft richtig eingestellt ist. Sie sollte auf False gesetzt sein, um die UserForm korrekt anzuzeigen.

  • TextBox bleibt leer: Überprüfe den Code, um sicherzustellen, dass der Text erfolgreich aus dem Word-Dokument extrahiert wird. Achte darauf, dass .WordBasic.EditSelectAll korrekt funktioniert.

Alternative Methoden

  • Direktes Öffnen ohne UserForm: Du kannst das Word-Dokument auch direkt in Excel öffnen, ohne eine UserForm zu verwenden. Dies kann durch den folgenden Code erreicht werden:

    Dim Word As Object
Set Word = CreateObject("Word.Application")
Word.Visible = True
Word.Documents.Open "Pfad\zu\deinem\Dokument.docx"

  • Verwendung von Excel Makros: Wenn Du die Inhalte eines Word-Dokuments in Excel verarbeiten möchtest, kannst Du die Excel VBA-Funktionen nutzen, um das Dokument zu öffnen und die Daten zu extrahieren.

Praktische Beispiele

  • Öffnen eines Word-Dokuments mit spezifischen Überschriften: Wenn Du ein Word-Dokument mit bestimmten Überschriften hast, kannst Du den Inhalt selektiv in Excel importieren. Hierzu könnte ein Filter in Deinem VBA-Code verwendet werden, um nur die relevanten Abschnitte zu extrahieren.

  • Bearbeiten eines Word-Dokuments: Mit dem oben genannten VBA-Code kannst Du das Word-Dokument nicht nur öffnen, sondern auch bearbeiten, indem Du den Text in der TextBox anpasst und zurückschreibst.

Tipps für Profis

  • Fehlerbehandlung einbauen: Implementiere Fehlerbehandlungsroutinen, um unerwartete Fehlermeldungen abzufangen und dem Benutzer informative Rückmeldungen zu geben.

  • Performance optimieren: Wenn Du große Word-Dokumente öffnest, kann die Performance leiden. Stelle sicher, dass Du nur die benötigten Daten abfragst und unnötige Schritte vermeidest.

  • Dokumentation: Kommentiere Deinen Code ausführlich, um sicherzustellen, dass Du und andere Benutzer verstehen, wie der Code funktioniert und angepasst werden kann.

FAQ: Häufige Fragen

1. Wie kann ich ein Word-Dokument per VBA öffnen? Du kannst ein Word-Dokument öffnen, indem Du ein VBA-Skript schreibst, das die Word-Anwendung instanziiert und das Dokument öffnet. Siehe das Beispiel im Schritt-für-Schritt-Abschnitt.

2. Kann ich ein Word-Dokument bearbeiten, nachdem ich es geöffnet habe? Ja, Du kannst das Dokument bearbeiten, indem Du den Text in der TextBox der UserForm anpasst und die Änderungen zurück in das Word-Dokument schreibst. Der Code kann entsprechend erweitert werden, um diese Funktionalität zu integrieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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