请教：如何用VBA在WORD各索引行最后加字符，谢谢！

qx-liuwx

如题、详见附件，有劳高手！
WORD中各页已有多个索引标题。谢谢！

ming0018

1. Sub addIndex()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4.     Dim Bm As BookMark
   
5.     For Each Bm In doc.Bookmarks
   
6.         Bm.Range.Characters.Last.InsertAfter "索引"
   
7.     Next
   
8. End Sub

复制代码

daibao88

Sub test()
    Dim ph As Paragraph
    For Each ph In ActiveDocument.Paragraphs
        If ph.OutlineLevel = wdOutlineLevel1 Then
            ph.Range.Text = VBA.Replace(ph.Range.Text, Chr(13), "") & "索引" & Chr(13)
        End If
    Next
End Sub

Sub test()
    Dim ph As Paragraph, rg As Range
    For Each ph In ActiveDocument.Paragraphs
        If ph.OutlineLevel = wdOutlineLevel1 Then
            Set rg = ActiveDocument.Range(ph.Range.End - 1, ph.Range.End - 1)
            rg.Text = "索引"
        End If
    Next
End Sub

liuhoubin168

确定有索引？ 还是索引标题？

qx-liuwx

谢谢各大侠

duquancai

qx-liuwx 发表于 2018-6-15 12:56
谢谢各大侠

前面大神不是写代码解决了吗？还有什么不满意的？

ming0018

我的代码效率在于有bookmark。如果没有书签的话，可以参考三楼的代码。

duquancai

qx-liuwx 发表于 2018-6-15 12:56
谢谢各大侠

Sub main()
   代码删除！
End Sub

qx-liuwx

ming0018 发表于 2018-6-15 13:58
我的代码效率在于有bookmark。如果没有书签的话，可以参考三楼的代码。

谢谢，原来这个叫"书签"。我还以为是索引，学习了。

再次劳烦大侠：
如果要在各索引行的开头字母前加一个"头"字要怎样完成，谢谢！
我参照Bm.Range.Characters.Last.InsertAfter "索引"来修改、不成功：
Last不知用何单词替换？谢谢！

daibao88

自己不会，问题还不一次说完，失陪了！