求助如何让标题自动换行后再显示内容

hzs1111111

For Each rng In rDATA
            With .Selection

                ' 插入分类
                If rng.Offset(0, 1) <> rng.Offset(-1, 1) Then
                    .ParagraphFormat.SpaceBeforeAuto = False ' 段前自动行距
                    .Text = rng.Offset(0, 1)
                    .Font.Size = 14
                    .Font.Bold = True 'wdToggle                   ' 切换文本为加粗


                    .EndKey                                 ' 移到行末
                    .TypeParagraph              ' 换行
                    .Font.Bold = wdToggle

            End If

                ' 插入问题
                .ParagraphFormat.SpaceBeforeAuto = False
                .Font.Size = 12
                .Font.Bold = False ' wdToggle
                .Text = rng.Offset(0, 3) & "." & rng.Offset(0, 4) & "   "
                .EndKey

            End With
            代码是这样的，如何修改一下让加粗的标题在一行，后面的内容自动换行

hzs1111111

求助大佬解决一下

蜀中草莽

hzs1111111 发表于 2023-4-6 10:04
求助大佬解决一下

打开查找替换勾选通配符
查找框输入([零〇一二三四五六七八九十千百万亿]{1,}、*^13)   格式：加粗
替换框输入  ^p\1
全部替换

413191246se

1. Sub a0406()
   
2.     ActiveDocument.Content.Find.Execute "([二三四五六七八九]、)", , , 1, , , , , , "^p\1", 2
   
3.     ActiveDocument.Content.Find.Execute "([0-9]{1,}.答)", , , 1, , , , , , "^p\1", 2
   
4. End Sub

复制代码

守候_CJ

Word VBA——用查找方法将连续粗体变单独标题段
示例代码

1. Sub 连续粗体变单独标题段()
   
2.     Dim fw As Word.Range
   
3.    
   
4.     Set fw = Word.Selection.Range
   
5.     If fw.Start = fw.End Then
   
6.         Set fw = Word.ActiveDocument.Range
   
7.     End If
   
8.    
   
9.     Do While True
   
10.         With fw.Find
    
11.             .ClearFormatting
    
12.             .Forward = True
    
13.             .MatchWildcards = False
    
14.             .Wrap = wdFindStop
    
15.             .Text = ""
    
16.             .Font.Bold = True
    
17.             If .Execute Then
    
18.                 Debug.Print .Parent.Text, .Parent.Start, .Parent.End
    
19.                 .Parent.Select
    
20.                 If .Parent.Start = ActiveDocument.Range.Start Then
    
21.                     If .Parent.End < ActiveDocument.Range Then
    
22.                         If .Parent.Characters.Last.Next.Text <> Chr(13) And .Parent.Characters.Last.Text <> Chr(13) Then
    
23.                             .Parent.InsertParagraphAfter
    
24.                         End If
    
25.                     End If
    
26.                 Else
    
27.                     If .Parent.Characters.First.Previous.Text <> Chr(13) And .Parent.Characters.First.Text <> Chr(13) Then
    
28.                         .Parent.InsertParagraphBefore
    
29.                     End If
    
30.                     If .Parent.End < ActiveDocument.Range.End Then
    
31.                         If .Parent.Characters.Last.Next.Text <> Chr(13) And .Parent.Characters.Last.Text <> Chr(13) Then
    
32.                             .Parent.InsertParagraphAfter
    
33.                         End If
    
34.                     End If
    
35.                 End If
    
36.             Else
    
37.                 Exit Do
    
38.             End If
    
39.         End With
    
40.         fw.SetRange fw.End, ActiveDocument.Range.End
    
41.     Loop
    
42.    
    
43.     Set fw = Nothing
    
44.     MsgBox "完成"
    
45. End Sub

复制代码

hzs1111111

413191246se 发表于 2023-4-6 10:37

excel的vba里面添加了没有效果大佬

hzs1111111

守候_CJ 发表于 2023-4-6 10:45
Word VBA——用查找方法将连续粗体变单独标题段
示例代码

是vba生成word的代码