PowerPoint VBA搜索函数无法识别End If、For代码块问题求助

核心问题：代码结构不完整，导致VBA无法识别代码块匹配 #

你的代码存在多处语法结构错误，直接导致VBA无法正确解析If/Next/Do的对应关系：

1. 最外层的Do语句没有对应的Loop，属于未闭合的循环结构
2. 内部的Do While Not (foundText Is Nothing)循环缺少Loop，且Exit Do直接中断循环，导致外层的If shp.HasTextFrame未正确闭合
3. With foundText.Select语法错误，Select是方法，不需要用With包裹
4. Check = MsgBox("Continue search?", vbYesNo)逻辑错误：MsgBox返回的是常量（vbYes=6，vbNo=7），直接赋值给Boolean变量会导致判断失效

修正后的代码 #

Sub Searchfunction()
    Dim TagObject As String
    Dim TexRng As TextRange
    Dim sld As Slide
    Dim shp As Shape
    Dim foundText As TextRange
    Dim continueSearch As Boolean
    
    TagObject = InputBox("What are you searching for?")
    If TagObject = "" Then Exit Sub ' 处理空输入
    
    continueSearch = True
    
    For Each sld In Application.ActivePresentation.Slides
        If Not continueSearch Then Exit For ' 用户选择停止，跳出幻灯片循环
        
        For Each shp In sld.Shapes
            If Not continueSearch Then Exit For ' 用户选择停止，跳出形状循环
            
            If shp.HasTextFrame And shp.TextFrame.HasText Then ' 同时判断是否有文本框和文本
                Set TexRng = shp.TextFrame.TextRange
                Set foundText = TexRng.Find(TagObject)
                
                Do While Not foundText Is Nothing And continueSearch
                    foundText.Select ' 选中匹配文本
                    ' 提示用户是否继续，vbNo对应停止
                    continueSearch = (MsgBox("Continue search?", vbYesNo) = vbYes)
                    
                    ' 查找下一个匹配项
                    If continueSearch Then
                        Set foundText = TexRng.Find(TagObject, foundText.Start + foundText.Length)
                    End If
                Loop
            End If
        Next shp
    Next sld
    
    If continueSearch Then ' 如果是自然结束搜索，提示无更多结果
        MsgBox "End of search, no further results."
    End If
End Sub

关键修改说明 #

• 移除未闭合的Do循环，改用布尔变量continueSearch控制流程，避免GoTo跳转导致的结构混乱
• 补充shp.TextFrame.HasText判断，防止空文本框报错
• 修正连续查找逻辑，通过指定起始位置实现下一个匹配项搜索
• 用布尔变量直接控制循环退出，代码结构更清晰
• 增加空输入处理，避免无效搜索

内容的提问来源于stack exchange，提问作者Luxtra02