关于项目编号的两个问题

hpw

见附件,想请专家们帮我解决两个问题:

1.左右的编号,我想左边完了再右边接上,不是像现在的这样交叉编号?

2.我的编号是3位,从C01开始,可是到了10,就变成了C010,怎么能自然过渡到C10?

lqAEefqU.rar (2.64 KB, 下载次数: 18)

2005-11-7 16:18 上传

点击文件名下载附件
关于项目编号的两个问题

雪豹

我暂时只知道第二个问题: 1.选中C010以后的区域, 2.

雪豹

我是WORD2000,不知道WORDXP中是否有更强大的功能.用了个"歪门"的方法做了如下的效果图. 我用的方法是:一个一行二列的表格里嵌套两个表格.但是两个表格之间的空隙(可能是0.04cm吧)问题解决不了.

守柔

方法一，项目符号与编号

选中第一列，自定义编号为C01，其中1为自动编号，起始编号为1。

选中第一列中超过10的单元格，重新编号，自定义为C1，其中1为自动编号，起始编号为10。

选中第二列，项目符号与编号，选中该类编号，起始编号为前一列的最后一个单元格编号。

不太方便？

用VBA吧

Sub ListNum() Dim i As Column, aCell As Cell, N As Byte, myRange As Range, tabPostion As Long Dim lngStart As Long, lngEnd As Long Application.ScreenUpdating = False '关闭屏幕更新 With Selection.Tables(1) '光标所在表格 If .Uniform = False Then Exit Sub '如果有合并行或列,则退出 For Each i In .Columns '在列中循环 For Each aCell In i.Cells '遍历列中单元格 N = N + 1 '计数 lngStart = aCell.Range.Start '取得起始位置 lngEnd = aCell.Range.End - 1 '取得结束位置 Set myRange = ActiveDocument.Range(lngStart, lngEnd) '定义一个RANGE对象 tabPostion = VBA.InStr(myRange, vbTab) '取得制表符位置,此举是为以后重新编号作准备 '如果已经包括了制表位,则刷新RANGE对象的文本内容(即去除编号项) If tabPostion > 0 Then myRange = ActiveDocument.Range(lngStart + tabPostion, lngEnd) myRange.InsertBefore "c" & VBA.Format(N, "00") & vbTab '插入编号项,始终为c00三位数 Next Next End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub

'代码已经在该文档中了

7QtZ6ql6.rar (8.86 KB, 下载次数: 18)

2005-11-8 06:32 上传

点击文件名下载附件

[此贴子已经被作者于2005-11-8 6:33:10编辑过]

hpw

呵呵,谢谢大家的回复,不用VBA的方法学到了,不过3楼的办法我记得以前我试过,但表格中套表格,似乎不太保险,我记得以前我在一个文档中用过表格中嵌套表格,结果再次打开的时候全部变成文本了,但我不确定是因为什么.

守柔的代码我运行下,序号没有问题了,嘿嘿,不过新生成的序号将文字全替换了,这是为什么?[em06]

雪豹

呵,我的办法是没有办法的办法,还是斑竹的好!

hpw

呵呵,不好意思,OK啦,谢谢守柔.[em02]