用代码中的值替换合并字段

Question

我有这样的文本： Hello <>; <> 其中 <>和<>是文档中的合并字段，我有一个数组中的客户列表，我想将它们分配给这些字段。我该怎么做？

Answer 1

我不知道你的数组是如何构造的，但是：

        Dim text As String = "Hello <<FirstName>> <<LastName>>"
        Dim foo() As String 
        For i As Integer = 0 To UBound(foo)
            Dim modifiedText As String = text
            modifiedText = Replace(modifiedText, "<<FirstName>>", foo(i,0), 1, -1, vbTextCompare)
            modifiedText = Replace(modifiedText, "<<LastName>>", foo(i,1), 1, -1, vbTextCompare)
            Console.WriteLine(modifiedText)

        Next

Answer 2

看起来您想要 使用 VB.NET 合并 Word 文档中的字段值。如果我是正确的，您可以尝试 Aspose.Words for .NET。该组件为此类合并场景提供了全面的解决方案。

这里还有一个简单的代码片段：

' Open an existing document.

Dim doc As New Document(MyDir & "MailMerge.ExecuteArray.doc")



' Fill the fields in the document with user data.

doc.MailMerge.Execute(New String() {"FullName", "Company", "Address", "Address2", "City"}, New Object() {"James Bond", "MI5 Headquarters", "Milbank", "", "London"})



' Send the document in Word format to the client browser with an option to save to disk or open inside the current browser.

doc.Save(Response, "PersonalizedLetter Out.doc", ContentDisposition.Inline, Nothing)

披露：我在 Aspose 担任开发人员传播者。