怎样用Word VBA删除文档的第一行到第三行？

roger600001

怎样用Word VBA删除文档的第一行到第三行？

见附件

honggexjq

直接删除不行？

1. Sub test()
   
2. Dim i%
   
3. Selection.HomeKey unit:=wdStory
   
4. For i = 1 To 3
   
5.     Selection.EndKey unit:=wdLine, Extend:=wdExtend
   
6.     Selection.Delete
   
7. Next
   
8. End Sub

复制代码

roger600001

就要这个。我每天转换成WORD的文件格式都一样了，每天有20~30个，自己用记录宏的方法做了个宏，可是记录宏有局限性，只好求救了

kqbt

      从附件中看到，所谓的“前3行”其实就是前3段。

1. Sub kqbt_DelPar()
   
2.   Application.ScreenUpdating = False
   
3.   Dim MyPath As String, i As Integer, myDoc As Document
   
4.   With Application.FileDialog(msoFileDialogFolderPicker)
   
5.     .Title = "选择目标文件夹"
   
6.     If .Show = -1 Then
   
7.       MyPath = .SelectedItems(1)
   
8.     Else
   
9.       Exit Sub
   
10.     End If
    
11.   End With
    
12.   With Application.FileSearch
    
13.     .LookIn = MyPath
    
14.     .FileType = msoFileTypeWordDocuments
    
15.     If .Execute > 0 Then
    
16.       For i = 1 To .FoundFiles.Count
    
17.         Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
    
18.         myDoc.Range(myDoc.Paragraphs(1).Range.Start, myDoc.Paragraphs(3).Range.End).Delete
    
19.         myDoc.Close True
    
20.       Next
    
21.     End If
    
22.   End With
    
23.   Application.ScreenUpdating = True
    
24. End Sub

复制代码

szqhb

代码都很精彩，收藏楼

hlssoft

一直在网上学习高手的帖子，很有收获。
以下代码在运行到“ With Application.FileSearch”时提示“此命令无法用于此平台”
请高手给解释一下。
原贴的题目为“怎样用Word VBA删除文档的第一行到第三行？”：
Sub kqbt_DelPar()
  Application.ScreenUpdating = False
  Dim MyPath As String, i As Integer, myDoc As Document
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "选择目标文件夹"
    If .Show = -1 Then
      MyPath = .SelectedItems(1)
    Else
      Exit Sub
    End If
  End With
  With Application.FileSearch
    .LookIn = MyPath
    .FileType = msoFileTypeWordDocuments
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
        myDoc.Range(myDoc.Paragraphs(1).Range.Start, myDoc.Paragraphs(3).Range.End).Delete
        myDoc.Close True
      Next
    End If
  End With
  Application.ScreenUpdating = True
End Sub

413191246se

kqbt 的代码复制后，在 WORD 2003 中啥也干不了！——希望完善一下，3Q！

ofaye

我的需求刚好相反。怎样用vba删除word文档最后的9行？各位路过的大神请帮帮忙。

413191246se

9行，还是9个段落？

1. Sub test删除最后9个段落()
   
2.     With Selection
   
3.         .EndKey 6
   
4.         .Expand 4
   
5.         .MoveStart 4, -8
   
6.         .Delete
   
7.     End With
   
8. End Sub

复制代码

ofaye

谢谢！如果是其他数字的段落，例如说到数12段或者15等其他段落，参数应该做如何调整？