*.bas Datei über Excel VBA Makro in Word importieren

Thomas

unread,

Jun 27, 2004, 7:47:08 AM6/27/04

to

Hallo,

ich möchte gerne ein Wordmakro von Excel aus erzeugen. Hierzu habe ich
folgenden Tip bekommen:

Sub Word_Makro_aus_Excel_erzeugen_ueber_Datei_kopieren()
strFileName = "test.bas"
ThisWorkbook.VBProject.VBComponents("Wordmakro").Export
(strFileName)
appWord.ActiveDocument.VBProject.VBComponents.Import (strFileName)
Kill strFileName
End Sub

Das Ganze funktioniert auch bis zu dem Punkt
appWord.ActiveDocument.VBProject.VBComponents.Import (strFileName)
Hier ist die Datei test.bas erzeugt inkl. Inhalt(Modul Wordmakro). Nun
erscheint aber im Debugger die Fehlermeldung "Objekt erforderlich" und
die genannte Zeile wird gelb hinterlegt!

Wo liegt das Problem?

Bin für alle Hinweise dankbar, Gruß Thomas

Michael Zimmermann

unread,

Jun 27, 2004, 8:11:20 AM6/27/04

to

Hallo!

Thomas:

> Sub Word_Makro_aus_Excel_erzeugen_ueber_Datei_kopieren()
> strFileName = "test.bas"
>
> ThisWorkbook.VBProject.VBComponents("Wordmakro").Export
> (strFileName)
> appWord.ActiveDocument.VBProject.VBComponents.Import
> (strFileName) Kill strFileName
> End Sub
>
> Das Ganze funktioniert auch bis zu dem Punkt
> appWord.ActiveDocument.VBProject.VBComponents.Import
> (strFileName) Hier ist die Datei test.bas erzeugt inkl.
> Inhalt(Modul Wordmakro). Nun erscheint aber im Debugger
> die Fehlermeldung "Objekt erforderlich" und die genannte
> Zeile wird gelb hinterlegt!

Versuch mal, ob es klappt, wenn Du, falls nicht vorhanden,
z. B. einen Ordner C:\Temp anlegst, und dann

strFileName = "C:\Temp\test.bas"

benutzt.

Gruß aus Mainz
Michael

Martin Worm

unread,

Jun 27, 2004, 9:15:02 AM6/27/04

to

Am 27 Jun 2004 04:47:08 -0700, Thomas schrieb:

hallo Thomas,

> appWord.ActiveDocument.VBProject.VBComponents.Import (strFileName)

>Das Ganze funktioniert auch bis zu dem Punkt
>appWord.ActiveDocument.VBProject.VBComponents.Import (strFileName)
>Hier ist die Datei test.bas erzeugt inkl. Inhalt(Modul Wordmakro). Nun
>erscheint aber im Debugger die Fehlermeldung "Objekt erforderlich" und
>die genannte Zeile wird gelb hinterlegt!

Wann und wo erzeugst du das Wordobjekt appWord?

mfG

--
E-Mail von Martin Worm, Karlsruhe, Deutschland
benutze Excel2000(9.0.2812) Win ME
Antworten bitte nur in die Newsgroup

stefan onken

unread,

Jun 28, 2004, 3:47:41 AM6/28/04

to

hallo Thomas,
wie Martin ja schon schreibt, mußt du in dem Excel-Makro
die Variable appWord mit Leben füllen. Siehe dazu den
älteren threat von dir (Word-Makro aus Excel erzeugen).
Hier nochmal alles komplett (ein Verweis ist nicht mehr
nötig, aber den Pfad zu strFilename solltest du mit
angeben):

Sub WordMakroErstellen()
Dim appWord As Object, NewMod
Set appWord = CreateObject("word.application")
appWord.Documents.Open "D:\test\word.doc"
strFileName = "D:\test\test.bas"
ThisWorkbook.VBProject.VBComponents _
("Wordmakro").Export (strFileName)
appWord.ActiveDocument.VBProject.VBComponents _
.Import (strFileName)
Kill strFileName
appWord.Visible = True
'appWord.activedocument.Close savechanges:=True
'appWord.Quit
Set appWord = Nothing
End Sub

Gruß
stefan

>-----Originalnachricht-----

>.
>

Thomas

unread,

Jun 28, 2004, 9:36:27 AM6/28/04

to

Hey, vielen Dank. Vielleicht sollte ich "appWord" erst mal erzeuegen ;-)

Thomas

Martin Worm <marti...@despammed.com> wrote in message news:<kuhtd0t9a22mumnd4...@4ax.com>...