title image


Smiley Ups, zu früh gefreut...
Hallo Forum.



Ich habe eben den Tipp der Seite:

http://www.donkarl.com

8.5 Daten an Word übergeben

befolgt und alles genau so wie beschrieben gemacht.

Doch schon in der 3. Zeile taucht ein Fehler auf:



Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert.



Ich nutze Access 2000 und Word 2000 (wie auch im Tipp)



Kann mir jemand sagen, was ich falsch mache?



Danke und liebe Grüße

Tina







___________________________

Private Sub MergeButton_Click()



On Error GoTo MergeButton_Err



Dim objWord As Word.Application <=============



'Copy the Photo control on the Employees form.

DoCmd.GoToControl "Photo"

DoCmd.RunCommand acCmdCopy



'Start Microsoft Word 97.

Set objWord = CreateObject("Word.Application")



With objWord

'Make the application visible.

.Visible = True



'Open the document.

.Documents.Open ("C:\MyMerge.doc")



'Move to each bookmark and insert text from the form.

.ActiveDocument.Bookmarks("First").Select

.Selection.Text = (CStr(Forms!Employees!FirstName))

.ActiveDocument.Bookmarks("Last").Select

.Selection.Text = (CStr(Forms!Employees!LastName))

.ActiveDocument.Bookmarks("Address").Select

.Selection.Text = (CStr(Forms!Employees!Address))

.ActiveDocument.Bookmarks("City").Select

.Selection.Text = (CStr(Forms!Employees!City))

.ActiveDocument.Bookmarks("Region").Select

.Selection.Text = (CStr(Forms!Employees!Region))

.ActiveDocument.Bookmarks("PostalCode").Select

.Selection.Text = (CStr(Forms!Employees!PostalCode))

.ActiveDocument.Bookmarks("Greeting").Select

.Selection.Text = (CStr(Forms!Employees!FirstName))



'Paste the photo.

.ActiveDocument.Bookmarks("Photo").Select

.Selection.Paste

End With



'Print the document in the foreground so Microsoft Word will not close

'until the document finishes printing.

objWord.ActiveDocument.PrintOut Background:=False



'Close the document without saving changes.

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges



'Quit Microsoft Word and release the object variable.

objWord.Quit

Set objWord = Nothing

Exit Sub



MergeButton_Err:

'If a field on the form is empty, remove the bookmark text, and

'continue.

If Err.Number = 94 Then

objWord.Selection.Text = ""

Resume Next



'If the Photo field is empty.

ElseIf Err.Number = 2046 Then

MsgBox "Please add a photo to this record and try again."

Else

MsgBox Err.Number & vbCr & Err.Description

End If



Exit Sub

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: