关键词前或后字符删除

T-T-J

在一个多WORD文件中，我想用VBA批量删除某关键词前面的所有词不知怎么做，或某关键词后面的所有词不知怎么做

413191246se

“词”怎么判断？ 楼主 应该提供详尽的附件，提出问题并设想目标。

小花鹿

查找替换                                                                                                   

daibao88

vba find setrange Delete    自己百度一下

T-T-J

在一个多WORD文件中，我想用VBA批量删除某关键词前面的所有词不知怎么做，或某关键词后面的所有词不知怎么做，比如说我想在第一段关键词“班主任”前的所有词删除，但保留"班主任"一词，最后一段关键词“附件”一词后面所有内容都删除，且删除“附件”一词

T-T-J

自己顶一下

413191246se

楼主，你将光标放在第一段“班主任”前面，按组合键 Ctrl + Shift + Home 选定“班主任”前面所有文字，按 Delete 键删除即可，此动作可以录制为宏，自己录制吧！

同理，将光标放在倒数第二段“附件”前面，按组合键 Ctrl + Shift + End 选定“附件”及后面所有文字，按 Delete 键删除即可，此动作可以录制为宏，自己录制吧！

T-T-J

没做出来，请你帮我做一下，可否

daibao88

if语句录不出来的，参考吧。
Sub homedel()
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Text = "班主任"
        .Execute
        If .Found = True Then ActiveDocument.Range(0, .Parent.Start).Delete
    End With
End Sub
Sub enddel()
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Text = "班主任"
        .Execute
        If .Found = True Then ActiveDocument.Range(.Parent.End, ActiveDocument.Range.End ).Delete
    End With
End Sub

T-T-J

谢谢，非常感谢