word内的波浪号取出来变成括号或是乱码了，求帮助！

remain16

附件里面的word内容是“1~3”，把该内容复制到txt里，变成“1 3”，复制到网页上，变成“13“，而通过vba导出，又变成了”1（3“，我希望是通过vba能把这个波浪号替换成正常的波浪号，求vba的替换代码。我试过替换，但是查询不到该波浪号，谢谢！
新建 Microsoft Word 文档.rar (6.07 KB, 下载次数: 7)

2014-9-4 09:43 上传

点击文件名下载附件
附件

liu-aguang

在word文档中,将该符号复制到查找框(可能是乱码,不管),然后再替换为一般的波浪号(用键盘输入).再做其它处理.

remain16

liu-aguang 发表于 2014-9-4 10:15
在word文档中,将该符号复制到查找框(可能是乱码,不管),然后再替换为一般的波浪号(用键盘输入).再做其它处理 ...

我需要的是由vba实现改替换功能，因为这是个自动排版导出的模板

liu-aguang

remain16 发表于 2014-9-4 10:55
我需要的是由vba实现改替换功能，因为这是个自动排版导出的模板

word vba 代码:

1. Sub test()
   
2.     Set myRange = ActiveDocument.Content
   
3.     myRange.Find.Execute FindText:=ChrW(61566), ReplaceWith:="~", _
   
4.     Replace:=wdReplaceAll
   
5. End Sub
   

复制代码

remain16

liu-aguang 发表于 2014-9-4 11:29
word vba 代码:

谢谢！！
顺便问一下，ChrW(61566)是怎么获取到的

liu-aguang

remain16 发表于 2014-9-4 13:51
谢谢！！
顺便问一下，ChrW(61566)是怎么获取到的

方法多,可通过录制宏获得.

remain16

liu-aguang 发表于 2014-9-4 14:00
方法多,可通过录制宏获得.

求个录制好的宏的代码吧
感激不尽！！

liu-aguang

remain16 发表于 2014-9-4 14:22
求个录制好的宏的代码吧
感激不尽！！

2010中录制查找操作:

1. Sub 宏7()
   
2. '
   
3. ' 宏7 宏
   
4. '
   
5. '
   
6.     Selection.Find.ClearFormatting
   
7.     With Selection.Find
   
8.         .Text = ChrW(61566)
   
9.         .Replacement.Text = ""
   
10.         .Forward = True
    
11.         .Wrap = wdFindContinue
    
12.         .Format = False
    
13.         .MatchCase = False
    
14.         .MatchWholeWord = False
    
15.         .MatchByte = True
    
16.         .MatchWildcards = False
    
17.         .MatchSoundsLike = False
    
18.         .MatchAllWordForms = False
    
19.     End With
    
20.     Selection.Find.Execute
    
21. End Sub
    

复制代码

remain16

liu-aguang 发表于 2014-9-4 15:10
2010中录制查找操作:

我的意思是，通过vba获取到那个”~“的unicode值为61566，这个过程

remain16

我估计你是吧word查找”~“替换成”~“的过程录制成宏了吧