全部替换然后锁定替换词

Question

我正在尝试全部替换，然后只锁定替换单词，而不是全部。

例如：

句子：“我要去市场” 查找：“市场” 替换：“学校”

然后，锁定单词“学校”。

Dim Datas(500) As String
Dim CariKata As String

Datas(1) = "Shop"
Datas(2) = "Office"

Selection.WholeStory
Selection.Editors.Add wdEditorEveryone
For h = 1 To 2

CariKata = Datas(h)

    For i = 1 To CountWordPhrase(CariKata)
        Selection.find.ClearFormatting
        Selection.find.Replacement.ClearFormatting
        With Selection.find
            .Text = CariKata
            .Replacement.Text = "school"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .MatchPhrase = True
        End With
        Selection.find.Execute
        Selection.Editors(wdEditorEveryone).Delete

    Next i



ActiveDocument.Protect Password:="123", NoReset:=False, Type:= _
    wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False


Next h

End Sub

Function CountWordPhrase(ByVal KataDicari As String)

Dim Response, ExitResponse
Dim y As Integer


On Error Resume Next



With ActiveDocument.Content.find
    Do While .Execute(FindText:=KataDicari, Forward:=True, Format:=True, _
       MatchWholeWord:=True) = True

       ' Display message in Word's Status Bar.
       StatusBar = "Word is counting the occurrences of the text " & _
       Chr$(34) & x & Chr$(34) & "."

       y = y + 1
    Loop
End With

结束函数

此脚本成功查找并锁定，但无法查找、替换和锁定。

如何查找、替换、锁定？

Answer 1

在 Word 中保护少量文本可能很棘手。对于 2010，您有两个基本选择：

1. 使用“只读”保护。这使您可以锁定文档，将某些区域指定为可供选定人员（或“所有人”）编辑。您将在显示任务窗格的“开发人员”选项卡“限制编辑”按钮中找到基本功能。您将选择整个文档并将其标记为可编辑，然后将您更改的范围设置为受保护。

2. 使用内容控件，设置两个“锁定”复选框。由于我在您的代码中看到了带有 ContentControls 的一行，因此我假设您在一定程度上已经熟悉它们。这种方法的优点是您不需要不断更改文档的保护级别。

在任何一种情况下，您都不能再使用 ReplaceAll。您需要将 Find 放入循环中，并在每次“命中”后执行插入/保护步骤，然后再次循环。互联网上有很多使用 Find 循环的代码示例。搜索：单词查找循环