- 帖子
- 47
- 主題
- 19
- 精華
- 0
- 積分
- 82
- 點名
- 0
- 作業系統
- win
- 軟體版本
- xp
- 閱讀權限
- 20
- 註冊時間
- 2014-7-4
- 最後登錄
- 2021-9-4
|
大家好
我的文件中內容大致如下
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
感覺上是名稱無法利用動態的方式進行定義
不知大家是否知道要如何解決此問題
謝謝~ |
|
發表於 2014-7-30 22:19
| 
