Word Interop: Duplicate a Table Row Template that consists of more than 1 Row

Dirk_Bourgeois
Member Posts: 6
For those who bump into this:
We are doing some Word MailMerging together with filling up Word Tables with data from Code.
Ran into issues when wanting to duplicate a Template Row that consists of more than 1 row, for the number of Records needed to output.
Ofc we wish to maintain the Template Row formatting etc .. so Copy-Paste it is...
For a Table Data Template that consist of 1 row, no problem:
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex);
WordTableRow.Select();
Selection := WordApplication.Selection();
Selection.Copy();
FOR CopyIndex := 1 to NumberOfCopies DO
Selection.Paste();
For a Template that consists of Multiple Rows.. hmmm.. we need to select multiple rows and copy-paste that.
Also, a Range.End >> End is a reserved word >> "End" tends to solve it by the way:
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex);
StartPosition := WordTableRow.Range.Start();
IF (TemplateRowCount > 1) THEN
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex + (TemplateRowCount - 1));
StopPosition := WordTableRow.Range."End"();
Range := WordDocument.Range(StartPosition, StopPosition);
Range.Select();
Selection := WordApplication.Selection();
Selection.Copy();
FOR CopyIndex := 1 to NumberOfCopies DO
Selection.Paste();
Happy Trails!
We are doing some Word MailMerging together with filling up Word Tables with data from Code.
Ran into issues when wanting to duplicate a Template Row that consists of more than 1 row, for the number of Records needed to output.
Ofc we wish to maintain the Template Row formatting etc .. so Copy-Paste it is...
For a Table Data Template that consist of 1 row, no problem:
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex);
WordTableRow.Select();
Selection := WordApplication.Selection();
Selection.Copy();
FOR CopyIndex := 1 to NumberOfCopies DO
Selection.Paste();
For a Template that consists of Multiple Rows.. hmmm.. we need to select multiple rows and copy-paste that.
Also, a Range.End >> End is a reserved word >> "End" tends to solve it by the way:
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex);
StartPosition := WordTableRow.Range.Start();
IF (TemplateRowCount > 1) THEN
WordTableRow := WordDocument.Tables.Item(TableIndex).Rows.Item(TemplateIndex + (TemplateRowCount - 1));
StopPosition := WordTableRow.Range."End"();
Range := WordDocument.Range(StartPosition, StopPosition);
Range.Select();
Selection := WordApplication.Selection();
Selection.Copy();
FOR CopyIndex := 1 to NumberOfCopies DO
Selection.Paste();
Happy Trails!

0
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
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions