Discussions
Activity
Best Of...
Sign In
·
Register
Home
›
Navision Attain
Howdy, Stranger!
It looks like you're new here. Sign in or register to get started.
Sign In
Register
Quick Links
Categories
Recent Discussions
Activity
Best Of...
Unanswered
Categories
All Categories
73
General
73
Announcements
66.6K
Microsoft Dynamics NAV
18.7K
NAV Three Tier
38.4K
NAV/Navision Classic Client
3.6K
Navision Attain
2.4K
Navision Financials
115
Navision DOS
854
Navision e-Commerce
1K
NAV Tips & Tricks
772
NAV Dutch speaking only
615
NAV Courses, Exams & Certification
2K
Microsoft Dynamics-Other
1.5K
Dynamics AX
305
Dynamics CRM
109
Dynamics GP
10
Dynamics SL
1.5K
Other
993
SQL General
384
SQL Performance
34
SQL Tips & Tricks
34
Design Patterns (General & Best Practices)
Architectural Patterns
10
Design Patterns
5
Implementation Patterns
53
3rd Party Products, Services & Events
1.7K
General
1.1K
General Chat
1.6K
Website
79
Testing
1.2K
Download section
23
How Tos section
260
Feedback
12
NAV TechDays 2013 Sessions
13
NAV TechDays 2012 Sessions
Merge xml in word
Peterke
Member
Posts:
3
2003-02-07
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???
0
Comments
DenSter
Member
Posts:
8,307
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
0
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
Sign In
or
Register
to comment.
Comments
HTH
RIS Plus, LLC
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;