ReplaceInTemplate.vb
- ''
- '' This code is part of Document Solutions for Word demos.
- '' Copyright (c) MESCIUS inc. All rights reserved.
- ''
- Imports System.IO
- Imports System.Drawing
- Imports System.Linq
- Imports GrapeCity.Documents.Word
-
- '' This sample shows how to fill a template document with data
- '' using the RangeBase.Replace extension method provided by
- '' the RangeBaseFindReplaceExtensions class.
- ''
- '' The template document Is similar to the document generated by
- '' the ProcurementLetter sample, but the data values in that document
- '' were changed to template placeholders (in the form '__%<name>%__')
- '' using MS Word. In the sample, we use the text replace functionality
- '' to change the placeholders back to original data. The resulting
- '' document can be viewed by running the ProcurementLetterTpl sample.
- ''
- '' In a real life application, the same approach can be used for example
- '' to go over a record set, generating a document for each record.
- Public Class ReplaceInTemplate
- Public Function CreateDocx() As GcWordDocument
-
- '' Placeholders And sample data:
- Dim placeholderData As (placeholder As String, data As String)() =
- {
- ("__%c_name%__", "Nancy Davolio"),
- ("__%c_title%__", "Chief Procurement Officer"),
- ("__%c_phone%__", "555-543-5432"),
- ("__%c_url%__", "www.acmeinc.com"),
- ("__%c_address%__", "5432 Street West, Townsvilla, State 54321"),
- ("__%to_name%__", "Mark"),
- ("__%dlr_name%__", "AMA Ltd"),
- ("__%order_no%__", "8393")
- }
-
- '' Load the document:
- Dim doc = New GcWordDocument()
- doc.Load(Path.Combine("Resources", "WordDocs", "ProcurementLetterTpl.docx"))
-
- '' Replace all placeholders in the body with sample data values
- For Each pair In placeholderData
- doc.Body.Replace(pair.placeholder, pair.data)
- Next
-
- '' Done
- Return doc
- End Function
- End Class
-