Questions? Search our site or call us at 1-800-722-6004

Reading Serial Data Into Word Using DDE (Word 2.0-6.0)

WinWedge DDE Server Settings

Remember to set WinWedge up in DDE Server Mode! Click here.

DDE Application Name: WinWedge
DDE Topic: System
DDE Command: [GRABDATA]

Word Instructions

This is for 16-bit versions of Word, including Word 2.0 and 6.0.

When you create a WordBasic macro or subroutine in Word and save it in the Global macro sheet, the name of the subroutine automatically becomes a valid Word DDE command. Create a new macro by selecting "Macro" from the TOOLS menu. When the dialog box appears prompting for a macro name, enter the name: GRABDATA and then click the button labeled "Create". Enter the following code in the macro editor window:

Sub MAIN

chan = DDEInitiate("WinWedge", "COM2") ' open a link to the Wedge
MyData$ = DDERequest$(chan, "Field(1)") ' get the data from the Wedge
DDETerminate chan ' close the link
Insert MyData$ ' enter the data into the open document
InsertPara ' insert a paragraph marker (hard return)
' add your own code here

End Sub

After you are done entering the code select "Close" from the FILE menu to save the macro.

This example sets up the Wedge to issue a DDE command ([GRABDATA]) to Word after each data record is received from your serial device. This causes the GRABDATA subroutine to run which then performs a DDERequest back to the Wedge asking for the data in Field(1) in the Wedge Window. This data is returned to Word in the variable: MyData$. Once the data from the Wedge is in a variable, you can do whatever you like with it by including additional code of your own design. This example simply inserts the text in the MyData$ string variable into the open document and then inserts a paragraph marker.

The following code fragment shows how to transmit a string out the serial port from Word:

channel = DDEInitiate("WinWedge", "COM2") ' open a link to the Wedge
DDEExecute channel, "[Sendout('Test',13)]" ' transmit "Test" and a carriage return
DDETerminate channel ' close the link

Categories: Macro / Code Sample, Microsoft Word, Data Collection, Serial (RS232), WinWedge

Last Updated: 2013.08.30

Need more help?

Don't hesitate to call or email us with your questions

Our office is open 9AM - 5PM Monday Through Friday (E.S.T.)

Technical Support: 215-496-0202

Toll-Free: 1 (800) 722-6004
Skype: taltech1 (Voice only)
Email: support@TALtech.com