用word中的超链接列表替换所有文本单词

Question

我有许多冗长的 Word 2010 文档，其中充斥着首字母缩略词，其中许多相同的首字母缩略词在所有这些文档中都很常见。我还有一个这些首字母缩略词的垂直列表，这些首字母缩略词在每个文档中以表格格式（在每个文档的末尾）采用超链接格式。

例如超链接列表：

AA1
AA2
AA3
...

我对 Word 2010 宏的经验很少，但想知道是否有可能有一个像这样工作的宏：

1. 在任何给定的文档中，当我将光标放在列表顶部（即超链接内容为“AA1”的单元格）时，它会选择第一个单元格的内容，然后将其复制到剪贴板，然后使用超链接格式的单词“AA1”（假设它找到要替换的单词）对文档中的所有文本格式单词“AA1”进行全局替换（我想使用 ^c）。

2. 然后它会向下移动到具有“AA2”超链接内容的第二个单元格，并用超链接“AA2”值等替换文档中的所有“AA2”文本，直到超链接中的所有超链接单词list 已经替换了文档中的所有文本单词。

这可行吗？

Answer 1

如果我理解你的意思是正确的 [问题不清楚和直观] 这是你需要的基本代码：

Sub replaceHyperLink()
Dim searchText As String
searchText = "AA1"
    Selection.Find.ClearFormatting
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

Do
    With Selection.Find
    .text = searchText
    End With

    Selection.Find.Execute
If Selection.Find.Found = True Then
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "stackoverflow.com/", SubAddress:="", ScreenTip:="", TextToDisplay:=searchText
Else
Exit Do
End If
Loop
End Sub

• 您必须循环执行 AA2、AA3、....
• 如果您只想超链接表格的一列，请选择 列，然后将其复制到新文档中（这样做的代码很简单） 然后执行操作并再次将其粘贴到选定的列中。

如果你想从单元格中获取文本：

Dim cellText As String
For i = 1 To ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Rows(i).Cells(3).Select
cellText = Selection.text
'do what you want with text
Next i