|
The following WordPerfect macro first launches B-Coder if
it is not running and then pops up a dialog box for input
of a bar code message. After the user enters a bar code message,
the macro changes the bar code message in B-Coder to the
message entered, generates the bar code and finally copies
the bar code into the open document in the WordPerfect window.
| |
Application (A1; "WordPerfect"; Default; "US")
PrefMetafileOptions
(RetainWindowsFormat!)
// Set correct metafile import option.
PrefSave ()
BoxStyleEdit (FigureBox!; PersonalLibrary!) // Set correct Figure Box Style
BoxContentType (Image!) // parameters for pasting metafiles
BoxContentPreserveAspectRatio (No!) // from the clipboard.
BoxAttachTo (Character!)
BoxVerticalAlignment (Center!)
BoxChangeLineHeight (Yes!)
BoxWidth (AutoWidth!)
BoxHeight (AutoHeight!)
BoxBorder (127)
BoxFill (127)
BoxStyleEnd(State: Save!) // Save the changes to the FigureBox style
me:=APPLOCATE("WordPerfect*") // Get a handle to WordPerfect Window
x:=APPLOCATE("B-Coder*") // Is B-Coder Running???
IF(x=0) // If B-Coder not running then run it minimized
AppExecuteExt(result; "C:\B-CODER\B-CODER.EXE";2)
// Note: Correct path for your PC
If (result < 32) // If B-Coder won’t run show error & quit
Type( "Error! Can't execute B-Coder." )
HardReturn()
Quit
EndIf
APPACTIVATE(me) // Set the focus back to WordPerfect
ENDIF
BCMessage:="" // Initialize bar code message variable
DialogDefine(100; 50; 50; 200; 100; 1+2+16; "Enter a bar code message.")
DialogAddEditBox(100; 1000; 10; 10; 175; 50; 32+64+1024; BCMessage; 100)
DialogDisplay(100; 1000) // Prompt user for a bar code message
DialogDestroy(100)
DDEINITIATE(hConv1;"B-Coder";"System")
// Initiate DDE link to B-Coder
DDEEXECUTE(hConv1;"[BarCode=" + BCMessage +"]")
// Generate the bar code
DDETERMINATE(hConv1) // Terminate the DDE link
EditPaste // Paste the bar code into our document
Quit // All done!
|
With WordPerfect 2000 Corel started integrating Microsoft
VBA 6 into their applications which in our opinion simplified
macro writing greatly. For Example, the same macro for WordPerfect
9 looks like:
| |
Sub Prompt4Barcode()
If Launch_B_Coder = 1 Then
'Launch B-coder if it is not already running
'Prompt for Bar Code Message
bctext = InputBox("Enter text to be converted:")
' Initiate DDE link
Chan = Application.Script.DDEInitiate("B-Coder", "System")
' send to B-Coder
Application.Script.DDEExecute Chan, "[barcode=" + bctext + "]"
' Terminate the DDE link
Application.Script.DDETerminate Chan
' paste the bar code into the document
Application.PerfectScript.EditPaste "Picture", 3, OLE!
End If
End Sub
Function Launch_B_Coder()
'Enter path to your copy of B-Coder
BCoderPath$ = "C:\B-Coder3\B-Coder.exe"
'If B-coder is not already running
If Application.Script.AppLocate("B-Coder") = 0 Then
Shell BCoderPath$ 'launch B-Coder
'return focus to WP:
Application.Script.AppActivate ("WordPerfect")
End If
'If B-coder is still not running then warn user and quit
If Application.Script.AppLocate("B-Coder") = 0 Then
MsgBox "B-Coder is not Running! - B-Coder must be running for this macro to _
work. Please start B-coder and try again"
Launch_B_Coder = 0
Else
Launch_B_Coder = 1
End If
End Function
|
|
