標題:
[發問]
利用迴圈新增書籤的名稱
[打印本頁]
作者:
ciboybj
時間:
2014-7-30 22:19
標題:
利用迴圈新增書籤的名稱
大家好
我的文件中內容大致如下
1. UUUUUUU
2.OOOOOOO
3.DFFFFFFF
4.FFFFFFF
5.DFFFFF
我想要如何利用迴圈新增書籤的名稱
以下為我的代碼
Sub ii()
Dim orng As Range
Dim i, j As Integer
Dim a, b As String
Selection.HomeKey Unit:=wdStory
For i = 1 To 10
a = i & "起"
b = i & "終"
Selection.Find.Execute FindText:=i & ".", Forward:=True, Wrap:=wdFindStop
Selection.MoveRight Unit:=wdCharacter, Count:=2
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=a
Selection.Find.Execute FindText:="2.", Forward:=True, Wrap:=wdFindStop
Selection.MoveLeft Unit:=wdCharacter, Count:=2
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=b
Set orng = ActiveDocument.Range
orng.Start = orng.Bookmarks(a).Range.End
orng.End = orng.Bookmarks(b).Range.Start
orng.Select
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="num" & i
ActiveDocument.Bookmarks(a).Delete
ActiveDocument.Bookmarks(b).Delete
Next
End Sub
複製代碼
執行後會出現以下錯誤
[attach]18799[/attach]
感覺上是名稱無法利用動態的方式進行定義
不知大家是否知道要如何解決此問題
謝謝~
作者:
ciboybj
時間:
2014-7-30 23:15
哈哈
我自己找到答案了
原來是書籤的名稱 第一個字不可用數字來命名
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)