VBA 代碼解析：Word 文檔自動建立索引與頁碼設置

代碼功能概覽

該 VBA 宏執行以下操作：

1. 頁面設置：邊距、紙張大小、頁碼、頁眉頁腳等。
2. 讀取關鍵字文件：從 C:\Users\shuqi\Desktop\新建文本文檔.txt 逐行讀取關鍵字。
3. 查找並標記索引項：在文檔中查找每個關鍵字，插入索引域（XE 域）。
4. 生成索引：在文檔末尾插入索引表。

關鍵代碼段解析

1. 頁面設置

With ActiveDocument.PageSetup
    .TopMargin = InchesToPoints(0.8)
    .Orientation = wdOrientPortrait
    ' ... 其他屬性
End With

2. 添加頁碼

Selection.Sections(1).Headers(1).PageNumbers.Add _
    PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=True

3. 讀取文件並查找

Open "C:\...\新建文本文檔.txt" For Input As #1
Do While Not EOF(1)
    Input #1, Keyword
    With myRange.Find
        .Text = Keyword
        .MatchWholeWord = True
    End With
    While myRange.Find.Execute
        ' 插入索引項
        myRange.Collapse wdCollapseEnd
        Set myIndexEntry = myRange.Fields.Add(myRange, wdFieldIndexEntry, _
            Chr(34) & Keyword & Chr(34))
        ' 移動查找範圍
    Wend
Loop
Close #1

4. 生成索引

ActiveDocument.Indexes.Add Range:=myRange, _
    Type:=wdIndexIndent, NumberOfColumns:=1

潛在問題與建議

• 硬編碼文件路徑，建議改為 Application.GetOpenFilename 讓用戶選擇。
• On Error Resume Next 缺失，文件不存在會報錯。
• 大文檔中頻繁 Find.Execute 性能較差，可考慮 Range.Find 批量處理。
• 索引生成前建議清理舊索引：ActiveDocument.Indexes(1).Delete。