General Feedback

Re: Going from WP6 to X4 - Macro issues

saugustus — Mon, 22 Feb 2010 17:58:00 GMT

Bounce

Can anyone view the code above or tell me what else you might need from me to troubleshoot?

Re: Going from WP6 to X4 - Macro issues

saugustus — Fri, 19 Feb 2010 18:59:47 GMT

Hi Kenneth,

I apologize, but I really am less than novice when it comes to programming or writing code for macros. I don't know what I am able to cut out in order to "simplify" the macro. Let me see about zipping up some of this data and attaching it.

Re: Going from WP6 to X4 - Macro issues

dainarobert23 — Wed, 17 Feb 2010 09:11:29 GMT

This is the first time when I joined the discussion here.Well I have found good stuff here.

Colon Cleanse

How to get pregnant

Re: Going from WP6 to X4 - Macro issues

Kenneth Hobson — Fri, 12 Feb 2010 21:47:06 GMT

I am not sure how a picture could be inserted if it does not exist. If you break the code out to a simple macro with one graphic, it makes testing easier. If it works when it exits and then doesn't do all that you want when it doesn't, manually fix it and post as an attachment. I can then see what you want. Maybe the filename that does not exist as a caption for the box? You can zip and attach 2 or 3 files as needed.

Re: Going from WP6 to X4 - Macro issues

saugustus — Fri, 12 Feb 2010 21:00:00 GMT

Hi Kenneth,

You have been very helpful and so I appreciate your time. But, I made the change to the code as you mentioned, and we actually got some progress. The error messages no longer occur, but the picture also doesn't roll in. When you right click the picture box, edit, and check the path, it shows no path. Prior, when the error messages occured, there wasno picture visible, but the path was present.

Re: Going from WP6 to X4 - Macro issues

Kenneth Hobson — Fri, 12 Feb 2010 17:53:12 GMT

Without the sample data, it is hard to test. However, I can see a scenario where you would get that error. What if vTest does not exist? Yep, you get the error. So, replace this,

if (vtest <> "")
BoxImageRetrieve (Action: MakeInternal!; Filename: vtest)
endif //BorderLeftLine (Style: ThickLine!)

with

if (vtest <> "" and DoesFileExist(vtest))
BoxImageRetrieve (Action: MakeInternal!; Filename: vtest)
endif //BorderLeftLine (Style: ThickLine!)

You might also need to delete the selected text so that the loop will not repeat there. You will need something similar for the 2nd search part.

Once the problems are solved, you might think about adding some features to make the DAT file creation faster. I posted methods in the Code Snippet forum at wpuniverse.com.

Re: Going from WP6 to X4 - Macro issues

saugustus — Fri, 12 Feb 2010 17:35:37 GMT

