vbA操作word文档自动生成txt文件 ，求，谢谢

[vfpbu]

一个word文档有很多行数据（由英语和汉字组成），要每9行数据生成一个txt文件，txt文件名依次按生成顺序名命为“文件1”“文件2”...... 。



（注：如果最后的数据不够9行的，也要把剩下的数据自动生成一个txt文件） 谢谢各位

[水向东流时光怎么偷]

这个...是可以的

[vfpbu]

[Quote=引用 1 楼 abclm 的回复:]
这个...是可以的
[/Quote]

我也知道是可以的，但是我不会弄

[vfpbu]

[Quote=引用 1 楼 abclm 的回复:]
这个...是可以的
[/Quote]

可以帮帮忙吗

[asyn_FL]

把fs拉出循环体了

Sub test()
    Dim fs As Object
    Dim a
    Dim doc As Document
    Dim txtPath, txtFullName As String
    Dim i, docLines As Long
    
    txtPath = "d:\" '文档保存路径
    Set doc = Documents("11.doc")
    Selection.HomeKey Unit:=wdStory
    docLines = doc.BuiltInDocumentProperties(wdPropertyLines).Value
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    For i = 1 To Round(docLines / 9 + 0.5)
        txtFullName = txtPath & "文件" & i & ".txt"
        Set a = fs.CreateTextFile(txtFullName, True)
        
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=9 * (i - 1) + 1, Name:=""
        Selection.MoveDown Unit:=wdLine, Count:=9, Extend:=wdExtend
        
        a.WriteLine (Selection.Text)
        a.Close
        Set a = Nothing
    Next
    Set fs = Nothing
    
End Sub

[asyn_FL]

Sub test()
    Dim fs As Object
    Dim a
    Dim doc As Document
    Dim txtPath, txtName, txtFullName As String
    Dim i, docLines As Long
    
    txtPath = "d:\" '文档保存路径
    Set doc = Documents("源文档.doc")
    Selection.HomeKey Unit:=wdStory
    docLines = doc.BuiltInDocumentProperties(wdPropertyLines).Value
    
    For i = 1 To Round(docLines / 9 + 0.5)
        Set fs = CreateObject("Scripting.FileSystemObject")
        txtFullName = txtPath & "文件" & i & ".txt"
        Set a = fs.CreateTextFile(txtFullName, True)
        
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=9 * (i - 1) + 1, Name:=""
        Selection.MoveDown Unit:=wdLine, Count:=9, Extend:=wdExtend
        
        a.WriteLine (Selection.Text)
        a.Close
        Set a = Nothing
        Set fs = Nothing
    Next
    
End Sub

[vfpbu]

[Quote=引用 6 楼 asyn_fl 的回复:]

把fs拉出循环体了

VB code
Sub test()
Dim fs As Object
Dim a
Dim doc As Document
Dim txtPath, txtFullName As String
Dim i, docLines As Long

txtPath = "d:\" '文档保存路径
Set doc……
[/Quote]


谢谢谢谢