Merge xml in word

Comments

• Options

  DenSter Member Posts: 8,304

  2003-02-11

  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

  Daniel Rimmelzwaan
  RIS Plus, LLC
  MVP - Business Apps

  0
• Options

  Peterke Member Posts: 3

  2003-02-12

  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;

  0