[發問] 利用迴圈新增書籤的名稱

ciboybj

大家好
我的文件中內容大致如下
1. UUUUUUU
2.OOOOOOO
3.DFFFFFFF
4.FFFFFFF
5.DFFFFF

我想要如何利用迴圈新增書籤的名稱
以下為我的代碼

1. Sub ii()
   
2. Dim orng As Range
   
3. Dim i, j As Integer
   
4. Dim a, b As String
   
5. Selection.HomeKey Unit:=wdStory
   
6. For i = 1 To 10
   
7. a = i & "起"
   
8. b = i & "終"
   
9. Selection.Find.Execute FindText:=i & ".", Forward:=True, Wrap:=wdFindStop
   
10. Selection.MoveRight Unit:=wdCharacter, Count:=2
    
11. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=a
    
12. Selection.Find.Execute FindText:="2.", Forward:=True, Wrap:=wdFindStop
    
13. Selection.MoveLeft Unit:=wdCharacter, Count:=2
    
14. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=b
    
15. Set orng = ActiveDocument.Range
    
16. orng.Start = orng.Bookmarks(a).Range.End
    
17. orng.End = orng.Bookmarks(b).Range.Start
    
18. orng.Select
    
19. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="num" & i
    
20. ActiveDocument.Bookmarks(a).Delete
    
21. ActiveDocument.Bookmarks(b).Delete
    
22. Next
    
23. End Sub

複製代碼

執行後會出現以下錯誤

下載 (23.37 KB)

2014-7-30 22:18

感覺上是名稱無法利用動態的方式進行定義


不知大家是否知道要如何解決此問題


謝謝~

ciboybj

哈哈
我自己找到答案了
原來是書籤的名稱 第一個字不可用數字來命名