word 在所有标题序号后加空格

zxc1599394

请教一下 vba 如何在所有级别标题序号和文字中间加空格

ming0018

可以的，请说明什么样的序号。

zxc1599394

ming0018 发表于 2019-6-20 17:52
可以的，请说明什么样的序号。

类似
1XXX
1.1XXX
1.1.1XXX
2XXX
2.1XXX
在序号与XXX中间插入空格

小花鹿

zxc1599394 发表于 2019-6-20 18:01
类似
1XXX
1.1XXX

查找替换，认真研究一下                                                                                                           

duquancai

zxc1599394 发表于 2019-6-20 18:01
类似
1XXX
1.1XXX

没有附件都是空话

413191246se

***演示文本（附件）：
类似
1XXX
1.1XXX
1.1.1XXX
23XXX
12.15XXX2.1YYY
17.345.678XXX
在序号与XXX中间插入空格
*********************************
1　XXX
1.1                               XXX
1.1.1XXX
23　                      XXX
12.15　   XXX2.1YYY
17.345.678　                         XXX
在序号与XXX中间插入空格

413191246se

1. Sub aaaa多级编号加空格()
   
2.     With ActiveDocument.Content.Find
   
3.         'add-space
   
4.         .Execute "(^13[0-9]{1,})([!.])", , , 1, , , , , , "\1 \2", 2
   
5.         .Execute "(^13[0-9]@.[0-9]{1,})([!.])", , , 1, , , , , , "\1 \2", 2
   
6.         .Execute "(^13[0-9]@.[0-9]@.[0-9]{1,})([!.])", , , 1, , , , , , "\1 \2", 2
   
7.         'del-space
   
8.         .Execute "(^13[0-9]{1,})([ 　^s^t]{1,})([!.])", , , 1, , , , , , "\1 \3", 2
   
9.         .Execute "(^13[0-9]@.[0-9]{1,})([ 　^s^t]{1,})([!.])", , , 1, , , , , , "\1 \3", 2
   
10.         .Execute "(^13[0-9]@.[0-9]@.[0-9]{1,})([ 　^s^t]{1,})([!.])", , , 1, , , , , , "\1 \3", 2
    
11.     End With
    
12. End Sub

复制代码

duquancai

413191246se 发表于 2019-6-21 05:29
***演示文本（附件）：
类似
1XXX

我真的是服你了！万一楼主的编号是“自动编号”呢？你不是上错厕所了吗？

413191246se

杜老师，这倒是了，我未曾想到此环节（真的有可能是自动编号呢！而非手动人工编号）。
楼主，如果你的文档是自动编号的，请先执行下面代码，再执行 7 楼代码：

1. Sub delAutoNum()
   
2.     With ActiveDocument
   
3.         '回车符/手动换行符=>段落标记
   
4.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
5. 
   
6.         '删除所有域
   
7.         .Fields.Unlink
   
8. 
   
9.         '列表编号/LISTNUM域转文本
   
10.         .ConvertNumbersToText
    
11.     End With
    
12. End Sub

复制代码

413191246se

杜老师，这种多级编号标题，我猜是一步一步人工手动键入 1,1.1,1.111。如果是不这样，只能是键入一个标题，设置一个样式（如标题2）。反正我从来没有用过多级编号标题，不知人们需要的多级编号标题是要手动静止的，还是自动的。