////////////////
最后一排 的 f 总是下标越界，不知道问题出在那里
//word//////
Dim LazyWord
Dim path
Dim Index
///////////
///word 标记/////////
path = "D:\MHD\PTB\ " & c & " .docx"
Set LazyWord = CreateObject("Lazy.LxjWord")
Index = LazyWord.WordOpen(path, 0)
//////////////
i=0
///
Rem 全部开始
Delay 200
a = Lib.文件.读取指定行文本内容("D:\MHD\PTB\参数\地址.txt", 2)
b = Split(a, "/")
c = b(i)
/////
Delay 200
IsFile = Plugin.File.IsFileExist("D:\MHD\PTB\" & c & ".docx")
If IsFile = True Then
Delay 200
Goto 登记开始
Else
Delay 200
i = i + 1
goto 全部开始
End If
///////////
Rem 登记开始
d = LazyWord.WordTableRead(1, 1, 1, Index)
e = Split(d, "/")
f = e(0)