求帮忙，vba操作word我发运行，求解！

lichengwulee

    小菜当前做了个vba ,由于功夫不深，弄不清遇到的问题，还请各路高手指点。主要问题是

1：vba中删除文字时报错。
2：用for each 报错。
3：删除表格上的一行文字无效。
     详见附件，我现在是一头雾水啊。

lichengwulee

    '自己贴一下，详见附件。
'''''''''''''''''''''''''''''''''''下面做替换!不成功
    Set re_in = CreateObject("VBscript.regexp")
    With CreateObject("VBscript.regexp")
        .Global = True:
        .IgnoreCase = True
        .MultiLine = True
        
        .Pattern = "共和"
        
        For Each IP In ActiveDocument.Paragraphs ''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
            '            Set Mat = .Execute(IP.Range.Text)
            For Each mt In .Execute(wrdDoc.Content.Text) '.Execute(IP.Range.Text)
                '                                    K = K + 1
                MM = mt.FirstIndex: NN = mt.Length
                Set oRang = ActiveDocument.Range(IP.Range.Start + MM, IP.Range.Start + MM + NN)
                oRang.Text = "" '替换成空格,即删除
            Next
        Next
        
    End With
   
    '''''''''''''''''''''''''''''''''''下面做删除!不成功
    Do While APPWD.Selection.Find.Execute(FindText:="共和", Forward:=True)  'And u < 3 '如果找到数据为0的设备对应的主导文本的内容,这句有问题!!!,下标超限后,就会不断删除,形成死循环!
        
        
        APPWD.Selection.Parent.Expand 3 'wdSentence''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        APPWD.Selection.Bookmarks ("\line") ''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        APPWD.Selection.Parent.Range.Delete
        APPWD.Selection.HomeKey Unit:=6
    Loop
    '''''''''''''''''''''''''''''''''''下面做删除!不成功
    Dim oRng As Range
    With wrdDoc.Tables(1)
        pp = .Rows.Count
        BB = .Range.Start - 2
        cc = .Range.End 'Selection.Range.Text
        
        Dim r As Range
        .Range.Previous(4, 1).Select '一个段落
        
        Selection.Delete ''删除无效!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        
    End With    '

lichengwulee

    ''''''''''''''''''''''''''''''''''''下面做替换!不成功     Set re_in = CreateObject("VBscript.regexp")     With CreateObject("VBscript.regexp")         .Global = True:         .IgnoreCase = True         .MultiLine = True                  .Pattern = "共和"                  For Each IP In ActiveDocument.Paragraphs ''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!             '            Set Mat = .Execute(IP.Range.Text)             For Each mt In .Execute(wrdDoc.Content.Text) '.Execute(IP.Range.Text)                 '                                    K = K + 1                 MM = mt.FirstIndex: NN = mt.Length                 Set oRang = ActiveDocument.Range(IP.Range.Start + MM, IP.Range.Start + MM + NN)                 oRang.Text = "" '替换成空格,即删除             Next         Next              End With          '''''''''''''''''''''''''''''''''''下面做删除!不成功     Do While APPWD.Selection.Find.Execute(FindText:="共和", Forward:=True)  'And u < 3 '如果找到数据为0的设备对应的主导文本的内容,这句有问题!!!,下标超限后,就会不断删除,形成死循环!                           APPWD.Selection.Parent.Expand 3 'wdSentence''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!         APPWD.Selection.Bookmarks ("\line") ''无法运行!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!         APPWD.Selection.Parent.Range.Delete         APPWD.Selection.HomeKey Unit:=6     Loop     '''''''''''''''''''''''''''''''''''下面做删除!不成功     Dim oRng As Range     With wrdDoc.Tables(1)         pp = .Rows.Count         BB = .Range.Start - 2         cc = .Range.End 'Selection.Range.Text                  Dim r As Range         .Range.Previous(4, 1).Select '一个段落                  Selection.Delete ''删除无效!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!              End With    '