word怎么添加文档行号 如何通过VBA为Word文档添加行号

步骤1. 打开Word文档,按Alt F11 , 打开VBA编辑器 。
步骤2. 展开当前项目,展开Microsoft Word对象,展开ThisDocument对象 , 然后在代码编辑器中编写以下VBA代码:
Sub LineNum()
Dim parag As Paragraph
【word怎么添加文档行号 如何通过VBA为Word文档添加行号】Dim nLineNum: nLineNum = 0
Dim selRge As Range
Set selRge = Selection.Range
For Each parag In Selection.Paragraphs
nLineNum = nLineNum1
selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, "00") & " ")
Next
End Sub
步骤3. 保存代码 。
步骤4. 打开文件>选项,单击自定义功能区,在“从下列位置选择命令”下拉列表框中选择“宏”,单击所编写的VBA过程 , 在自定义功能区选择一个选项卡,单击新建组,然后单击“添加>>”按钮,单击“重命名”按钮,选择一个图标并重命名 。完成设置后,单击“确定”按钮 。

word怎么添加文档行号 如何通过VBA为Word文档添加行号

将VBA宏添加到自定义功能区

相关经验推荐