恳请高手赐教,万分感谢!!!
学习网上写的几句代码,下面不知如何写,请高手赐教!万分感谢!!!
word file=GETFILE(’word文档:doc’,’试卷’,’选择’,0,’请选择政治试卷’)
wap=CreateObject(“word.application”)
wdocument=wap.documents.open(wordfile)
Myrange=Wdocument. Range
Myrange. Find.ClearFormatting
Myrange.Find.MatchWildcards=.T.
Myrange.Find.Execute[^13^l^m][答案][^13^l^m]
IF Myrange.Find. Found
&&如果查找到了
DA_B=Myrange. Start
&&记录答案分界符的开始位置
ENDIF