word中类似单位批量转换的问题（已解决）

neaby

实际应用中，出现了一个问题。
============修改前====================
第13条  土地利用结构调整
规划期间，全市建设用地总面积适度增加，农用地和未利用地总面积略有减少，土地开发程度逐渐提高。规划期末，全市农用地总面积239654公顷，比2005年减少4452公顷；建设用地总面积53498公顷，比2005年增加13111公顷；未利用地总面积99555公顷比2005年减少8659公顷。
============批量修改后=================
第13条  土地利用结构调整
规划期间，全市建设用地总面积适度增加，农用地和未利用地总面积略有减少，土地开发程度逐渐提高。规划期末，全市农用地总面积239654公顷（359.48万亩），比2005年减少4452公顷（6.68万亩）；建设用地总面积53498公顷（80.25万亩），比2005年增加13111公顷（19.67万亩）；未利用地总面积99555公顷（149.33万亩）比2005年减少8659公顷（12.99万亩）。

问题：
1、批量让文本中黑体部分自动生成：239654公顷（359.48万亩），【1公顷*15/10000=1万亩，万亩保留两位】

2、在运行一次时，如果前面的公顷数变了，后面的万亩也会变化，不会成为这样***公顷（***万亩）（***万亩）

一些想法：
1、这是个土地规划的文本，中间有“公顷”这个字段的，前面的数字要提出来，插入到后面转换为“万亩”。
2、应该是VBA的范畴，对于许多类似的单位转换应该都有借鉴意义。
3、如果运行一次后，再修改前面的数，后面的数也要相应的修改，这个又增加了难度。

希望各位高手不吝指教，如果把代码小修改下就实现了单位的批量转换，很有意义。

[ 本帖最后由 neaby 于 2010-8-18 18:48 编辑 ]

海滨音诗

VBA的不会

r591

http://club.excelhome.net/thread-561712-1-1.html
可以参考这个帖子，是高手Sylun提供帮助的。
如果把代码改一下，应该能够实现你所说的功能。
保留公顷数，在其之后加上括号和经过换算的数字和“万亩”。
敝人眼高手低，只能提供这些了，抱歉。

tangqingfu

谢谢sylun兄,学习ing

neaby

谢谢关注！

neaby

谢谢您！
我觉得这个对我很有价值，让我有了思路去解决这个问题。
可是对于VBA，我知道的太少了，就学过一点C语言.
我先调试一下，看看自己能解决多少吧~~~
等到高人一来，问题就解决了，可以学到很多呢！

neaby

Sub Mu2Ha()
    Dim a As Variant
    Application.ScreenUpdating = False
    With Selection.Find
        .Parent.HomeKey wdStory
        .ClearFormatting
        .Text = "[0-9]@公顷>"
        .MatchWildcards = True
        Do While .Execute
            With .Parent
                a = Format(Val(.Text) * 15 / 10000, "0.00")
                .Text = "（" & a & "万亩" & "）"
                .Collapse wdCollapseEnd
            End With
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

=============
完成了大部分，但是我想要的是插入到原有的后面，这个该如何修改呢？见附件，有宏部分~~~

[ 本帖最后由 neaby 于 2010-8-18 00:15 编辑 ]

neaby

.Collapse wdCollapseEnd
这个如何让选中的单元格向右移一格，插入替换。
239654公顷
在前一句代码已经选中了。现在要向右偏移一格如何实现，我搞不定~~~~

sylun

何来选中？何来单元格？另外，插入与替换意思并不一样，什么叫“插入替换”。请楼主先将问题与要求描述清楚。

neaby

您看：
当运行到这句时，

公顷的字段被选中了。

到了这句时，

公顷的这个字段替换成了万亩。

我想的是：
如果这个字段可以向右移一下，然后在后面插入。
如下图所示的情况。


[ 本帖最后由 neaby 于 2010-8-18 12:26 编辑 ]