5. Zeile aus Worddatei in excel textbox

Private Sub CommandButton1_Click() Dim AppWd As Object Dim DocWd As Object Dim WordDatei As String Dim WordDateiPfad As String Dim TextWD As String Dim DateiName As String WordDateiPfad = "C:\Word\" WordDatei = "Bestätigung Wunschkennzeichen.docx" Set AppWd = CreateObject("Word.Application") Set DocWd = AppWd.Documents.Open(WordDateiPfad & WordDatei) DocWd.Range(0, 0).Select TextWD = DocWd.Range(0, 4).Text TextBox1.Value = DocWd.Bookmarks("\Line").Range.Text DocWd.Close savechanges:=False AppWd.Quit Set DocWd = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim AppWd As Object Dim DocWd As Object Dim WordDatei As String Dim WordDateiPfad As String Dim TextWD As String Dim DateiName As String WordDateiPfad = "C:\Word\" WordDatei = "Bestätigung Wunschkennzeichen.docx" Set AppWd = CreateObject("Word.Application") Set DocWd = AppWd.Documents.Open(WordDateiPfad & WordDatei) DocWd.Activate With AppWd .Application.Selection.HomeKey Unit:=wdStory .Application.Selection.MoveDown Unit:=wdLine, Count:=5 .Application.Selection.EndKey Unit:=wdLine, Extend:=wdExtend TextWD = .Application.Selection.Text End With TextBox1.Value = DocWd.Bookmarks("\Line").Range.Text DocWd.Close savechanges:=False AppWd.Quit Set DocWd = Nothing End Sub

Sub Word_Pdf_File_Öffnen() ' Öffnen einer PDF-Datei in Word, starten aus (Modul in) Excel-Arbeitsmappe Dim AppWd As Object Dim DocWd As Object pdfDateiPfad = "C:\Daten\" 'anpassen pdfDatei = "DeineDatei.pdf" 'anpassen Set AppWd = CreateObject("Word.Application") Set DocWd = AppWd.Documents.Open(pdfDateiPfad & pdfDatei) AppWd.Visible = True Set AppWd = Nothing Set DocWd = Nothing End Sub

Sub einfg_Pdf_File_in_Word_File() Dim AppWd As Object Dim DocWd As Object WordDateiPfad = "C:\Daten\" 'anpassen WordDatei = "test.docm" 'anpassen pdfDatei = "DeinePDFDatei.pdf" 'anpassen Set AppWd = CreateObject("Word.Application") Set DocWd = AppWd.Documents.Open(WordDateiPfad & WordDatei) With AppWd.Selection .EndKey Unit:=6 'wdStory, also Cursor ans Ende des Textes setzen .InsertBreak Type:=3 'wdSectionBreakContinuous, und einen fortlaufenden Absatz einfügen .TypeText Text:="eingefügtes PDF-File:" .TypeParagraph .InsertFile WordDateiPfad & pdfDatei End With AppWd.Visible = True Set AppWd = Nothing Set DocWd = Nothing End Sub

Sub tmp_Pdf_File_first2Word_then2Excel() Dim AppWd As Object Dim DocWd As Object myPfad = "C:\Users\joche\Desktop\VBA Übungen\Dirk 03072021\" myPDF = "Ertraegnisaufstellung_20210210.pdf" Set AppWd = CreateObject("Word.Application") Set DocWd = AppWd.Documents.Add With AppWd.Selection .InsertFile myPfad & myPDF .WholeStory .Copy End With With ActiveSheet .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True .Range("A1").Select End With DocWd.Close savechanges:=False Set DocWd = Nothing Set AppWd = Nothing End Sub

Hallo Dirk,
Word hat sein eigene Objekt-Modell und Range hat dabei nicht dieselbe Bedeutung wie in Excel.
Mache am bestens unter Extras, Verweis... eine Kreuz bei "Microsoft Word 16.0 Object Library" an (Nummer kann abweichen).
Dann vermeidest Du nicht nur die CreateObject, aber Du hast vor allem den IntelliSende (Strg+Leerzeichen) und das Objekt-Katalog (F2) zur Verfügung.
Folgende Code ist nicht genau was Du brauchst, aber ganz nah. Du wirst schnell entdecken, was daran zu ändern ist, um dein Ergebnis hinzubekommen.


Private Sub CommandButton1_Click()
Dim AppWd As Word.Application
Dim DocWd As Document
Dim i As Integer
Const WordDateiPfad = "C:\Word\"
Const WordDatei = "Bestätigung Wunschkennzeichen.docx"
Set AppWd = New Word.Application
Set DocWd = AppWd.Documents.Open(WordDateiPfad & WordDatei, ReadOnly:=True)
For i = 1 To WorksheetFunction.Min(DocWd.Paragraphs.Count, 10)
Debug.Print DocWd.Paragraphs(i).Range.Text
Next
DocWd.Close savechanges:=False
AppWd.Quit
Set DocWd = Nothing
End Sub

Word-Datei lieber Read-Only öffnen, sonst hast Du eine lästigen "wird gerade verwendet", wenn Du nicht sauber schliesst (z.B. bei Abbruch des Coding).
Variable dessen Wert sich nicht ändern, kann man als Konstanten definieren (weniger Code).
VG
Yal

Beliebteste Forumthreads (12 Monate)

5. Zeile aus Worddatei in excel textbox

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5. Zeile aus Worddatei in excel textbox

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread