word中如何依次选中含特定字符的表格，并一个一个地把表格转化为文本形式。

oersun · 发表于 2017-11-24 00:51

本帖最后由 oersun 于 2017-11-24 01:06 编辑

word中含有若干个表格，想依次把含有"公司"或"企业"字符的表格转化为非表格形式,请大神帮编个宏！！！

duquancai · 发表于 2017-11-24 10:48

提供原始附件，要达到的结果是怎样的，用附件模拟。

oersun · 发表于 2017-11-24 12:40

本帖最后由 oersun 于 2017-11-24 13:30 编辑

操作视频如下面附件所示

duquancai · 发表于 2017-11-24 18:37

oersun 发表于 2017-11-24 12:40
操作视频如下面附件所示

要提供原始Word文档，难道要别人帮你做word文档进行测试？烦死人！！！

oersun · 发表于 2017-11-24 22:12

本帖最后由 oersun 于 2017-11-24 22:14 编辑

，不好意意哦，向二楼道歉，
文档如附件所示

duquancai · 发表于 2017-11-24 22:22

oersun 发表于 2017-11-24 22:12
，不好意意哦，向二楼道歉，
文档如附件所示

Sub shishi()
Dim tb As Table, d As Document, sr$
Set d = ActiveDocument
If d.Tables.Count < 1 Then Exit Sub
For i = d.Tables.Count To 1 Step -1
      sr = d.Tables(i).Range.Text
      If (InStr(sr, "公司") + InStr(sr, "企业")) > 0 Then
         d.Tables(i).ConvertToText Separator:=wdSeparateByTabs, NestedTables:=True
      End If
Next
End Sub

oersun · 发表于 2017-11-24 23:20

谢谢，成了，我很激动呀，如果方便的话，给您发红包吧，我太激动了

飞驰的椒麻鸡 · 发表于 2019-5-9 00:01

踩一脚，有用

		自动登录	找回密码
密码			免费注册