解决含有合并单元格的word表格替换与换算的难题！

我的电子表1516

求助！关于含有合并单元格的word表格替换及换算，将“亩”替换为“公顷”

此前在老师的启发和帮助下，有了一个代码，因为始终无法解决合并单元格问题，原以为SelectColumn等方法可以解决，谁知还是解决不了，都快丧失信心了！恳请各位高手看一看，还应该怎样修改或者。。。才能解决


Sub 含合并单元格的查找与换算示例1()
Dim t As Table, r&, c&, temp As String, v As String, temp1 As String, temp2 As String
On Error Resume Next    '忽略错误
For Each t In ActiveDocument.Tables
    For c = 1 To t.Columns.Count
        temp = t.Cell(2, c).Range.Text
        If InStr(temp, "亩") > 0 Then
            t.Cell(2, c).Range.Text = Replace(temp, "亩", "公顷")
            temp1 = t.Cell(1, c).Range.Text
            If InStr(temp1, "亩") > 0 Then
                t.Cell(1, c).Range.Text = Replace(temp1, "亩", "公顷")
            End If
            For r = 3 To t.Rows.Count
                v = t.Cell(r, c).Range.Text
                t.Cell(r, c).Range.Text = Round((Val(v) * 0.06667), 2)
            Next
        End If
        temp2 = t.Cell(1, c).Range.Text
        If InStr(temp2, "亩产") > 0 Then
        ElseIf InStr(temp2, "亩") > 0 Then
            t.Cell(1, c).Range.Text = Replace(temp2, "亩", "公顷")
            For r = 2 To t.Rows.Count
                v = t.Cell(r, c).Range.Text
                t.Cell(r, c).Range.Text = Round((Val(v) * 0.06667), 2)
            Next
        End If
    Next
Next
MsgBox "Completed!"
End Sub

fxl447098457

Sub test()
With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "亩"
    .Replacement.Text = "公顷"
    .Execute Replace:=wdReplaceAll
    End With
End Sub

zopey

word的表格  不能粘贴到 excel再行处理 ？

我的电子表1516

word的表格  不能粘贴到 excel再行处理 ？

谢谢提醒，只是太多了，有数百个，如果实在不得已也只好那个办法了！

我的电子表1516

Sub test()
With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "亩"
    .Replacement.Text = "公顷"
    .Execute Replace:=wdReplaceAll
    End With
End Sub

谢谢fxl447098457，这段代码刚才试了一下，解决了用SelectColumn方法始终不能提取第2行、第3行中有“亩”字的问题。但是再请老师指点一下，如何才能将有“亩”字下面的数据换算出来？老师的查找代码，似乎不能嫁接到原代码中的换算方法中去？

我的电子表1516

还有，能否做到只替换word表格中的字符，而表格之外的则不管？

QQ214189912

我的电子表1516 发表于 2017-12-25 16:22
还有，能否做到只替换word表格中的字符，而表格之外的则不管？

1. Sub tset()
   
2.     Dim aTable As Table
   
3.     For Each aTable In Word.ActiveDocument.Tables
   
4.         With aTable.Range.Find
   
5.             .ClearFormatting
   
6.             .Replacement.ClearFormatting
   
7.             .Text = "亩"
   
8.             .Replacement.Text = "公顷"
   
9.             .Execute Replace:=wdReplaceAll
   
10.         End With
    
11.     Next aTable
    
12. End Sub

复制代码

我的电子表1516

Sub tset()
    Dim aTable As Table
    For Each aTable In Word.ActiveDocument.Tables
        With aTable.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "亩"
            .Replacement.Text = "公顷"
            .Execute Replace:=wdReplaceAll
        End With
    Next aTable
End Sub

谢谢！谢谢QQ214189912老师的指正，这回解决了在表格中的替换！但是我还是想再追问一下，可以将替换与含有该字符“廛”下面的列的数据换算结合起来吗？老师辛苦，先谢谢了

我的电子表1516

呵呵！估计题目有些难度了，论坛上遇到合并单元格的问题大家都避而不提，确实难解。我也一直在想，能否换个思路，用数组的方式，哪位大神接个招吧？

duquancai

我的电子表1516 发表于 2017-12-27 21:22
呵呵！估计题目有些难度了，论坛上遇到合并单元格的问题大家都避而不提，确实难解。我也一直在想，能否换个 ...

确实很难！所以没人愿意免费当劳工。。。。。。。。。。。。