vba添加数据行号（如何通过VBA为Word文档添加行号）

步骤1. 打开Word文档，按Alt F11，打开VBA编辑器。

步骤2. 展开当前项目，展开Microsoft Word对象，展开ThisDocument对象，然后在代码编辑器中编写以下VBA代码：

Sub LineNum()

Dim parag As Paragraph

Dim nLineNum: nLineNum = 0

Dim selRge As Range

Set selRge = Selection.Range

For Each parag In Selection.Paragraphs

nLineNum = nLineNum 1

selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, "00") & " ")

Next

End Sub

步骤3. 保存代码。

步骤4. 打开文件>选项，单击自定义功能区，在“从下列位置选择命令”下拉列表框中选择“宏”，单击所编写的VBA过程，在自定义功能区选择一个选项卡，单击新建组，然后单击“添加>>”按钮，单击“重命名”按钮，选择一个图标并重命名。完成设置后，单击“确定”按钮。

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