VBA如何讀取WORD文件自動生成的目錄資訊？

您可以獲取該目錄，因此對於每個段落物件，您可以訪問它。 集合中，對於第乙個超連結物件，可以執行其follow方法，這樣就可以跳轉到對應的部分，然後在此基礎上讀取文件的內容。 我不知道你說的“相應內容”是什麼意思，但我想你必須做一些迭代和判斷。

你好我想問一下，你通過那個介面得到的目錄，謝謝，好久沒找到。

怎麼會這麼複雜，直接將word中的**複製貼上到excel中即可。

是的，如果你的單詞中的格式也是統一的，那就更好了，你可以專門檢視你的文件。

重要提示：VBA 將開啟 Word 檔案，並將其與“查詢”或正規表示式匹配。

sub test()

dim f, n, x, wb, fname

on error resume next

開啟檔案（您可以選擇多個檔案）。

f = "word檔案， *docm,", 1, "選擇檔案", multiselect:=true)

迴圈訪問每個選定的檔案。

for x = 1 to ubound(f)

sfile = f(x)

獲取檔名並為單元格分配乙個值。

n = len(sfile) -instrrev(sfile, "\")

fname = right(sfile, n)

cells(x, 1) = left(fname, instr(fname, " ") -1) '取 1 中空格前的字元。

cells(x, 1) = left(fname, 9) '取檔名的前 9 個字元。

cells(x, 2) = mid(fname, instr(fname, " ") +1, len(fname) -instr(fname, ".") +1) '在空格之後和點之前取字元。

cells(x, 2) = mid(fname, 10, len(fname) -instr(fname, ".") +1) '從 10 開始獲取點前的字元。

next x

end sub