当标题段落数量超过2时该怎样处理代码

luohua@luowei

各位大佬，文件的标题内容不固定，我根据字体大小自动选取作为文件标题 这个代码在标题内容段落数为1时可用，当段落数大于等于2时怎样完整输出文件的标题内容


Sub test()
b = ActiveDocument.Paragraphs.Count '获取段落数
For n = 1 To b
If ActiveDocument.Paragraphs(n).Range.Font.Size = 22 Then '如果段落的字体大小=22
a = n
End If
Next
MsgBox ActiveDocument.Paragraphs(a).Range
End Sub

luohua@luowei

请大佬们修改，谢谢

luohua@luowei

另外后面怎加代码让文档以获取到的标题另存为文件名

luohua@luowei

Sub test()
b = ActiveDocument.Paragraphs.Count '获取段落数
For N = 1 To b
  If ActiveDocument.Paragraphs(N).Range.Font.Size = 22 Then '如果段落的字体大小=22
  a = a & ActiveDocument.Paragraphs(N).Range
  End If
Next
MsgBox a
End Sub

luohua@luowei

Sub test()
b = ActiveDocument.Paragraphs.Count '获取段落数
For N = 1 To b
  If ActiveDocument.Paragraphs(N).Range.Font.Size = 22 Then '如果段落的字体大小=22
  a = a & ActiveDocument.Paragraphs(N).Range
  End If
Next
MsgBox a
End Sub

luohua@luowei

luohua@luowei 发表于 2023-5-3 21:30
另外后面怎加代码让文档以获取到的标题另存为文件名

Sub test()
b = ActiveDocument.Paragraphs.Count '获取段落数
For N = 1 To b
  If ActiveDocument.Paragraphs(N).Range.Font.Size = 22 Then '如果段落的字体大小=22
  a = a & ActiveDocument.Paragraphs(N).Range
  End If
Next
MsgBox a
End Sub

413191246se

楼主，我有现成的成熟的一键自动排版宏，你怎么不用呢？

batmanbbs

batmanbbs

1. Sub 以文章题目为名保存文档()
   
2. 
   
3.     Dim myPG As Paragraph
   
4.     Dim Title, FullName As String, isBegin As Boolean
   
5. 
   
6.     Title = "": isBegin = False
   
7.     For Each myPG In ActiveDocument.Paragraphs
   
8.         With myPG.Range
   
9.             If .Font.Size = 22 Then
   
10.                 isBegin = True
    
11.                 Title = Title & Trim(Left(.Text, Len(.Text) - 1))
    
12.             ElseIf isBegin Then
    
13.                 Exit For
    
14.             End If
    
15.         End With
    
16.     Next myPG
    
17.     If Len(Title) = 0 Then
    
18.         MsgBox "未获取到标题"
    
19.     Else
    
20.         FullName = ActiveDocument.FullName
    
21.         FullName = Left(FullName, InStrRev(FullName, "")) & _
    
22.             Left(Replace(Title, "?*:""<>\/|", ""), 255) & ".doc"
    
23.         'Debug.Print FullName
    
24.         ActiveDocument.SaveAs2 FileName:=FullName, FileFormat:=wdFormatDocument
    
25.     End If
    
26.    
    
27. End Sub

复制代码

batmanbbs

第21句应该是 "\" ，\被吃掉了