如何用代码给每段前加序号？

zzpsx · 发表于 2021-4-10 12:41

本帖最后由 zzpsx 于 2021-4-10 19:17 编辑

如何给每段加序号-.rar (20.6 KB, 下载次数: 9) 不用代码能实现的话，也可以 QQ截图20210410165913.png

z9bhd · 发表于 2021-4-10 21:49

试试看
Sub lx()
Dim p As Paragraph, k%
      For Each p In ThisDocument.Paragraphs
         k = k + 1
         Selection.Range.ModifyEnclosure Style:=wdEncloseStyleLarge, Symbol:= _
      wdEnclosureCircle, EnclosedText:="" & k
         Selection.Move 4, 1
      Next
End Sub

zzpsx · 发表于 2021-4-10 22:03

z9bhd 发表于 2021-4-10 21:49
试试看
Sub lx()
Dim p As Paragraph, k%

谢谢，不过好像只给第一段加了序号

z9bhd · 发表于 2021-4-11 08:15

zzpsx 发表于 2021-4-10 22:03
谢谢，不过好像只给第一段加了序号

不会吧？说说你是怎么操作的？

zzpsx · 发表于 2021-4-11 10:19

z9bhd 发表于 2021-4-11 08:15
不会吧？说说你是怎么操作的？

光标定位到第一段前，alt+8运行代码

zhanglei1371 · 发表于 2021-4-11 11:36

zzpsx 发表于 2021-4-11 10:19
光标定位到第一段前，alt+8运行代码

Sub lx()
Dim p As Paragraph, k%
For Each p In ThisDocument.Paragraphs
      k = k + 1
      ActiveDocument.Range(p.Range.Start, p.Range.Start).ModifyEnclosure Style:=wdEncloseStyleLarge, Symbol:= _
      wdEnclosureCircle, EnclosedText:="" & k
Next
End Sub

z9bhd · 发表于 2021-4-11 12:25

zzpsx 发表于 2021-4-11 10:19
光标定位到第一段前，alt+8运行代码

我测试多次没有问题，你再试试其它方法运行一下，比如在代码窗口运行一下，应该是你操作的问题

z9bhd · 发表于 2021-4-11 13:51

zzpsx 发表于 2021-4-10 22:03
谢谢，不过好像只给第一段加了序号

如何给每段加序号-.zip (19.51 KB, 下载次数: 8)

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

如何用代码给每段前加序号？

评分

评分

评分