Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro aus Windword starten

Forumthread: Makro aus Windword starten

Makro aus Windword starten
29.01.2004 11:57:58
Thorsten
Hallo,
ich frage mich ob es relativ problemlos möglich wäre aus einem Winword-Dokument drei Texte (Datum, Name, Titel) per Knopfdruck an eine bestehende Excellliste anzuhängen. Ich bin mir sicher, dass es geht, weiss aber nicht ob der Aufwand sehr gross ist.
Könnt Ihr mir helfen?
Thorsten
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro aus Windword starten
02.02.2004 02:22:41
Hans W. Herber
Hallo Thorsten,
wie folgt:

Sub WordImport()
Dim oXls As Object
Dim oWkb As Object
Dim oWks As Object
Dim iRow As Integer
Set oXls = CreateObject("Excel.Application")
Set oWkb = oXls.Workbooks.Open("c:\temp\test.xls")
Set oWks = oWkb.Worksheets(1)
iRow = oWks.Cells(oWks.Rows.Count, 1).End(xlUp).Row + 1
oWks.Cells(iRow, 1).Value = ActiveDocument.Bookmarks("Datum").Range.Text
oWks.Cells(iRow, 2).Value = ActiveDocument.Bookmarks("Name").Range.Text
oWks.Cells(iRow, 3).Value = ActiveDocument.Bookmarks("Titel").Range.Text
oWkb.Close savechanges:=True
Set oWks = Nothing
Set oWkb = Nothing
Set oXls = Nothing
End Sub

gruss hans
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige