Textmarke ...........
24.07.2005 18:04:30
marc
ich will aus einem Formular zwei Werte übernehmen und
in einer Word -Rechnung (als Textmarke ) einfügen.
Bekomme immer wieder 'ne Fehlermeldung, die Textmarke BestNr bzw. Firma ist
nicht vorhanden.
Habe in meiner Wordvorlage alles überprüft, die Textmarken sind da ?!
was mache ich falsch ?
marc....
Private Sub DruckFB_Click()
Dim strDateiName As String
Dim wd As Object
Set wd = CreateObject("Word.Application")
strDateiName = "C:\Heute\APA\Ihre BestNr.doc"
Documents.Add Template:=strDateiName
With Selection
.Goto what:=wdGoToBookmark, Name:="MarkeBestNr"
.TypeText Me.BestNr
.Goto what:=wdGoToBookmark, Name:="MarkeFirma"
.TypeText Me.Firma
End With
ActiveDocument.PrintOut
End Sub