如何自动添加行号在每行的开头

zqhmw · 发表于 2009-12-14 17:01

在文档中添加行号，如附件。谢谢。

kqbt · 发表于 2009-12-14 17:09

文件 → 页面设置 → 行号

peihuatlb · 发表于 2009-12-16 11:17

Sub excample()
Application.ScreenUpdating = False
Dim i As Paragraph
Dim j As Integer
j = 10

For Each i In ActiveDocument.Paragraphs
i.Range.Characters(1).InsertBefore "N" + Trim(Str(j))
j = j + 10
Next

End Sub

zqhmw · 发表于 2009-12-18 09:17

是一定要是N0010 N0020,谢谢请帮帮我？

零叁零贰 · 发表于 2009-12-18 15:21

您的方法做不到附件那样啊，怎么处理啊

我爱myvba · 发表于 2009-12-18 15:24

把程序改一下，首先判断 j 是几位数，如果是两位，N后面就补两个0，如果是三位就补1个0，如果是四位就不补0。

peihuatlb · 发表于 2009-12-18 17:28

Sub excample()
Application.ScreenUpdating = False
Dim i As Paragraph
Dim j As Integer
j = 10

For Each i In ActiveDocument.Paragraphs

If j >= 10 And j < 100 Then

i.Range.Characters(1).InsertBefore "N" + "00" + Trim(Str(j))

Else

If j >= 100 And j < 1000 Then

i.Range.Characters(1).InsertBefore "N" + "0" + Trim(Str(j))
Else
If j >= 1000 Then

i.Range.Characters(1).InsertBefore "N" + Trim(Str(j))
End If
End If
End If

j = j + 10
Next

End Sub
运行这个就可以了，给我加分不？

wouimk · 发表于 2009-12-19 09:35

文件-页面设置-版式-行号

zqhmw · 发表于 2009-12-21 10:40

能说详细点如何做到添加行号，我试过，没弄好。谢谢

kqbt · 发表于 2009-12-22 00:37

其实可以直接在“编辑 → 替换”中使用 seq 域的数字格式开关 \# 000 来实现

Sub kqbt_ParNum()
Dim para As Paragraph
With Selection
.HomeKey wdStory
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SEQ A \# 000" ', PreserveFormatting:=True
End With
ActiveDocument.Fields(1).Cut
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="[!^13]{1,}", replacewith:="N^c0^&", _
MatchWildcards:=True, Replace:=wdReplaceAll
End With
ActiveDocument.Fields.Update
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

如何自动添加行号在每行的开头

我只能做到变成N10,N20......N10000一定要加N0010吗???

回复 2楼 kqbt 的帖子

最终答案

回复 8楼 wouimk 的帖子