Merge xml in word

PeterkePeterke Member Posts: 3
edited 2003-02-12 in Navision Attain
I have to merge Quote lines in Word. I don't know how many lines? How can I do this, can I merge XML in word or insert an undefined table???

Comments

  • DenSterDenSter Member Posts: 8,307
    Try microsoft.public.word.mailmerge.fields on news.microsoft.com, those are public newsgroups that I get all my Office related questions answered. You can get there from Outlook (View/Go To/ News).

    HTH
  • PeterkePeterke Member Posts: 3
    Thanks, I found some other options. Difficult to translate VBA to Navision.

    What I found was to add text or tables at the end of a document. This works for me.

    wdApp Automation-'Microsoft Word 9.0 Object Library'.Application
    wdDoc Automation-'Microsoft Word 9.0 Object Library'.Document
    wdRange Automation-'Microsoft Word 9.0 Object Library'.Range
    wdTable Automation-'Microsoft Word 9.0 Object Library'.Table

    wdDoc := wdApp.Documents.Add(TemplateName);
    wdRange := wdDoc.Range();
    pos := wdRange."End" -1;
    wdRange := wdDoc.Range(pos);
    wdRange.InsertAfter('Losse Tekst');
    pos := wdRange."End" -1;
    wdRange := wdDoc.Range(pos);
    wdTable := wdDoc.Tables.Add(wdRange,12,6);
    FOR x := 1 TO 12 DO BEGIN
    FOR y := 1 TO 6 DO BEGIN
    wdTable.Cell(x,y).Range.InsertAfter('test ' + STRSUBSTNO('( %1 , %2 )',x,y));
    END;
    END;
    wdApp.ActiveDocument.Fields.Update;
    wdApp.Visible := TRUE;
    wdApp.ActiveDocument.Fields.Unlink;
Sign In or Register to comment.