1变16,2变17,3变18……以此类推，如何写代码？

zzpsx

1变16,2变17,3变18……以此类推，如何写word代码？.zip (7.25 KB, 下载次数: 6)

2018-4-3 06:41 上传

点击文件名下载附件

1变16,2变17,3变18……以此类推，如何写word代码？

kuangben8

少量的数据直接手动修改更快些吧

leikaiyi123

for i=1 to 100
      k=ⅰ+ 15
      '……
next i

zhanglei1371

替换为seq 域，连vba代码都不用写

413191246se

1. Sub 下划线数字()
   
2. '循环查找下划线数字
   
3.     Dim r As Range
   
4.     With Selection
   
5.         .HomeKey unit:=wdStory
   
6.         With .Find
   
7.             .ClearFormatting
   
8.             .Font.Underline = wdUnderlineSingle
   
9.             Do While .Execute("", , , 1, , , 1)
   
10.                 Set r = Selection.Range
    
11.                 Do While Selection Like "[!0-9]*"
    
12.                     .Parent.MoveStart unit:=wdCharacter, Count:=1
    
13.                 Loop
    
14.                 Do While Selection Like "*[!0-9]*"
    
15.                     .Parent.MoveEnd unit:=wdCharacter, Count:=-1
    
16.                 Loop
    
17.                 Selection.Text = Selection.Text + 15
    
18.                 r.Select
    
19.                 Selection.Collapse 0
    
20.             Loop
    
21.         End With
    
22.     End With
    
23. End Sub
    
24. Sub 表格数字()
    
25. '循环遍历单元格（第一列）
    
26.     Dim t As Table, c As Cell, i&
    
27.     For Each c In ActiveDocument.Tables(1).Columns(1).Cells
    
28.         c.Range.Text = "(   )" & 3 + i & "."
    
29.         i = i + 1
    
30.     Next
    
31. End Sub

复制代码

413191246se

楼主，上面代码错误！请试用下面的代码：

1. Sub 下划线加数()
   
2.     Dim r As Range
   
3.     With Selection
   
4.         .HomeKey unit:=wdStory
   
5.         With .Find
   
6.             .ClearFormatting
   
7.             .Font.Underline = wdUnderlineSingle
   
8.             Do While .Execute("", , , 1, , , 1)
   
9.                 Set r = Selection.Range
   
10.                 Do While Selection Like "[!0-9]*"
    
11.                     .Parent.MoveStart unit:=wdCharacter, Count:=1
    
12.                 Loop
    
13.                 Do While Selection Like "*[!0-9]*"
    
14.                     .Parent.MoveEnd unit:=wdCharacter, Count:=-1
    
15.                 Loop
    
16.                 Selection.Text = Selection.Text + 15
    
17.                 r.Select
    
18.                 Selection.Collapse 0
    
19.             Loop
    
20.         End With
    
21.     End With
    
22. '***********************
    
23.     Dim c As Cell, i&
    
24.     For Each c In ActiveDocument.Tables(1).Columns(1).Cells
    
25.         i = i + 1
    
26.         c.Range.Text = "(   )" & i + 15 & "."
    
27.     Next
    
28. End Sub

复制代码

tangqingfu

413191246se 发表于 2018-4-3 23:19
楼主，上面代码错误！请试用下面的代码：

感谢413191246se兄分享