Word VBA 解决TextBoxx25有输入仍删除书签bmrow1对应行的问题

核心错误原因 #

你代码的问题出在If判断行末尾的冒号：VBA语法中冒号是行语句分隔符，If UserForm3.TextBoxx25.Value = "" Then: 写法等价于条件成立时仅执行冒号后的空语句，下一行的删除代码完全脱离了If判断的控制，因此不管文本框是否有输入，删除操作都会无条件执行。

额外排查验证点 #

• 确认控件名称拼写：检查用户窗体中的文本框名称是否确实为TextBoxx25（注意名称里有两个连续的x，排查是否是TextBox25的拼写错误）
• 过滤空白字符干扰：如果需要排除用户仅输入空格的情况，判断条件可以改为If Trim(UserForm3.TextBoxx25.Value) = "" Then 自动过滤文本前后的空格
• 确认删除范围正确：如果需要删除整行而非仅清除单元格内容，可以将删除逻辑改为Doc1.Bookmarks("bmrow1").Range.Rows(1).Delete 执行效果更精准

修正后代码 #

Private Sub CommandButton2_Click()
    ' 移除If行末尾的冒号，使删除逻辑受条件控制
    If UserForm3.TextBoxx25.Value = "" Then
        Doc1.Bookmarks("bmrow1").Range.Cells.Delete
    End If
End Sub

内容的提问来源于stack exchange，提问作者mr-walrus