求助；对WORD中特定值进行计算

yytrans

请见附件，针对文档中所有RMB前的数值进行计算，例如第一个数字是8，按照公式（X*1.4/6.5）计算，保留一位小数（即1.7）并替换，多谢！

yytrans

有些数值未计算或计算错误（多乘了10），可否修改下，请见附件，谢谢。

yytrans

请见上贴。

gbgbxgb

试一试附件中代码。
01.rar (8.86 KB, 下载次数: 4)

2021-5-21 19:15 上传

点击文件名下载附件

413191246se

* 楼主，有个数据前面没有“-”号，我已更新，并且与 gbgbxgb 老师的代码计算结果一模一样。

1. Sub aaaa_Price_2()
   
2.     Dim s$
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = "[0-9.]{1,}RMB"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10.                 .MoveEnd 1, -3
    
11.                 .Font.ColorIndex = wdPink
    
12.                 s = .Text
    
13.                 .Text = Round(s * 1.4 / 6.5, 1)
    
14.                 .Start = .End
    
15.             End With
    
16.         Loop
    
17.     End With
    
18.     MsgBox "OK!", 0 + 48
    
19. End Sub

复制代码

yytrans

谢谢楼上，现在只剩下一个问题，就是“413191246se”朋友提供的代码中 .Text = "-[0-9]@RMB" 这行代码只能计算整数值不能计算小数值（例如，0.3; 1.2; 52.3 等等），可否帮忙修改下？非常感谢！

413191246se

* 楼主，6 楼代码，已能！（第5行代码中，多了一个小数点。）

yytrans

多谢两位帮助！