主要代码 stringls_filename,ls_path integerli_value oleobjectole_word longll_cnt ole_word=createoleobject li_value=ole_word.connecttonewobject("word.application") ifli_value0then messagebox("info","连接word失败,请检查") return-1 endif ifGetFileOpenName("选择文件",ls_filename,ls_path,