2

我正在使用 NetOffice 库来编辑 Word 文档。在我的文档中，"{NAME}"我想用一个值替换一个字段"John Smith"。但是，执行以下代码不起作用。Find.Execute返回 false，表示失败，并且没有任何变化反映在document.Content.Text.

// Open the template
Application word = new Application();
Document document = word.Documents.Open(fileName, false, true);

// Set up initial behavior in word
word.Visible = false;

// Replace template with final values
foreach (LetterField field in fields)
{
    document.Content.Find.ClearFormatting();
    document.Content.Find.Text = "{" + field.Key + "}";
    document.Content.Find.Replacement.ClearFormatting();
    document.Content.Find.Replacement.Text = field.Value;
    document.Content.Find.Execute(null, null, null, null, null, null, null, null, null, null, WdReplace.wdReplaceAll);
}

我也尝试手动替换document.Content.Text，但这会从页面中删除所有格式，这也是不可取的。如何在 NetOffice 中替换文档中的文本？

我注意到设置document.Content.Find.Text似乎没有做任何事情，因为检查值仍然会产生""，即使在将其设置为其他值之后也是如此。这是预期的行为，还是我错过了什么？

该文档包含以下内容（复制和粘贴）：

Date: {DATE}
{NAME}
{ADDRESSLINE}
{ADDRESSCITY}, {ADDRESSSTATE} {ADDRESSCODE}

部分字段如下：

<"NAME", "John Smith">
<"DATE", "10/28/2021">
4

2 回答 2

1

我从您的示例开始，但是尝试了 Execute 方法的变体，它对我来说效果很好。

        const string TemplateFileName = @"D:\Dev\SO\MyWordDoc.docx";
        const string ResultFileName = @"D:\Dev\SO\MyWordDoc_new.docx";

        var wordApp = new Application();
        var doc = wordApp.Documents.Open(TemplateFileName, false, true);
        var status = doc.Content.Find.Execute(findText: "{NAME}", 
                                    matchCase: false,
                                    matchWholeWord: false,
                                    matchWildcards: false,
                                    matchSoundsLike: false,
                                    matchAllWordForms: false,
                                    forward: true, //this may be the one
                                    wrap: false,
                                    format: false,
                                    replaceWith: "My Name Value", 
                                    replace: WdReplace.wdReplaceAll
                                    );

        doc.SaveAs(ResultFileName);
        doc.Close();

我使用的语法来自： https ://docs.microsoft.com/en-us/office/vba/api/Word.Find.Execute

对于不同的参数。

您可能需要将Execute参数forward设置为"True"，即第 7 个参数。

结果文件： 在此处输入图像描述

于 2021-11-01T06:56:38.133 回答
0

您在这里尝试执行的操作看起来可以通过使用 word 内置的邮件合并功能来实现。该功能旨在获取联系信息列表并替换占位符文本以生成针对列表中每个人的文档。

微软有一些关于如何实现这一点的好文档，我建议您查看https://support.microsoft.com/en-us/office/use-mail-merge-for-bulk-email-letters-labels-and-信封-f488ed5b-b849-4c11-9cff-932c49474705

于 2021-10-28T14:34:54.250 回答