WORD表格的单元格中有字母的自动编号

chuhaiou

WORD文档中的表格，使用VBA在有字母的单元格前面自动插入数字编号，而没有字母的不插入数字编号?请高手指教,谢谢!
如:

A	B	CD	A	C
BC	D	A

变成:

1.A	2.B	3.CD	4.A	5.C
6.BC	7.D	8.A

[ 本帖最后由 chuhaiou 于 2009-3-14 10:22 编辑 ]

c81

查找替换法比较快。
查找   <[A-Z]{1,}          （选中通配符选项）
替换为  ^&    其样式为带编号类样式如“列表编号”

还可以先做个编号域，复制或剪切后
查找 （内容同上, 选中通配符选项）
替换为 ^c^&

[ 本帖最后由 c81 于 2009-3-13 18:36 编辑 ]

chuhaiou

用VBA语言不行吗？

守柔

原帖由 chuhaiou 于 2009-3-14 08:51 发表
用VBA语言不行吗？

您所指的自动编号，是应用自动编号格式，而不是简单在使用VBA在有字母的单元格前面自动插入数字编号？

chuhaiou

谢谢老大！
是简单使用VBA在有字母的单元格前面自动插入数字编号

守柔

原帖由 chuhaiou 于 2009-3-14 10:04 发表
谢谢老大！
是简单使用VBA在有字母的单元格前面自动插入数字编号

Option Explicit
Option Compare Text '不区分大小写字母
Sub SetListNumber()
    Dim myTable As Table
    Dim oCell As Cell
    Dim rngCell As Range
    Dim myNumber As Long
    Set myTable = Selection.Tables(1)
    Application.ScreenUpdating = False
    For Each oCell In myTable.Range.Cells
        Set rngCell = oCell.Range
        If rngCell.Text Like "[A-Z]*" Then
            myNumber = myNumber + 1
            rngCell.InsertBefore myNumber & "."
        End If
    Next
    Application.ScreenUpdating = True
End Sub

chuhaiou

太谢谢老大了，在你这里我学到了很多东西！

dushuba

学习中，感谢分享