A typical application for B-Coder is to either add barcodes to mailing labels or to insert barcodes into a mail merge document. The easiest way to do this is to use the Mail Merge tool in Word to create your merge documents or labels and then use B-Coder to add the barcodes to the final merged documents containing all of your merge data.
You would first set up your mail merge in Word as normal using the mail merge tool. After you set up your data source and insert your “merge fields” in the main merge document, you could select the merge field (or any static text) in your main merge document that you want converted to a barcode and change its style to a new style named “barcode”.
(To create a new style, open the “Format” menu, select “Style” and then click the button marked “New” in the style dialog box. In the “New Style” dialog box, enter the name “barcode” and click the OK button.)
Next, you would complete your mail merge as normal by selecting “Merge to New Document”. This will produce a final merge document with all of the data from the data source inserted into your labels or documents. Any merge fields or static text that you assigned the style “barcode” to in your main merge document would also have the style “barcode” in the final merge document. To fill in the barcodes, you could simply run a macro that searches through the final merge document looking for any text with the style “barcode” and replaces that text with a barcode created by B-Coder. The following page contains an example macro that does just this.
The following WordBasic macro (for Word 6 and Word 7) searches through a document looking for any text with the style “barcode”. If it finds any, it converts the text to a barcode.
Sub MAIN()
' run B-Coder Minimized
Shell "C:\B-CODER\B-CODER.EXE", 6
' Note: make sure that the path for B-Coder is
'correct in the above command
' open DDE link to B-Coder
Chan = DDEInitiate("B-Coder", "System")
' initialize B-Coder here - send dde commands to set up your Bar Codes
' DDEExecute Chan, "[Code128]" ' tell B-Coder to use Code 128
' DDEExecute Chan, "[messagewarnings=off]" ' turn off warning messages
' DDEExecute Chan, "[printwarnings=off]"
' DDEExecute Chan, "[height=.5]" ' set bar code height
StartOfDocument ' move to top of document
On Error Goto bye ' quit if an error occurs
While 1 = 1 ' loop forever
EditFindStyle .Style = "BarCode" ' find style "BarCode"
EditFind .Find = "", .WholeWord = 0, .MatchCase = 0, _
.Direction = 0, .Format = 1
If EditFindFound() <> - 1 Then Goto bye ' if not found then quit
BCData$ = Selection$() ' otherwise get bar code data
If Right$(BCData$) = Chr$(13) Then BCData$ = Left$(BCData$, Len(BCData$) -1)
' the above line removes the carriage return at the end of the selected text
'generate a bar code
DDEExecute Chan, "[BARCODE=" + BCData$ + "]"
' ----------- option 1 - replace the text with a bar code
EditClear 'delete the current selection
' option 1 works best when adding bar codes to a Merge Document
' ----------- option 2 - put the bar code below the text
' EndOfLine ' move to end of line
' LineDown 1 ' move down one line
' StartOfLine ' move to the start of this line
' option 2 works best when adding PostNET or other bar codes to mailing labels
' you may need to change the above three lines to get the bar code where you
' need it
EditPaste ' paste in the bar code
Wend ' go find the next one
bye: ' all done
' tell B-Coder to quit
DDEExecute Chan, "[Appexit]"
On Error Goto 0 ' remove error trap
End Sub