HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
fehler beim kompilieren
25.02.2005 09:54:19
Jürg
Hallo Forum
ich will von einer zelle c15 aus den wert nach word in eine vorlage als textmarke "Name" senden.... nur funktioniert das nicht ......
Dim wdapp As Word.Application meldet er "Fehler beim kompilieren"
kann mir jemand nen typ geben?

Sub ExcelDatenNachWord()
Dim wdapp As Word.Application
Dim wdDok As Word.Document
Dim xlZelle As Range
Dim intZeile As Integer
Set xlZelle = ActiveCell
intZeile = xlZelle.Row
If Cells(intZeile, 1).Value = "" Then
MsgBox "Der Cursor wurde nicht richtig platziert!"
Exit Sub
End If
Set wdapp = Word.Application
Set wdDok = wdapp.Documents.Add("Testvorl.dot")
With wdapp
With .Selection
.GoTo what:=wdGoToBookmark, Name:="Name"
TypeParagraph
TypeText Text:=Cells(intZeile, 3).Value
End With
End With
Set wdapp = Nothing
Set wdDok = Nothing
Set xlZelle = Nothing
End Sub

besten Dank
Gruss
Jürg

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: fehler beim kompilieren
Harald
Hallo Jürg,
Du arbeitest nicht zufällig anhand des Buches "Workshop VBA"...
Ein erster Schritt ist, im Excel im VBA Editor einen Verweis auf die Word Bibliothek zu aktivieren:
Extras - Verweise - Microsoft Word (11.0) Object Library [statt 11.0 die jeweils auf Deinem Rechner installierte Version, das wird aber angezeigt]
Ein Zweites ist, dass vor TypeParagraph und TypeText jeweils ein Punkt muss:
.TypeParagraph
.TypeText
Dann kompiliert es erst einmal. Jetzt bist Du am Zug zu prüfen, ob es auch das Richtige tut.
Gruß Harald
AW: fehler beim kompilieren
Jürg
Hallo Harald
ja es ist schon von einem buch das von René Martin okt 2000 verfasst wurde und nennt sich VBA-Kurs.Hab das als PDF downloadet.
der fehler ist immer noch der gleiche habe mit Excel 2003 und 2000 versucht
es bringt den gleichen fehler
" Fehler beim kompilieren"
"benutzerdefinierter Typ nicht definiert"
Danke für tips
gruss
jürg

105 Forumthreads zu ähnlichen Themen

Meistgelesene Forumthreads (12 Monate)