分两栏后怎样实现自动编号?(左栏是奇数号,右栏是偶数号)

julytiger · 发表于 2005-5-11 08:04

文档分为两栏, 分栏后怎样实现自动编号? (左栏是奇数号,右栏是偶数号) 请见附件.

6lDrYChV.rar (3.76 KB, 下载次数: 40)

[此贴子已经被作者于2005-5-11 8:06:49编辑过]

守柔 · 发表于 2005-5-11 17:41

用宏吧，更容易一些。

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-11 17:41:56 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim i As Paragraph, N As Byte, P As Integer With Selection If .Type = wdSelectionIP Then Exit Sub On Error Resume Next Application.ScreenUpdating = False N = InputBox("请输入起始编号") For Each i In .Paragraphs i.Range.InsertBefore N N = N + 2 Next End With Application.ScreenUpdating = True End Sub '----------------------可根据情况，自己修改一下，要求，先选定某一栏，或者某一栏中的部分段落

julytiger · 发表于 2005-5-11 20:16

谢谢守柔, 搞定了, 就用这段代码, 在工具栏中添加了个按钮, 很方便.:-)

c81 · 发表于 2005-5-12 00:11

F1nZIIdN.rar (5.05 KB, 下载次数: 28)

julytiger · 发表于 2005-5-12 07:51

谢谢C81, 方法很好用, 以前没想到用表格. :-)

leer_one · 发表于 2005-5-12 13:26

用插入域来完成

julytiger · 发表于 2005-5-12 21:01

leer_one 兄, 能具体地说一下吗?

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

分两栏后怎样实现自动编号?(左栏是奇数号,右栏是偶数号)

土法子