Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Inserting a fields from one record into Word
Message
 
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00449272
Message ID:
00450008
Vues:
41
>I don't think you need a range object here. Try the following:
oWord=CREATEOBJECT('word.application')
>oDocument = oWord.documents.OPEN('c:\qcf19.doc')
>oWord.VISIBLE=.T.
>oSelection = oWord.Selection
>#DEFINE wdLine 5
>
>with oSelection
> .MoveDown(wdLine,1)
> .TypeParagraph
> .TypeParagraph
> .MoveUp(wdLine,2)
> .InsertDateTime("MMMM d, yyyy",.f.)
> .TypeParagraph
> .Typeparagraph
> .TypeText (l_address) && Macro expansion not necessary here
>endwith
-Rick
>

Works :)

Thanks to you both.
Phil Thomas
http://phillipdthomas.com

Never let your energy or enthusiasm be dampened by the discouragements that must inevitably come.....
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform