C# Word Interop实现带替代文本的可点击超链接搜索替换

问题核心 #

你当前的代码只是把文本替换成URL字符串，但Word不会自动把纯文本URL转为可点击超链接；另外直接替换URL文本为AlternativeText会丢失链接属性，因为普通替换只改文本内容，不会保留超链接关联信息。

修改思路 #

1. 当ReplacementText是有效URL时，跳过普通文本替换，直接定位目标SearchText，将其替换为带自定义显示文本的超链接。
2. 用Word Interop的Hyperlinks.Add方法创建超链接，指定显示文本和链接地址，确保链接可点击且显示内容为AlternativeText。

完整修改代码 #

public void ConvertDocumentWords(string inputlocation, List<TranslationInformationCarrier> inputList)
{
    try
    {
        string FileName = Path.GetFileName(inputlocation);
        Application WordApp = new Application();
        Word.Document doc = WordApp.Documents.Open($@"{inputlocation}");
        doc.Activate();

        foreach (var item in inputList)
        {
            string searchText = item.SearchText;
            string replacementText = item.ReplacementText;
            string alternativeText = item.AlternativeText;

            if (IsValidUrl(replacementText))
            {
                // 处理URL场景：直接将搜索文本替换为带自定义显示文本的超链接
                FindAndReplaceWithHyperlink(doc, WordApp, searchText, replacementText, alternativeText);
                DataLogger.LogInformation($"Replaced text {searchText} with hyperlink in file {FileName}");
            }
            else
            {
                // 普通文本替换逻辑
                FindAndReplace(WordApp, searchText, replacementText);
                DataLogger.LogInformation($"Replaced text {searchText} in file {FileName}");
            }
        }

        doc.Close(true);
        WordApp.Quit(true);
        GarbageSystemCleanUp();
    }
    catch (Exception ex)
    {
        DataLogger.LogError($"An exception occurred in the find and replace process: {ex.StackTrace}");
        throw;
    }
}

public static bool IsValidUrl(string url)
{
    return Uri.IsWellFormedUriString(url, UriKind.Absolute);
}

/// <summary>
/// 普通文本查找替换
/// </summary>
static void FindAndReplace(Microsoft.Office.Interop.Word.Application fileOpen, object findText, object replaceWithText)
{
    object matchCase = false;
    object matchWholeWord = true;
    object matchWildCards = false;
    object matchSoundsLike = false;
    object matchAllWordForms = false;
    object forward = true;
    object format = false;
    object matchKashida = false;
    object matchDiacritics = false;
    object matchAlefHamza = false;
    object matchControl = false;
    object replace = 2; // wdReplaceAll
    object wrap = 1; // wdFindContinue

    fileOpen.Selection.Find.Execute(ref findText, ref matchCase, ref matchWholeWord,
        ref matchWildCards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format, ref replaceWithText, ref replace,
        ref matchKashida, ref matchDiacritics, ref matchAlefHamza, ref matchControl);
}

/// <summary>
/// 将指定文本替换为带自定义显示文本的超链接
/// </summary>
static void FindAndReplaceWithHyperlink(Word.Document doc, Word.Application app, string searchText, string url, string displayText)
{
    Word.Find find = doc.Content.Find;
    object matchCase = false;
    object matchWholeWord = true;
    object matchWildCards = false;
    object matchSoundsLike = false;
    object matchAllWordForms = false;
    object forward = true;
    object wrap = 1; // wdFindContinue
    object format = false;

    // 遍历所有匹配的文本，逐个转为超链接
    while (find.Execute(searchText, ref matchCase, ref matchWholeWord,
        ref matchWildCards, ref matchSoundsLike, ref matchAllWordForms, ref forward, ref wrap, ref format))
    {
        find.Select();
        // 若未指定替代文本，默认显示URL
        string showText = string.IsNullOrEmpty(displayText) ? url : displayText;
        doc.Hyperlinks.Add(app.Selection.Range, url, Type.Missing, Type.Missing, showText, Type.Missing);
    }
}

关键说明 #

• 跳过无效步骤：识别到ReplacementText是有效URL时，直接调用超链接替换方法，避免先转纯文本URL再转换的冗余操作。
• 保留链接属性：通过Hyperlinks.Add直接在匹配文本的位置创建超链接，绑定URL和显示文本，确保链接可点击且显示内容符合需求。
• 全文档覆盖：用循环执行Find.Execute遍历所有匹配项，确保文档中所有符合条件的文本都被处理。

内容的提问来源于stack exchange，提问作者ThunderSpark