Austausch Excel nach Word

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97
nach unten

Betrifft: Austausch Excel nach Word
von: mehmet
Geschrieben am: 25.04.2002 - 08:20:24

hallo excel user
benötige eure hilfe!
warum bekomme ich hier den folgenden fehler

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

ich habe hier viele möglichkeiten versucht jedoch ohne erfolg!

ganz kurz zum makro:
in meiner exceltabelle stehen name, strasse und wohnort
von verschiedenen personen. befindet sich der cursor in einer
bestimmten zeile, dann ruft der makro das worddokumentenvorlage
doc1 auf und trägt die daten ein.
in ihr sind drei textmarken definiert:
adresse, strasse und ort.


Sub ExcelDatenNachWord()
Dim wdapp As Word.Application 'bereits hier kommt fehlermeldung!
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 plaziert!"
 Exit Sub
End If
Set wdapp = Word.Application
Set wdDok = Document.Add("Dok1")
With wdapp
 With .Selection
 .GoTo what:=wdGoToBookmark, Name:="Adresse"
 If Cells(intZeile, 2).Value = 10 Then
 .TypeText Text:="Frau"
 Else
 .TypeText Text:="Herren"
End If
.TypeParagraph
.TypeText Text:=Cells(intZeile, 3).Value
.TypeParagraph
.TypeText Text:=Cells(intZeile, 4).Value
.TypeText Text:=" "
.TypeText Text:=Cells(intZeile, 5).Value
.GoTo what:=wdGoToBookmark, Name:="Strasse"
.TypeText Text:=Cells(intZeile, 6).Value
.GoTo what:=wdGoToBookmark, Name:="Ort"
.TypeText Text:=Cells(intZeile, 7).Value
.TypeText Text:=" "
.TypeText Text:=Cells(intZeile, 8).Value
End With
End With
Set wdapp = Nothing
Set wdDok = Nothing
End Sub

hoffe, dass ihr mir weiterhelfen könnt
dank und gruss aus köln






nach oben   nach unten

Re: Austausch Excel nach Word
von: Michael Scheffler
Geschrieben am: 25.04.2002 - 08:23:20

Hallo, ich tippe mal, dass Du Word in "Extras-Verweise" nicht angeklickt hast? Gruß Micha

nach oben   nach unten

Re: Austausch Excel nach Word
von: mehmet
Geschrieben am: 25.04.2002 - 08:34:23

negativ! habe bei verweis word object lirary angeklickt immernoch gleicher fehler

nach oben   nach unten

Re: Austausch Excel nach Word
von: roland
Geschrieben am: 25.04.2002 - 12:35:53

Hi, das Problem hatte ich auch, dass der mist nicht akzeptiert wurde. Dim wdapp As Word.Application 'bereits hier kommt fehlermeldung! Dim wdDok As Word.Document machs so: dim WordObj as object dim WordDoc as object programmcode Set WordObj = CreateObject("Word.Application") 'neuen Zeiger auf aktuelles Dokument setzen. Set WordDoc = WordObj.documents.Open(pfad & dokument_namen) WordObj.Visible = True WordObj.Activate was Du halt machen willst Viel Glück, Roland

nach oben   nach unten

Re: Austausch Excel nach Word
von: mehmet
Geschrieben am: 25.04.2002 - 21:21:21

hallo roland hast du mal eine muster datei für mich also es funktz nicht wie ich es haben will dank im voraus gruss

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Austausch Excel nach Word"