向vba高手求助:如何用vba去除word文档表格,只保留文本?
发布网友
发布时间：2022-04-24 09:36
共1个回答
热心网友
时间：2022-06-18 13:25
Sub A()
Dim str1 As String
For j = 1 To 3 Step 2
For i = 1 To 6
str1 = str1 & Replace(Tables(1).Cell(j, i).Range.Text, Chr(13), ".") & Replace(Tables(1).Cell(j + 1, i).Range.Text, Chr(13), " ")
Next i
Next j
ActiveDocument.Content.InsertAfter Text:=str1
End Sub
粘贴代码试试！
