Send DDE Macro Word

[RickFM]

Ik exporteer records naar een tekst bestand via Filemaker. En open ze dan handmatig via Word en run dan een macro.

 

Hoe laat ik dit automatisch met Send DDE op de achtergrond.

 

Welke extensies en/of code moet ik invoeren bij Send DDE om die macro op te roepen.

 

mvg,

RickFM

[wmoerdijk]

Hoi,

 

Oude vraag, al vaak gesteld. Het korte antwoord is dat DDE een verouderde techniek is die (vrijwel) niet meer gebruikt wordt. Daarbij is het zeer slecht gedocumenteerd. Wat jij beschrijft kan ook op verschillende manieren uitgevoerd worden zonder DDE.

 

1. Open het document via Send Event. Gebruik daarbij de commandline-switch /m om direct een macro af te vuren. Voorbeeld:

"C:\Program Files\Microsoft Office\Office\Winword.exe" "c:\mijn documenten\voorbeeld.txt" /mmijnmacro

2. Gebruik VBscript. Voorbeeld:

'***********************************************************
'test to open word and run macro
'***********************************************************

Dim objWord

Set objWord = WScript.CreateObject("Word.Application")
objWord.Visible = True

' ** Use this to make a new doc **
objWord.documents.open("C:\tmp\123.txt")
objWord.run("WordBoldTest")


'** Release the variable **
Set objWord=Nothing
'***********************************************************

 

3. (Voor de vorm) Gebruik DDE. Word moet open zijn om DDE commands te kunnen op vangen. Eerst starten dus met een Send Event. Daarna:

Service name: Winword
Topic: system
Commands: [FileOpen.Name ="c:\\tmp\\123.txt"][Call WordBoldTest]

 

Optie 1 lijkt me het snelst in jouw geval. Optie 2 heeft als voordeel dat het werkt op elke machine ongeacht de versie en locatie van word. Ook kun je hier eenvoudig dit proces op de achtergrond laten draaien door de visibility op false te zetten en een regeltje toe te voegen dat het document automatisch opgeslagen wordt. Let er wel op dat wanneer je de macro opgeslagen zit in bijv normal.dot. Deze niet zal werken op een ander systeem (aangezien de macro er dan niet is).