关于word文档分页的问题处理

ailvlv

学习如何用VBA处理将文档每一页生成一个文件的问题的时候，遇到一个问题，代码将生成的文件名保存为
文件_1.doc,文件_2.doc,文件_3.doc没有问题，可以生成成功
但是想把每一页的第一行信息作为文件名的一部分的时候，如
文件_张三.doc,文件_李四.doc,文件_王五.doc
运行一直报错，不知道该怎么处理才能实现将每一页第一行的信息作为文件名的一部分，请求老师帮忙指导一下，感谢！！
分页处理.rar (36.27 KB, 下载次数: 3)

2020-5-27 07:14 上传

点击文件名下载附件

1. Sub 分页()
   
2. '
   
3. ' 分页 宏
   
4. '
   
5. '
   
6.     Dim oSrcDoc As Document
   
7.     Dim oNewDoc As Document
   
8.     Dim strSrcName As String
   
9.     Dim strNewName As String
   
10.     Dim oRange As Range
    
11.     Dim nIndex As Integer
    
12.     Dim fso As Object
    
13.     Set fso = CreateObject("Scripting.FileSystemObject")
    
14.     Set oSrcDoc = ActiveDocument
    
15.     Set oRange = oSrcDoc.Content
    
16.      t = ActiveDocument.Path
    
17.     oRange.Collapse wdCollapseStart
    
18.     oRange.Select
    
19.    
    
20. 
    
21.     For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    
22.         oSrcDoc.Bookmarks("\page").Range.Copy
    
23.         '第一行内容
    
24.          txt = oSrcDoc.Bookmarks("\page").Range.Paragraphs.Item(1).Range.Text
    
25.         oSrcDoc.Windows(1).Activate
    
26. '        MsgBox txt
    
27.         Application.Browser.Target = wdBrowsePage
    
28.     Application.Browser.Next
    
29. 
    
30.     strSrcName = oSrcDoc.FullName
    
31.    
    
32.       '页码命名文件成功
    
33. '    strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    
34. '    fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
    
35. 
    
36.     '第一行内容命名文件失败
    
37.     strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    
38.     fso.GetBaseName(strSrcName) & "_" & txt & "." & fso.GetExtensionName(strSrcName))
    
39. 
    
40.     Set oNewDoc = Documents.Add
    
41.     Selection.Paste
    
42.     oNewDoc.SaveAs strNewName
    
43. 
    
44.     oNewDoc.Close False
    
45. Next
    
46. 
    
47. Set oNewDoc = Nothing
    
48. Set oRange = Nothing
    
49. Set oSrcDoc = Nothing
    
50. Set fso = Nothing
    
51. MsgBox "结束！"
    
52. End Sub
    

复制代码

ming0018

strNewName 上面看看有没有问题

ailvlv

ming0018 发表于 2020-5-27 08:30
strNewName 上面看看有没有问题

老师，代码逻辑应该是对的，因为设置为

1. '    strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
   
2. '    fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))

复制代码

是可以生成的，就是想取每一行第一句的内容作为文件名的一部分就出问题了
我用MsgBox txt也能够得到第一行的内容，但是就是想把名字放入

1.     strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
   
2.     fso.GetBaseName(strSrcName) & "_" & txt & "." & fso.GetExtensionName(strSrcName))

复制代码

这里就报错了，不知道是什么原因，求各位老师指导，谢谢了

ming0018

ailvlv 发表于 2020-5-27 10:34
老师，代码逻辑应该是对的，因为设置为

是可以生成的，就是想取每一行第一句的内容作为文件名的一部分 ...

第一行的内容包括了回车符，你把回车符替换掉再试试。回车符是chr(13)

ailvlv

ming0018 发表于 2020-5-27 12:56
第一行的内容包括了回车符，你把回车符替换掉再试试。回车符是chr(13)

学习了，谢谢老师