VBA查找文档中是否有特定单词

Question

打开单词文档时，我希望能够检查文档中是否存在特定单词。如果确实如此，我想打开一个用户窗体。基本上，我有一个带有“姓氏”的模板字母来代替收件人的姓氏。当我打开文档时，我希望自动弹出一个用户窗体，以便我可以在文本框中输入该用户的姓，并在单击用户窗体上的“完成”时运行查找和替换功能。如果我已经用姓氏的姓氏替换了“姓氏”，那么我不希望用户窗体弹出。我知道如何完成一切，除了检查是否存在“lastname”。有没有办法做到这一点？

Answer 1

在 “的ThisDocument” 代码窗格地方

这个（注释）代码：

Option Explicit 

Private Sub Document_Open() 
    Dim lastNameRng As Range 

    Set lastNameRng = GetLastname(ActiveDocument, "lastname") '<--| set 'lastNameRng' range to the one in the active document containing "lastname" 
    If lastNameRng Is Nothing Then Exit Sub '<--| exit if active document doesn't contain "lastname" 

    With UserForm2 '<--| change "UserForm2" to your actual userform name 
     With .TextBox1 '<--| change "TextBox1" to your actual TextBox name 
      .Value = "lastname" '<--| default value 
      .SetFocus '<--| make textbox the active control 
      .SelStart = 0 '<--| set the textbox selected text start from the beginning of the textbox text 
      .SelLength = Len(.Text) '<--| set the textbox selected text length as the textbox text one 
     End With 
     .Show '<--| show the userform and let the user input its text 
     lastNameRng.Text = .TextBox1.Value '<--| change "lastname" to the validated user input in TextBox1 (change "TextBox1" to your actual TextBox name) 
    End With 
    Unload UserForm2 
End Sub 


Private Function GetLastname(doc As Document, strng As String) As Range 
    Dim myRange As Range 

    Set myRange = ActiveDocument.Content '<--| set 'myRange' to passd dcoument entire content 
    myRange.Find.Execute FindText:=strng, MatchCase:=True, MatchWholeWord:=True, Forward:=True '<--| set 'myRange' to the one containing passed string in the passed document 
    If myRange.Find.Found = True Then Set GetLastname = myRange '<--| if 'myRange' has been actually set the return it 
End Function 

在用户窗体代码窗格将下面的代码：

Option Explicit 

Private Sub CommandButton1_Click() '<--| change "CommandButton1" to your actual "Done" button name 
    If Not ValidateInput(Me.TextBox1) Then Exit Sub '<--| exit if invalid input in TextBox1 (change "TextBox1" to your actual textbox name) 
    Me.Hide 
End Sub 

Function ValidateInput(tb As MSForms.TextBox) As Boolean 
    With tb '<--| reference passed textbox 
     If Trim(.Value) = "" Then '<--| if its content is empty... 
      MsgBox "You must enter a last name !", vbExclamation + vbInformation '<--| inform the user 
      .SetFocus '<--| make textbox the active control 
      .Value = "lastname" '<--| set the "default" textbox text 
      .SelStart = 0 '<--| set the textbox selected text start from the beginning of the textbox text 
      .SelLength = Len(.Text) '<--| set the textbox selected text length as the textbox text one 
     Else 
      ValidateInput = True 
     End If 
    End With 
End Function 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If CloseMode = vbFormControlMenu Then '<--| don't let the user close the userform by clicking the white cross at its top left 
     MsgBox "Click the 'Done' button to close the form" 
     Cancel = True 
    End If 
End Sub