word统一改变每段的序号

willylucy · 发表于 2019-4-2 14:48

直通车.rar (1.19 MB, 下载次数: 24)

所有问题8、问题2、问题24、问题5......等等都是无序的。
需要统一把这些改为升序，问题1、2、3、4、5

不需要把具体的段落来排序，只需要把段落前的“问题1”后面这个数字升序排序。详见附件
QQ截图20190402143156.jpg

daibao88 · 发表于 2019-4-2 15:01

vba 查找替换+计数器

willylucy · 发表于 2019-4-2 16:04

daibao88 发表于 2019-4-2 15:01
vba 查找替换+计数器

有没有具体的操作流程，分享一下吧？

ming0018 · 发表于 2019-4-2 16:09

willylucy 发表于 2019-4-2 16:04
有没有具体的操作流程，分享一下吧？

论坛里面有很多这样的例子，自己动手找一下
同时，自己要有一定的VBA基础。

zhanglei1371 · 发表于 2019-4-2 18:39

不需要vba，直接Ctrl+F9，在大括号里输入seq aaa，然后F9，会变成1，剪切掉这个1，然后Ctrl+H==>查找问题[0-9]{1,}，==>替换为^c，勾选通配符==>点全部替换==>全选F9即可。

413191246se · 发表于 2019-4-2 19:55

Sub test_问题12345()
ActiveDocument.Content.InsertBefore Text:=vbCr
'
Dim n&
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "^13问题[0-9]@[：:]" '此处自定义查找内容
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent
.MoveStart
With .Font
.NameFarEast = "黑体"
.NameAscii = "Times New Roman"
.Bold = True
.Color = wdColorRed
End With
.Characters.Last.Text = "："
.MoveStart 1, 2
n = n + 1
.Text = n
.Start = .End
End With
Loop
End With
End Sub

复制代码

相见是缘8 · 发表于 2019-4-3 07:37

zhanglei1371 发表于 2019-4-2 18:39
不需要vba，直接Ctrl+F9，在大括号里输入seq aaa，然后F9，会变成1，剪切掉这个1，然后Ctrl+H==>查找问题[0 ...

你好！

我打开该文档，按你所教，按Ctrl+F9键，在大括号里输入seqaaa，然后按F9键，却提示：错误！未定义书签。

我是那里没弄好？恳请详教！谢谢！

ming0018 · 发表于 2019-4-3 08:34

相见是缘8 发表于 2019-4-3 07:37
你好！我打开该文档，按你所教，按Ctrl+F9键，在大括号里输入seqaaa，然后按F9键，却提示：错误！未定义 ...

按Ctrl+F9键　－〉　在大括号里输入seq　a　－〉ＡＬＴ+Ｆ9　－〉复制多个后，CTRL+A，Ｆ9，完毕。

相见是缘8 · 发表于 2019-4-3 09:10

ming0018 发表于 2019-4-3 08:34
按Ctrl+F9键　－〉　在大括号里输入seq　a　－〉ＡＬＴ+Ｆ9　－〉复制多个后，CTRL+A，Ｆ9，完毕。

你好！
我打开该文档，按你所教，按Ctrl+F9键，在大括号里输入seq　a　→按ＡＬＴ+Ｆ9键　→复制多个后，按CTRL+A键后，按Ｆ9键，完毕。好象也不成。我是那里没弄好？恳请详教！谢谢！
你这个 “复制多个后” 是指？？？

ming0018 · 发表于 2019-4-3 09:16

相见是缘8 发表于 2019-4-3 09:10
你好！
我打开该文档，按你所教，按Ctrl+F9键，在大括号里输入seq　a　→按ＡＬＴ+Ｆ9键　→复制多个后 ...

自己看图吧

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

[求助] word统一改变每段的序号

评分