visual basic 6 e word

[tigre2209]

devo aprire una lettera.dot in word da visual basic 6.
scrivere dei valori di un database su dei campi word esempio:

%%cognome%%

ho provato cosi:
Dim xword As Word.Application ' L'applicazione Word
Dim xRange As Range ' Oggetto Range
Dim xSelection As Find ' Oggetto Find
Dim xTabella As Table ' Oggetto Tabella
Dim xCella As Cell ' Oggetto Cella

Set xword = New Application

xword.Visible = False


xword.Documents.Add App.Path & "\MODELLO.dot"

Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%cognome%%", , , , , , , , , cognome, True

ma mi da questo errore:
su xRange.Find mi da questo errore:

ARGOMENTO NON FACOLTATIVO

dove toppo?

[gibra]

Modifica

Set xword = New Application

in

Set xword = New Word.Application


Ciao

[Boolean]

Oltre al giusto suggerimento di gibra, prova a scrivere la find così:

xRange.Find.Execute FindText:="%%cognome%%", ReplaceWith:=cognome, Replace:=wdReplaceAll

nel caso dovessi utilizzare il late binding, al posto di wdReplaceAll utilizza una costante Long con valore 2

Boolean