Board index paradox

Help for dde winword / demande d'aide sur dde winword

Help for dde winword / demande d'aide sur dde winword

Post by Patrice Berthole » Fri, 06 Nov 1998 04:00:00



Je souhaite utiliser winword 97 partir de paradox 7
je russi lancer l'application  winword avec le document souhait mais
winword ne rend pas la main paradox qui se met en erreur
"DDE : le serveur spcifi ne rpond pas".

Voici le bout de programme que j 'ai cris :

method pushButton(var eventInfo Event)
Var
 Word_dde DDE
Endvar

;ouverture du fichier word
Word_dde.open ("C:\\Program Files\\Microsoft
Office\\Office\\WINWORD.EXE","C:\\pdoxwin\\smh\\cale.doc")

Word_dde.close()

endMethod

Patrice

 
 
 
Top

Help for dde winword / demande d'aide sur dde winword

Post by Jean Bernar » Mon, 09 Nov 1998 04:00:00


tu enregistres une macro dans word et tu l'executes depuis pdx:
method pushbutton(var ....)
var d dde endvar
if not  d.open("Winword") then execute("c:\\....\\winword.exe",false) endif
 if not d.execute("[OutilsMacro.nom = \"NomMacro\" , .executer]")
 then message("Erreur DDE") endif
 d.close()
endmethod

Patrice Bertholet a crit dans le message

>Je souhaite utiliser winword 97 partir de paradox 7
>je russi lancer l'application  winword avec le document souhait mais
>winword ne rend pas la main paradox qui se met en erreur
>"DDE : le serveur spcifi ne rpond pas".

>Voici le bout de programme que j 'ai cris :

>method pushButton(var eventInfo Event)
>Var
> Word_dde DDE
>Endvar

>;ouverture du fichier word
>Word_dde.open ("C:\\Program Files\\Microsoft
>Office\\Office\\WINWORD.EXE","C:\\pdoxwin\\smh\\cale.doc")

>Word_dde.close()

>endMethod

>Patrice



 
 
 
Top

Help for dde winword / demande d'aide sur dde winword

Post by PLM » Mon, 09 Nov 1998 04:00:00


This works for me under 95/98/NT.
      try
         winword.open("word.basic")
      onFail
          msgInfo("Mail Merge", "Can't open Microsoft Word...")
      endTry
      if winword.isAssigned() then
         try winword.FileCloseAll(2) onFail endTry
         try winword.AppMaximize("Microsoft Word") onFail endTry
         try winword.FileOpen(selectedFile, 1, 0) onFail endTry
         ; try winword.MailMerge(2, 0, 0) onFail endTry
      endif

> Je souhaite utiliser winword 97 partir de paradox 7
> je russi lancer l'application  winword avec le document souhait mais
> winword ne rend pas la main paradox qui se met en erreur
> "DDE : le serveur spcifi ne rpond pas".

> Voici le bout de programme que j 'ai cris :

> method pushButton(var eventInfo Event)
> Var
>  Word_dde DDE
> Endvar

> ;ouverture du fichier word
> Word_dde.open ("C:\\Program Files\\Microsoft
> Office\\Office\\WINWORD.EXE","C:\\pdoxwin\\smh\\cale.doc")

> Word_dde.close()

> endMethod

> Patrice


 
 
 
Top

1. DDE Winword Macros

I found the answer.  Thought I would pass it along.

if not mydde.open("winword","System") then
       mydde.open("C:\\Program Files\\Microsoft
office\\Office\\WINWORD.EXE","System")
   sleep(5000)

   if not mydde.open("winword","System") then
      msginfo("HI","HI othing done")
      return
      endif
endif
sleep(1000)
hold  = "[FileOpen \"C:\\app\\DDF_Files\\rdetail.seq\"]"
;issues file open command in word
mydde.execute(hold)
sleep(1000)

;this line is the key.
hold = "[Toolsmacro.name=\"Removeit\",.Run]"
mydde.execute(hold)


http://x3.dejanews.com/getdoc.xp?AN=389121443&threaded=1&CONTEXT=9178...

that references many other links in VBA reference and is quite usefull.
Hope this helps someone else
mark

2. web application with ORACLE 7.3 (maybe 8) and OWS 2.1 (maybe OWA 3) - how to go back to previous page?

3. OPAL-WinWord DDE

4. World Wide Free Internet Access .

5. Viaduct DDE ==> Winword

6. MSDE -> SQLCE replication licensing

7. DDE and Winword 6.0 (FPW26- German)

8. Client/Server SQL RDBMS Comparison?

9. DDE: MSAccess - Winword

10. WinWord Basic commands and DDE

11. DDE communication between foxpro2.6 to Winword

12. demande d'aide

13. Excel VB DDE to VC++ DDE server in NT


All times are UTC
Board index