WORD如何批量修改数字？

wk55123 · 发表于 2016-1-17 22:12

本帖最后由 wk55123 于 2016-1-18 12:44 编辑

一份WORD文档我要把增加="23" 的数字变为原来数字的2倍，比如增加="23" 变为增加="46" ，增加=“35” 变为增加=“70” ，增加=“67” 变为增加=“134” ，增加=“102” 变为增加=“204” 等等。如何批量处理？要批量处理的，因为有上千个数字需要乘以2。哪位好心人帮我写个VBA处理，谢谢！在线等......

13907933959 · 发表于 2016-1-18 10:37

本帖最后由 13907933959 于 2016-1-20 16:38 编辑

你是说所有的数字都要乘以2？

wk55123 · 发表于 2016-1-18 12:39

不是这样的，还有其他的呢，比如：增加=“35” ，增加=“67” ，增加=“101” 等等，很多呢，都要变成2倍。

413191246se · 发表于 2016-1-20 09:57

Sub test()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Do
Selection.Find.Execute findtext:="增加=", Forward:=True
If Selection.Find.Found = True Then
Do
Selection.MoveEnd Unit:=wdCharacter, Count:=1
Loop Until Selection.Characters.Last Like "[0-9.]"
Selection.Characters.Last.Select
Do
Selection.MoveEnd Unit:=wdCharacter, Count:=1
Loop Until Selection.Characters.Last Like "[!0-9.]"
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
Selection = Selection * 2
Selection.Font.Color = wdColorRed '红色
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
Loop Until Selection.Find.Found = False
End Sub

复制代码

13907933959 · 发表于 2016-2-8 10:18

413191246se 发表于 2016-1-20 09:57

师傅新年好！
如文档内不一样的数字前面，没有统一的，增加=“ ”，作为判别标准，有不有办法对这些不一样的数字都剩以2，请师傅点化！

13907933959 · 发表于 2016-3-18 10:36

本帖最后由 13907933959 于 2016-3-22 13:43 编辑

413191246se 发表于 2016-1-20 09:57

省略……

413191246se · 发表于 2016-3-18 14:43

139：你好！——如此，则需要对数字作出判断……

寅鹞 · 发表于 2016-3-18 15:49

发附件上来。

13907933959 · 发表于 2016-3-18 18:50

本帖最后由 13907933959 于 2016-3-21 08:59 编辑

寅鹞发表于 2016-3-18 15:49
发附件上来。

前辈好！

请查看附件！

13907933959 · 发表于 2016-3-18 18:57

本帖最后由 13907933959 于 2016-3-22 13:44 编辑

413191246se 发表于 2016-3-18 14:43
139：你好！——如此，则需要对数字作出判断……

省略……

		自动登录	找回密码
密码			免费注册

[求助] WORD如何批量修改数字？