How does VBA read the directory information automatically generated by a WORD document?

You can get the directory, so for each paragraph object, you can access it. Collection, for the first hyperlink object, you can execute its follow method, so that you can jump to the corresponding section, and then read the content of the document on this basis. I don't know what you mean by "corresponding content", but I guess you'll have to do some iteration and judgment.

Hello I want to ask.,The directory you got through that interface.,Thank you.,I haven't found it for a long time.。

How can it be so complicated, just copy and paste the ** in word directly into excel.

Yes, it would be better if the format in your word was also uniform, and you can look at your document specifically.

Important: VBA opens the Word file and matches it with Find or a regular expression.

sub test()

dim f, n, x, wb, fname

on error resume next

Open the file (you can select more than one).

f = "word file, *docm,", 1, "Select the file", multiselect:=true)

Iterate through each selected file.

for x = 1 to ubound(f)

sfile = f(x)

Take the file name and assign a value to the cell.

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

fname = right(sfile, n)

cells(x, 1) = left(fname, instr(fname, " ") -1) 'Take the character before the space from 1.

cells(x, 1) = left(fname, 9) 'Take the first 9 characters of the file name.

cells(x, 2) = mid(fname, instr(fname, " ") +1, len(fname) -instr(fname, ".") +1) 'Take the characters after the space and before the point.

cells(x, 2) = mid(fname, 10, len(fname) -instr(fname, ".") +1) 'Fetch the characters before the dot starting from 10.

next x

end sub