Excel VBA如何去掉WORD中的全部自动编号的格式,但数字还保留着-
备份文件后应用如下宏(用法:如果有选择则处理选择区域,否则处理全部):Sub 自动编号转文本() If Selection.Type = wdSelectionIP Then ActiveDocument.Content.ListFormat.ConvertNumbersToText ActiveDocument.Content.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll Else Selection.Range.ListFormat.ConvertNumbersToText Selection.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll End IfEnd Sub。
根据情况自动编号的VBA代码详情请见附件
既然可以使用公式,单元格公式运算速度远快于VBA,不一定就要用VBA。
当然,使用VBA实现完全没问题。 见下面的宏: Sub 编号() Cells(2, 3) = Val(Cells(2, 3)) '防错:班级如为字符转为数字 Cells(2, 5) = (Cells(2, 3) \ 10) * 100 + 1 '第一位赋初值 For i = 3 To 12 '从第二位开始 Cells(i, 3) = Val(Cells(i, 3)) '防错:转为数字 NJ = Cells(i, 3) \ 10 '提取年级 M = 0 '同姓名人数,初值=0 For j = 2 To i - 1 '向前检查 If (Cells(j, 3) \ 10) = NJ Then '年级相同? If Cells(i, 2) = Cells(j, 2) Then'姓名相同? Cells(i, 5) = Cells(j, 5) '年级、姓名都相同:复制编号 Exit For '退出→下一位 Else '年级相同、姓名不相同 '记录不同姓名数 If (Cells(j, 5) Mod 10) > M Then M = (Cells(j, 5) Mod 10) End If End If Next j Cells(i, 5) = NJ * 100 + M + 1 '添加编号(=不同姓名数+1) Next i End Sub。
word自动编号怎么实现先写带有编号的内容,然后在加一页目录,把
你的问题,可用自动生成目录解决.要想自动生成题目,打文件时应设置题目格式。
一、输入题目时这样操作 1、打开WORD文档输入题目时,点菜单字体栏左侧样式窗口,选“题目1”,并选好字体和字号;如果想在目录中显示二级题目,输入二级题目时应选择“题目2”。 2、输入正文时,则应在样式窗口选择“正文”。
3、如果文件已经输入完成,可选中已输好题目,补做上述方法1程序。 4、凡设置标题样式的题目,其左侧有小黑方块标志。
二、文件输入完毕要自动生成目录时的操作: 1、将光标置于拟加目录处。 2、点“插入/索引和目录/目录”,在出现界面上在显示级别栏选定顶级别确定目录是几层;选择“显示页码”、“页码右对齐”及虚线样式等。
3、确定。至此,目录在你指定位置已经生成。
三、已生成目录的字体、间距等仍可以在目录中直接调整。
取消Word自动编号功能怎么做
在对文档加编号时有时会需要不用自动的让文档给编号,这时如果文档还是进行自动编号就会感觉很麻烦。
不妨试试这个方法。具体步骤如下: (1)单击“Office”按钮,再单击“Word 选项”按钮打开“Word 选项”对话框。
(2)在打开的“Word 选项”对话框中单击“校对”选项中的“自动更正选项”选项下的“自动更正选项”按钮,打开“自动更正”对话框。如图所示。
(3)在打开的“自动更正”对话框中选择“键入时自动套用格式”选项卡下 “键入进自动套用”选项组的 “自动编号列表”复选框,去除该复选框的选中状态,单击“确定”按钮。如图所示。
以上便是分析内容,仅供参考。
转载请注明出处51数据库 » wordvba自动编号