WORD 中数字替换

ww0000 · 发表于 2018-4-9 19:37

WORD 中的数字如何替换成统一的位数？如附件中将黑色格式替换成蓝色格式，替换和VBA都行，谢谢

数字替换.rar (2.48 KB, 下载次数: 27)

hhjjpp · 发表于 2018-4-9 20:13

查找-高级-格式-字体颜色

413191246se · 发表于 2018-4-9 23:52

Sub test()
With ActiveDocument.Content.Find
.Parent.InsertBefore Text:=vbCr
.Execute "(^13)([0-9]、)", , , 1, , , , , , "\100\2", 2
.Execute "(^13)([0-9]{2}、)", , , 1, , , , , , "\10\2", 2
.Parent.Paragraphs(1).Range.Delete
End With
End Sub

复制代码

ww0000 · 发表于 2018-4-10 08:51

413191246se 发表于 2018-4-9 23:52

谢谢，就这样

ww0000 · 发表于 2018-4-10 11:08

413191246se 发表于 2018-4-9 23:52

再请问，如何改一下，将前面的零去掉？恢复到原来？

413191246se · 发表于 2018-4-11 02:18

Sub test_restore()
With ActiveDocument.Content.Find
.Parent.InsertBefore Text:=vbCr
.Execute "(^13)00([0-9]、)", , , 1, , , , , , "\1\2", 2
.Execute "(^13)0([0-9]{2}、)", , , 1, , , , , , "\1\2", 2
.Parent.Paragraphs(1).Range.Delete
End With
End Sub

复制代码

相见是缘8 · 发表于 2018-4-11 06:12

ww0000 发表于 2018-4-10 11:08
再请问，如何改一下，将前面的零去掉？恢复到原来？

Sub test()
With ActiveDocument.Content.Find
.Execute "(^13)([0]{1,2})", , , 1, , , , , , "\1", 2
End With
End Sub

ww0000 · 发表于 2018-4-11 14:59

相见是缘8 发表于 2018-4-11 06:12
Sub test()
With ActiveDocument.Content.Find
.Execute "(^13)([0]{1,2})", , , 1, , , , ...

谢谢

Sub test()
   With ActiveDocument.Content.Find
      .Execute "(^13)([0]{1,})", , , 1, , , , , , "\1", 2
   End With
End Sub

这个2不要更好

413191246se · 发表于 2018-4-12 01:33

呵呵！楼主和相见是缘厉害呀！最近我经常用到 @ {}，竟然此题没反应过来，鉴于第一段如果不是回车符会找不到 ^13，还是插入一个回车比较好，代码算你们两个的！

Sub test_restore()
With ActiveDocument.Content.Find
.Parent.InsertBefore Text:=vbCr
.Execute "(^13)([0]{1,})", , , 1, , , , , , "\1", 2
.Parent.Paragraphs(1).Range.Delete
End With
End Sub

复制代码

相见是缘8 · 发表于 2018-4-12 08:28

本帖最后由相见是缘8 于 2018-4-12 18:19 编辑

413191246se 发表于 2018-4-12 01:33
呵呵！楼主和相见是缘厉害呀！最近我经常用到 @ {}，竟然此题没反应过来，鉴于第一段如果不是回车符会找 ...

献丑了！大神说的对！我也只是会一点手动替换，有时大神们没空或没兴趣的或技术含量低，不愿出手的问题，为应应楼主们的急，一当是练习，二如果能“抛砖引玉”就更好！
413191246se 大神，我感觉您在这个论坛里面的大神中是最友善的，不像有的大神脾气很大，虽然他们的技术也许是一流的，但个人的修养我不敢恭维。曾看到过您徒弟 13907933959 去年的一次回复，我感觉是这个论坛上对“大神们”的一次最霸气的回复（我都收藏了），后来不知什么原因被删掉了，您师徒之间的回复，我看了很多，也感动过多次！我现有的这一点点家底大部分都是从那里学来的，感谢！！！

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

[求助] WORD 中数字替换

评分

评分

评分