彰化一整天的論壇

 找回密碼
 立即註冊
查看: 680|回復: 2

利用迴圈新增書籤的名稱

[複製鏈接]
發表於 2014-7-30 22:12:18 | 顯示全部樓層 |閱讀模式
本帖最後由 ciboybj 於 2014-7-30 23:59 編輯

您好我的文件中內容大致如下
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:=i+1 & ".", 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
複製代碼
執行後會出現以下錯誤
DDD.png
好像是名稱無法用動態的方式定義
再請您幫忙看看

謝謝您



回復

使用道具 舉報

 樓主| 發表於 2014-7-30 23:14:38 | 顯示全部樓層
哈哈
我自己找到答案了
原來是書籤的名稱 第一個字不可用數字來命名
回復 支持 反對

使用道具 舉報

發表於 2014-7-30 23:31:03 | 顯示全部樓層
ciboybj 發表於 2014-7-30 23:14
哈哈
我自己找到答案了
原來是書籤的名稱 第一個字不可用數字來命名

謝謝您的告知,讓我多學了一招.
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2018-12-12 20:53 , Processed in 0.152847 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表