WORD同时选择表格和含数字段落的方法

hzj2014

要在word文件中一次性选择所有包含数字的段落，以及所有的表格，我要同时选择它们复制到一个空白文档中。我搜索了论坛内容，都找不到什么解决的办法呢。
注意，有些段落的开头有用数字作为编号，这种情况就要排除掉，
比如
(1)
(2)
(3)
如
1、
2、
3、
这些就不一定都能选择了，我只要选在正文中有数字的段落。
目前能找到的方法，只有单独选择所有表格这种方法，而且就算按这种方法复制到新文档中，也只有单纯的文字内容，而没有整张表格，这个没有用。
另外还有单纯选择所有包含数字的段落的方法，用通配符来查找整个文档，[!^11^13]@[0-9]*^13
但运行时WORD一直都没反应，难道是通配符太复杂吗，所以这个也没用啊。
要同时选表格和含数字段落，有什么好方法，好难啊，求帮助。

413191246se

一楼主未提到会不会使用宏（这个问题，每个提问者都不说，都得需要我问，需要我说多少遍？），二是可以反向来处理，把不含数字的段落（不包括表格）删除，只须把原文件复制一份即可。

hzj2014

不好意思，我会使用宏。

还有单独选择所有表格的我试的是下面的方法，能选择所有表格内容
但是将选择好的内容再复制到新建的空白文档时，得到的结果只有单纯的文字内容，而不是表格，这个怎么解决呢

Sub 选中所有表格()
    Dim T As Table
    Application.ScreenUpdating = False
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each T In ActiveDocument.Tables
        T.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
End Sub

hzj2014

“二是可以反向来处理，把不含数字的段落（不包括表格）删除，只须把原文件复制一份即可。”

但是怎样选择才能不包括表格啊，用通配符查找可以吗，如果不行，那有什么VBA代码能用的，再次求助，谢谢

413191246se

楼主，试试如下代码：（先创建副本，然后将副本中的非数字、非表格段落删除，有自动编号、列表的段落也删除）
Sub test()
    ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) & "_副本" & ".doc"
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range.ListFormat.ListType <> 0 Then i.Range.Delete
        If i.Range.Information(wdWithInTable) = False And Not (i.Range Like "*#*") Then i.Range.Delete
    Next
End Sub

hzj2014

楼上，我试了你的代码，但运行不了，有提示窗口 “无法编辑Range”

loquat

可以选中，没问题，但是表格好像复制不出来

1. Sub 选中内容()
   
2. Application.ScreenUpdating = False
   
3. Dim oDoc As Document, oReg As New RegExp
   
4. Dim oTable As Table, oPara As Paragraph
   
5. Set oDoc = ActiveDocument
   
6. oDoc.DeleteAllEditableRanges wdEditorEveryone
   
7. For Each oTable In ActiveDocument.Tables
   
8.     oTable.Range.Editors.Add wdEditorEveryone
   
9. Next
   
10. For Each oPara In oDoc.Paragraphs
    
11.     If Not (oPara.Range.Information(wdWithInTable)) Then
    
12.         oReg.Pattern = "[^0-9]"
    
13.         oReg.Global = True
    
14.         If oReg.Replace(oPara.Range.Text, "") <> "" Then
    
15.             oPara.Range.Editors.Add wdEditorEveryone
    
16.         End If
    
17.     End If
    
18. Next
    
19. oDoc.SelectAllEditableRanges wdEditorEveryone
    
20. oDoc.DeleteAllEditableRanges wdEditorEveryone
    
21. Application.ScreenUpdating = True
    
22. End Sub

复制代码

所以干脆反向操作吧，5#代码即可。

loquat

楼主需要再运行一遍：ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
再运行5#的代码

hzj2014

楼上我试了，还是提示 “无法编辑Range”呢

hzj2014

我先按你说的需要再运行一遍：ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
修改成
Sub test()
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

    ActiveDocument.SaveAs FileName:=ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) & "_副本" & ".doc"
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range.ListFormat.ListType <> 0 Then i.Range.Delete
        If i.Range.Information(wdWithInTable) = False And Not (i.Range Like "*#*") Then i.Range.Delete
    Next
End Sub
还是提示“无法编辑Range”

又干脆删除另存为副本的功能
Sub test()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range.ListFormat.ListType <> 0 Then i.Range.Delete
        If i.Range.Information(wdWithInTable) = False And Not (i.Range Like "*#*") Then i.Range.Delete
    Next
End Sub
也还是提示“无法编辑Range”



还有我也试了你的Sub 选中内容()
但运行到代码oReg As New RegExp时，会提示“用户定义类型未定义”


怎么回事呢