如何查找和复制字符串VBA中的特定文本？

Sub FindAndCopyText()
    Dim originalText As String
    Dim searchText As String
    Dim startIndex As Integer
    Dim endIndex As Integer
    Dim copiedText As String
    
    ' 原始文本
    originalText = "这是一个示例文本，其中包含要查找和复制的特定文本。"
    
    ' 要查找的文本
    searchText = "要查找和复制的"
    
    ' 查找文本的起始位置
    startIndex = InStr(1, originalText, searchText)
    
    ' 如果找到了文本
    If startIndex > 0 Then
        ' 计算文本的结束位置
        endIndex = startIndex + Len(searchText) - 1
        
        ' 复制文本
        copiedText = Mid(originalText, startIndex, endIndex - startIndex + 1)
        
        ' 输出复制的文本
        MsgBox "复制的文本为：" & copiedText
    Else
        ' 如果未找到文本
        MsgBox "未找到要查找的文本。"
    End If
End Sub