WORD文档表格批量转文本

T-T-J

哪位大咖帮我用VBA把所有文档里的表格转文字，每个文件就像用“表格----布局----表格转文本”一样批量转

约定的童话

转换后啥样式？

T-T-J

只是把表格去掉，文本内容不变

T-T-J

只是用VBA批量把表格转为文本，其他文本样式不变

T-T-J

WORD文档样式不变，只是用VBA批量处理表格转文本

T-T-J

其他不变，只是用VBA批量处理表格转文本

daibao88

Sub test()
    Dim t As Table
    For Each t In ActiveDocument.Tables
        t.ConvertToText wdSeparateByTabs, True
    Next
End Sub

413191246se

楼主，请备份后应用下面的宏：

1. Sub LoopDir循环遍历文件夹_表格批量转文本()
   
2.     On Error Resume Next
   
3. 
   
4.     Dim objShell As Object
   
5.     Dim objFolder As Object
   
6.     Dim SearchPath As String
   
7. 
   
8.     Set objShell = CreateObject("Shell.Application")
   
9.     Set objFolder = objShell.BrowseForFolder(0, "请选择文件夹！", 0, 0)
   
10. 
    
11.     SearchPath = objFolder.self.Path & ""
    
12. 
    
13.     If MsgBox("请确认！是否处理文件夹 " & SearchPath & " ?", 4 + 16) = vbNo Then Exit Sub
    
14. 
    
15.     Set objShell = Nothing
    
16.     Set objFolder = Nothing
    
17. 
    
18.     Dim DicList As Object
    
19.     Dim FileList As Object
    
20.     Dim Key
    
21.     Dim NowDic As String
    
22.     Dim NowFile As String
    
23.     Dim i As Long
    
24.     Dim FileName, FilePath
    
25. 
    
26.     Set DicList = CreateObject("Scripting.Dictionary")
    
27.     Set FileList = CreateObject("Scripting.Dictionary")
    
28. 
    
29.     DicList.Add SearchPath, ""
    
30. 
    
31.     i = 0
    
32.     Do While i < DicList.Count
    
33.         Key = DicList.keys
    
34.         NowDic = Dir(Key(i), vbDirectory)
    
35.         Do While NowDic <> ""
    
36.             If (NowDic <> ".") And (NowDic <> "..") Then
    
37.                 If (GetAttr(Key(i) & NowDic) And vbDirectory) = vbDirectory Then DicList.Add Key(i) & NowDic & "", ""
    
38.             End If
    
39.             NowDic = Dir()
    
40.         Loop
    
41.         i = i + 1
    
42.     Loop
    
43. 
    
44.     For Each Key In DicList.keys
    
45.         NowFile = Dir(Key)
    
46.         Do While NowFile <> ""
    
47.             FileList.Add NowFile, Key
    
48.             NowFile = Dir()
    
49.         Loop
    
50.     Next
    
51. 
    
52.     Dim doc As Document
    
53.     Dim x&
    
54.     Dim t As Table
    
55.     i = 0
    
56.     FileName = FileList.keys
    
57.     FilePath = FileList.Items
    
58.     Do While i < FileList.Count
    
59.         If FilePath(i) & FileName(i) Like "*.doc*" Then
    
60.             Set doc = Documents.Open(FileName:=FilePath(i) & FileName(i), Visible:=False)
    
61.             For Each t In doc.Tables
    
62.                 With t.Range.Rows
    
63.                     .WrapAroundText = False
    
64.                     .ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
    
65.                 End With
    
66.             Next
    
67.             doc.Close SaveChanges:=wdSaveChanges
    
68.             x = x + 1
    
69.         End If
    
70.         i = i + 1
    
71.     Loop
    
72. 
    
73.     Set DicList = Nothing
    
74.     Set FileList = Nothing
    
75. 
    
76.     MsgBox "文件夹包含 " & i & " 个文件！" & vbCr & "共处理 Word 文档(*.docx/*.doc) " & x & " 个！", 0 + 48
    
77. End Sub

复制代码

beckoe

学习了，学习了

T-T-J

8楼，请问我在转的时候，明明有许多文件，为什么是0个文件呢