Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige