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

zxc1599394 · 发表于 2019-6-20 17:49

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

ming0018 · 发表于 2019-6-20 17:52

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

zxc1599394 · 发表于 2019-6-20 18:01

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

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

小花鹿 · 发表于 2019-6-20 19:08

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

查找替换，认真研究一下

duquancai · 发表于 2019-6-20 20:11

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

没有附件都是空话

413191246se · 发表于 2019-6-21 05:29

***演示文本（附件）：
类似
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 · 发表于 2019-6-21 05:30

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

复制代码

duquancai · 发表于 2019-6-21 10:29

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

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

413191246se · 发表于 2019-6-21 11:14

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

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

复制代码

413191246se · 发表于 2019-6-21 11:15

本帖最后由 413191246se 于 2019-6-21 11:17 编辑

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

		自动登录	找回密码
密码			免费注册

[求助] word 在所有标题序号后加空格