助怎样利用excel宏提取word中指定的数据

Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = ＂文件实际路径\*.doc＂ '请修改实际储存路径！Set App = CreateObject(＂Word.Application＂) '用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath) ' 获得第一个WORD文档do while MyFile ＂＂ ' 遍历Mypath下面的所有WORD文档 App.Visible = True Set WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件！ for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签 Str = BM.Range ' 读取书签内容 next BM WrdDoc.Close ' 关闭文件 MyFile = Dir ' 下一个WORD文档LoopSet App = NothingEnd Sub...

如何用VBA提取word中的指定文本到excel

Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = ＂文件实际路径\*.doc＂ '请修改实际储存路径！Set App = CreateObject(＂Word.Application＂) '用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath) ' 获得第一个WORD文档do while MyFile ＂＂ ' 遍历Mypath下面的所有WORD文档App.Visible = TrueSet WrdDoc = App.Documents.Open(MyFile) '打开这个Word文件！for each BM in WrdDoc.Bookmarks ' 遍历文档中的所有书签Str = BM.Range ' 读取书签内容next BMWrdDoc.Close ' 关闭文件MyFile = Dir ' 下一个WORD文档LoopSet App = NothingEnd Sub

如何提取WORD表格中的指定单元格内容到EXCEL中？

坐标值都只有两位数可用下面公式提取=MID(A1,FIND(＂X:＂,A1)+2,2)=MID(A1,FIND(＂Y:＂,A1)+2,2）坐标值有多位数位数可用下面公式提取=LEFT(MID(A1,FIND(＂X＂,A1)+2,99),FIND(＂,＂,MID(A1,FIND(＂X＂,A1)+2,99))-1)=LEFT(MID(A1,FIND(＂Y＂,A1)+2,99),FIND(＂,＂,MID(A1,FIND(＂Y＂,A1)+2,99))-1)...

转载请注明出处51数据库 » excel怎么提取word 文件指定业的