如何利用excel vba提取word中表格的部分内容,复制粘贴到excel
试试下面的代码:Sub 宏1()Dim wordapp As ObjectDim mydocDim mypath$, myname$Dim wdRng As ObjectDim pos1%, pos2% '定义找到的字段的首位位置Application.DisplayAlerts = FalseSet wordapp = CreateObject("word.application")mypath = ThisWorkbook.Path & ""myname = Dir(mypath & "*.doc*")Set mydoc = wordapp.Documents.Open(mypath & myname)Set wdRng = mydoc.RangewdRng.Find.Execute ("(一)")pos1 = wdRng.StartSet wdRng = mydoc.RangewdRng.Find.Execute ("五、")pos2 = wdRng.Startmydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容mydoc.Close Falsewordapp.QuitWorksheets("Sheet2").SelectRange("A1").SelectActiveSheet.PasteApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
如何用VBA提取word中的指定文本到excel
假如有规律的话可用数组,相对简单一点,要不用INSTR查找,嗯,就烦了第一,提取 :之前的字符DIM s,arrs="War_ID : SM3766R12-CA88770.9-23"arr=split(s,":")msgbox arr(0)得到的是:分号前的字符串,第二个 问题Sub aaa()Dim s, arrs = "War_ID : SM3766R12-CA88770.9-23"arr = Split(s, ":")s = arr(1)Set arr = Nothingarr = Split(s, "-")MsgBox arr(0)End Sub
(VBA)怎么提取Word中指定级 标题中正文内容?
展开全部 Sub test() Dim fso, fp, arr, wd, f, n%, fname$ Set fso = CreateObject("scripting.filesystemobject") Set fp = fso.getfolder(ThisWorkbook.Path) ReDim arr(1 To fp.Files.Count, 1 To 2) arr(1, 1) = "文件号": arr(1, 2) = "标题" Set wd = CreateObject("word.application") n = 1 For Each f In fp.Files If Right(f, 3) = "doc" Or Right(f, 4) = "docx" Then n = n + 1: arr(n, 1) = fso.getbasename(f) fname = fso.getfilename(f) With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True) wd.Visible = True arr(n, 2) = .Paragraphs(2).Range .Close End With End If Next wd.Quit Sheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub现在有一个文件夹下有N个Word文件,要将他们的文件名和文档内的第二段提取到Excel表格,如何通过VBA实现...
如何用vba提取word单元格指定部分字段
展开全部 假如有规律的话可用数组,相对简单一点,要不用INSTR查找,嗯,就烦了第一,提取 :之前的字符DIM s,arrs="War_ID : SM3766R12-CA88770.9-23"arr=split(s,":")msgbox arr(0)得到的是:分号前的字符串,第二个 问题Sub aaa()Dim s, arrs = "War_ID : SM3766R12-CA88770.9-23"arr = Split(s, ":")s = arr(1)Set arr = Nothingarr = Split(s, "-")MsgBox arr(0)End Sub...