Application (WordPerfect; "WordPerfect"; Default; "US")
ViewDraft ()
FileOpen (Filename: "L:\database\Merge\landmerge.dat")
PosLineDown ()
PosLineDown ()
PosLineDown ()
PosLineDown ()
PosLineDown ()
PosLineDown ()
PosLineDown ()
ImportSetFileName (Filename: "L:\database\Merge\landdatamerge.txt")
ImportSetSource (SourceType: ASCII!)
ImportSetDestination (DestinationType: MergeData!)
ImportSetAsciiFieldDelimiter (FieldDelimiter: ",")
ImportSetAsciiRecordDelimiter (RecordDelimiter: "")
ImportSetAsciiStrip (StripChars: "")
ImportSetAsciiEncap (EncapsulationChar: """")
ViewDraft ()
ImportDoImport ()
FileSave (Filename: "L:\database\Merge\landmergeddata1.dat"; ExportType: WordPerfect_60!)
Close ()
FileOpen (Filename: "L:\database\Merge\landmergefrm.frm")
MergeDataFile (DataFile: "L:\database\Merge\landmergeddata1.dat")
MergeSelect (SelectType: All!)
MergeRun (FormFileType: Current!; DataFileType: DataFile!; DataFile: "L:\database\Merge\landmergeddata1.dat"; OutputFileType:
ToNewDoc!)
//
//
RUN("L:\database\Merge\photo.wcm")

This is the photo.wcm

Application (WordPerfect; "WordPerfect"; Default; "US")

PosDocTop()

OnNotFound(lquit)
SearchString (StrgToLookFor: "##FN##")
while (1 = 1)     SearchNext (SearchMode: Extended!)
    DeleteCharNext ()
    SelectLineEnd ()
    vtest := ?SelectedText()

    PosSelectTop()
    SelectDelete()

    BoxCreate (BoxType: UserBox!)
    BoxWidth (Width: 5.5")
    BoxHeight (Height: 4.0")
    // boxwidth(autowidth!) // boxheight(autoheight!)
    BoxAttachTo (Anchor: Paragraph!) BoxVerticalAlignment (Alignment: Center!) BoxHorizontalAlignment (Alignment: AlignMargins!; Position: Center!; Offset: 0.0")
    BoxTextFlow (Wrap: NeitherSide!)
    BoxOverlap (State: Yes!)
    BoxContentType (Content: Image!)
    if (vtest <> "")
            BoxImageRetrieve (Action: MakeInternal!; Filename: vtest)
    endif     //BorderLeftLine (Style: ThickLine!)
    //BorderRightLine (Style: ThickLine!)
    //BorderTopLine (Style: ThickLine!)
    //BorderBottomLine (Style: ThickLine!)
    BoxUpdateDisplay ()
    BoxEnd (State: Save!)
endwhile
label(lquit)

PosDocTop()

OnNotFound(l2quit) SearchString (StrgToLookFor: "##FP##")
while (1 = 1)     SearchNext (SearchMode: Extended!)
    DeleteCharNext ()
    SelectLineEnd ()
    vtest := ?SelectedText()

    PosSelectTop()
    SelectDelete()

    if (vtest <> "")
        BoxCreate (BoxType: UserBox!)
        BoxWidth (Width: 6.5")
        BoxHeight (Height: 8")
        // boxwidth(autowidth!) // boxheight(autoheight!)
        BoxAttachTo (Anchor: Paragraph!) BoxVerticalAlignment (Alignment: Center!) BoxHorizontalAlignment (Alignment: AlignMargins!; Position: Center!; Offset: 0.0")
        BoxTextFlow (Wrap: NeitherSide!)
        BoxOverlap (State: Yes!)
        BoxContentType (Content: Image!)
        BoxImageRetrieve (Action: MakeInternal!; Filename: vtest)
        BorderLeftLine (Style: ThickLine!)
        BorderRightLine (Style: ThickLine!)
        BorderTopLine (Style: ThickLine!)
        BorderBottomLine (Style: ThickLine!)
        BoxUpdateDisplay ()
        BoxEnd (State: Save!)
    endif endwhile
label(l2quit)

Re: Going from WP6 to X4 - Macro issues

Kenneth Hobson — Fri, 12 Feb 2010 17:02:02 GMT

Without seeing the macro code, there is no way to troubleshoot.

Going from WP6 to X4 - Macro issues

saugustus — Fri, 12 Feb 2010 16:11:42 GMT

Hi Folks,

I am writing on behalf of a client, so if I am missing any pertinent information, let me know and I can try to get it.

Basically, client had WP6 working well for ages, we formatted their PC's and could not find any WP6 installation disks, so we installed what we believed to be the next best, WP7. WP7 would not allow a certain macro to complete, involving moving pictures into a file. Since you can't get support for either of these products, we went ahead and upgraded to X4 Standard.

Tools - Play - Macro

"The macro is being canceled because of an our of range token

Completion code error condition processing product command 'WordPerfect.BoxImageRetrieve"."

I found some information that related to WP7 and it had to do with picture sizing. I had the understanding that X4 would bypass this issue and work. Not so. Let me know if anyone has any suggestions, or if you need more information from me.

Scott