ausExcel Worddatei öffnen Inhalte einfügen
27.08.2002 15:18:06
Dirk
ich verwende zum Aufrufen des z.B. Wordprogramms folgende Befehle:
Sub WordausExcelaufrufen()
Status = Shell("C:\Office\WINWORD.EXE", 1)
End Sub
Jedoch kann ich bisher noch keine Worddatei damit aufrufen.
Die einzige sehr umständliche Lösung habe ich wie folgt gefunden:
Sub Worddatei_aufrufen()
verz = "test.doc"
Sheets("Tabelle1").Cells(1, 1).Select
' Zelle definieren, in die der Hyperlink geschrieben wird
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\temp\" & verz
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlMaximized
End Sub
Ist es möglich dies einfacher zu erreichen und in das 1. Beispiel einzubinden?
Desweiteren möcht ich Inhalte aus Excel nach Word kopieren. Ist dies möglich?
Über Hilfe würde ich mich sehr freuen
Besten Dank schon einmal
Gruss
Dirk
Anzeige