Question

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

Answer 1

in＆＃34; ThisDocument＆＃34;代码窗格放置此（注释）代码：

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

在userform代码窗格中

放置以下代码：

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

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

1 个答案: