word里面格式问题

gerogeedward

word里面格式问题

wordvba中的文件怎么都查找不了，自然也删除不了
在文件中找出并删除文件下面文字

wangtk1982

是删除每段中的关联考点到添加笔记中间的部分吗？

taller

wangtk1982

Sub deleteTextBetweenFixedWords()
    Dim startWord As String, endWord As String
    Dim startRange As Range, endRange As Range, deleteRange As Range
   
    ' 设置开始和结束文本
    startWord = " 关联考点："
    endWord = "添加笔记"
   
    ' 从文档开头开始，逐段查找并删除 Text
    Set startRange = ActiveDocument.Content
    Set endRange = ActiveDocument.Content
   
    Do While startRange.Find.Execute(findText:=startWord, Forward:=True) = True _
      And endRange.Find.Execute(findText:=endWord, Forward:=True) = True
      
        ' 判断是否找到符合条件的文本，并设置要删除的文本范围
        If startRange.Start < endRange.Start Then
            Set deleteRange = ActiveDocument.Range(startRange.Start, endRange.End)
            deleteRange.Delete
        End If
        
        ' 设置下一组查询范围
        startRange.Collapse Direction:=wdCollapseEnd
        endRange.Collapse Direction:=wdCollapseEnd
    Loop
End Sub

wangtk1982

Sub deleteTextBetweenFixedWords()
    Dim startWord As String, endWord As String
    Dim startRange As Range, endRange As Range, deleteRange As Range
   
    ' 设置开始和结束文本
    startWord = " 关联考点："
    endWord = "添加笔记"
   
    ' 从文档开头开始，逐段查找并删除 Text
    Set startRange = ActiveDocument.Content
    Set endRange = ActiveDocument.Content
   
    Do While startRange.Find.Execute(findText:=startWord, Forward:=True) = True _
      And endRange.Find.Execute(findText:=endWord, Forward:=True) = True
      
        ' 判断是否找到符合条件的文本，并设置要删除的文本范围
        If startRange.Start < endRange.Start Then
            Set deleteRange = ActiveDocument.Range(startRange.Start, endRange.End)
            deleteRange.Delete
        End If
        
        ' 设置下一组查询范围
        startRange.Collapse Direction:=wdCollapseEnd
        endRange.Collapse Direction:=wdCollapseEnd
    Loop
End Sub