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

413191246se

注意上面代码中 .MoveStart 4, -8 这行代码最后的“8”字，改成你想要的段落数减一即可。
例如：想删除最后 9 段，此时是 8；如果想删除最后 15 段，应该改为 14，即：
.MoveStart 4,-14

ofaye

谢谢你的热心回答，非常感谢。

liuk70

413191246se 发表于 2019-1-4 11:03
注意上面代码中 .MoveStart 4, -8 这行代码最后的“8”字，改成你想要的段落数减一即可。
例如：想删除最 ...

excel 中 vba 操作word 呢，请教

413191246se

* 楼上朋友，下面两段代码请参考（不是我编的，我也是抄网上的）：

1. Sub Excel2Word_for_Excel()
   
2. '2021/4/10/test-ok
   
3.     Dim wdApp As Object, wkSht As Worksheet, p$, s$, i$, n&
   
4.     Set wdApp = CreateObject("Word.Application")
   
5.     p = MyLoopFolder
   
6.     s = Dir(p & "*.*")
   
7.     GoSub Xls
   
8.     Do While s > ""
   
9.         s = Dir
   
10.         GoSub Xls
    
11.     Loop
    
12.     wdApp.Application.Quit
    
13.     Set wdApp = Nothing
    
14.     Set wkSht = Nothing
    
15.     Exit Sub
    
16. Xls:
    
17.     If s Like "*.xls*" Then
    
18.         i = p & s
    
19.         workbooks.Open FileName:=i
    
20.         s = Left(s, InStrRev(s, ".") - 1)
    
21.         For Each wkSht In ActiveWorkbook.Sheets
    
22.             wkSht.UsedRange.Copy
    
23.             With wdApp
    
24.                 .Visible = True
    
25.                 .Documents.Add
    
26.                 .Selection.Paste
    
27.                 n = n + 1
    
28.                 .ActiveDocument.SaveAs FileName:=p & s & n & ".docx"
    
29.                 .ActiveDocument.Close
    
30.             End With
    
31.         Next
    
32.         n = 0
    
33.         ActiveWorkbook.Close
    
34.         Kill i
    
35.     End If
    
36.     Return
    
37. End Sub
    
38. Sub Excel2Word()
    
39. 'NoSubdir/2021/4/12/Test-OK/Excel2Word + TextMerge + TableMerge
    
40.     Dim xlApp As Object, xlWkb As Object, wkSht As Object, p$, s$, i$, n&
    
41.     Set xlApp = CreateObject("Excel.Application")
    
42.     p = MyLoopFolder
    
43.     s = Dir(p & "*.*")
    
44.     GoSub Xls
    
45.     Do While s > ""
    
46.         s = Dir
    
47.         GoSub Xls
    
48.     Loop
    
49.     xlApp.Application.Quit
    
50.     Set xlApp = Nothing
    
51.     Set xlWkb = Nothing
    
52.     Set wkSht = Nothing
    
53.     MsgBox "所有Excel表格已另存为Word表格！", 0 + 48
    
54.     Exit Sub
    
55. Xls:
    
56.     If s Like "*.xls*" Then
    
57.         i = p & s
    
58.         s = Left(s, InStrRev(s, ".") - 1)
    
59.         Set xlWkb = xlApp.workbooks.Open(FileName:=i)
    
60.         For Each wkSht In xlWkb.Sheets
    
61.             wkSht.UsedRange.Copy
    
62.             Documents.Add
    
63.             Selection.Paste
    
64.             n = n + 1
    
65.             ActiveDocument.SaveAs FileName:=p & s & n & ".docx"
    
66.             ActiveDocument.Close
    
67.         Next
    
68.         n = 0
    
69.         xlWkb.Close
    
70.         Kill i
    
71.     End If
    
72.     Return
    
73. End Sub

复制代码

wh1813

kqbt 发表于 2009-12-21 23:53
从附件中看到，所谓的“前3行”其实就是前3段。

请问下，如何删除最后5行呢

kqbt

名称	值	说明	常量的定义
wdCell	12	1个单元格	Const wdCell=12
wdCharacter	1	1个字符	Const wdCharacter=1
wdCharacterFormatting	13	字符格式	Const wdCharacterFormatting=13
wdColumn	9	一列	Const wdColumn=9
wdItem	16	选中的项目	Const wdItem=16
wdLine	5	一行	Const wdLine=5
wdParagraph	4	一个段落	Const wdParagraph=4
wdParagraphFormatting	14	段落格式	Const wdParagraphFormatting=14
wdRow	10	一行	Const wdRow=10
wdScreen	7	一个屏幕	Const wdScreen=7
wdSection	8	一个节	Const wdSection=8
wdSentence	3	一句话	Const wdSentence=3
wdStory	6	全文	Const wdStory=6
wdTable	15	一个表格	Const wdTable=15
wdWindow	11	一个窗口	Const wdWindow=11
wdWord	2	一个单词	Const wdWord=2