[求助]如何进行批量索引？

no-sir

 我想对文档里所有引用的书目进行索引，请问应该如何进行。每个书目都有“《》”标识，是否能像查找一样把这些书目提取出来索引呢？

多谢。

附件所传的文档第一段我已经手工标注了几个书目的索引，但同个文档还有许多书目，所以求一个快捷办法把后面带书名号的都批量标注好。

UoRjp9gc.rar (6.24 KB, 下载次数: 48)

2007-1-25 22:26 上传

点击文件名下载附件
[求助]如何进行批量索引？

[此贴子已经被作者于2007-1-25 22:31:10编辑过]

c81

为了更好的解决问题，请上传文档或其片断。

no-sir

附件已上传，谢谢！

c81

c81

大致步骤（书名太多，中间有些环节我省了没做了）：

1.先查找书名，突出显示后，Ctrl+C复制。

2.Ctrl+V粘贴到一个新建的空白文档并命名保存，然后如图2,3,4那样处理，保存。

3.打开你那文档，插入→引用→索引和目录→索引→自动标记，找到上述保存的文档。

4.将光标放到最上面，插入→引用→索引和目录→索引→（中间的选项自己设置）→确定   就行了

no-sir

多谢！帮了大忙了。

no-sir

c81大侠的方法基本解决问题，但有一个小问题，因为在索引文档中把书名号都去掉，这样可能把一些不是书目的词也加入索引，如《庄子》是书，但如果以“庄子”做索引，则索引中可能含有人名的“庄子”。我试着把索引文档中的书名号加上，但好像word不认。不知是否有解决办法？多谢！

c81

本人还有一个土法子：

原理就是将索引用另外一种文档来做，做好后，将其转换成静态文本即用Ctrl+Shift+F9进行转换，然后再粘贴到原文档中去。

“另外一种文档”是怎么做的呢，可以将上面我说的那种查找法突出显示后，给上某个格式如红色，剩下所有字全都替换为同一个不敏感的字眼，注意不要人为增加或减小字眼，以免破坏排版、与原版不同。

sylun

参照老大关于进行批量转脚注的VBA代码改了一个标记索引项的代码，测试过可以标记，但标记在书名的前面而不是后面，不知如何修改，也不懂怎样写插入索引的代码。

Sub Example()
    Dim myRange As Range, NtRange As Range, strNT As String
    Application.ScreenUpdating = False
    Set myRange = ActiveDocument.Content
NF:    With myRange.Find
        .ClearFormatting
        .Text = "《*》"
        .MatchWildcards = True
        Do While .Execute = True
            Set NtRange = ActiveDocument.Range(myRange.Start, myRange.Start)
            strNT = myRange.Text
            ActiveDocument.Fields.Add Range:=NtRange, Type:=wdFieldEmpty, _
                Text:="xe " & Chr(34) & strNT & Chr(34), _
                PreserveFormatting:=False
            myRange.SetRange myRange.End, ActiveDocument.Content.End - 1
            GoTo NF
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

另，想请教C版主的索引项中的拼音首字母是用什么方法加上去的。

[此贴子已经被作者于2007-1-29 23:58:53编辑过]

守柔

QUOTE:

以下是引用sylun在2007-1-29 23:28:43的发言：

参照老大关于进行批量转脚注的VBA代码改了一个标记索引项的代码，测试过可以标记，但标记在书名的前面而不是后面，不知如何修改，也不懂怎样写插入索引的代码。

Sub Example()
    Dim myRange As Range, NtRange As Range, strNT As String
    Application.ScreenUpdating = False
    Set myRange = ActiveDocument.Content
NF:    With myRange.Find
        .ClearFormatting
        .Text = "《*》"
        .MatchWildcards = True
        Do While .Execute = True
            Set NtRange = ActiveDocument.Range(myRange.Start, myRange.Start)
            strNT = myRange.Text
            ActiveDocument.Fields.Add Range:=NtRange, Type:=wdFieldEmpty, _
                Text:="xe " & Chr(34) & strNT & Chr(34), _
                PreserveFormatting:=False
            myRange.SetRange myRange.End, ActiveDocument.Content.End - 1
            GoTo NF
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

另，想请教C版主的索引项中的拼音首字母是用什么方法加上去的。

呵呵，sylun兄，我做了一个示范吧，你看一下，也供楼主直接应用：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-1-30 6:13:37
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0148^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim myRange As Range, myString As String, myField As Field, lngField As Integer
    Application.ScreenUpdating = False
    Set myRange = ActiveDocument.Content
NF:     With myRange.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "《*》"
        Do While .Execute
            myString = myRange.Text
            myRange.SetRange myRange.End, myRange.End
            Set myField = ActiveDocument.Indexes.MarkEntry(Range:=myRange, Entry:=myString, EntryAutoText:=myString)
            lngField = Len(myField.Code.Text) + 2
            myRange.SetRange myRange.End + lngField, ActiveDocument.Content.End - 1
            GoTo NF
        Loop
    End With
    Application.ScreenUpdating = True
End Sub
'----------------------