这种特殊符号如何用VBA代码输出显示在word中？

chenlifeng123

特殊符号如下：×、Ø、t、·、μ、2、ü、è……
这些符号可能在文档中复制粘贴，但是不能在VBA中复制。
     我用变量I从1-3万，循环chr(i)=selection 去逐一判断，也得不出它们的相关编码。
    请问如何在VBA代码中输出上面代码呢？感觉老师~！

418775812

用搜狗输入法的软键盘就可以输入到VBA代码中

413191246se

Sub 文鼎字符()
    Dim i&
    i = 4200 '改变此值即可改变字符范围
    Do
        i = i - 1
        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-i, Unicode:=True
    Loop Until i = 4000
End Sub

413191246se

chenlifeng123

418775812 发表于 2017-6-8 14:04
用搜狗输入法的软键盘就可以输入到VBA代码中

感谢老师回复 。您说的方法我在提问前尝试过，可能是：
1、我不知道搜狗输入法的用法；
2、该输入法我所试的上面的字符，根本 没有。我遇到 的是第二种。

chenlifeng123

413191246se 发表于 2017-6-8 14:18
Sub 文鼎字符()
    Dim i&
    i = 4200 '改变此值即可改变字符范围

经过调试，正是我想要的。非常感谢老师~！

chenlifeng123

413191246se 发表于 2017-6-8 14:19

老师，冒昧再请教一下：
      通过尝试发现：只能通过代码：Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-1, Unicode:=True
   这个形式来获取特殊的字符。
          如果我想在某数组变量中带有多个特殊字符，如何机动灵活获取呢？
比如数组a(0 to 4)中要求带有5个，但这5个我不想通过上面代码，在word中处理好再复制到变量上。

413191246se

楼主：
1、你好！不用叫我老师，我也是VBA菜鸟。
2、CharacterNumber:=-1 不是 -1，而是 -i（字母 I 的小写）。
3、可以在WORD中点击“插入”菜单——符号——符号——选择字体Wingdings/Wingdings2/Wingdings3后，点击“符号”框中的符号双击或点击“插入”按钮。
4、至于每个特殊符号的 ASC码或 CHRW码，这一点我也糊涂……

chenlifeng123

413191246se 发表于 2017-6-8 23:11
楼主：
1、你好！不用叫我老师，我也是VBA菜鸟。
2、CharacterNumber:=-1 不是 -1，而是 -i（字母 I 的小 ...

感谢楼上老师的热心反馈，三人行必有我师，您太谦虚了。
您说的字母I，我了解，我把它写成一个数字来进行录入处理，忘记改回了。感谢您观察这么细致、讲解这么耐心！
特殊符号的chr码等看来无法得到了。今天发现：用其它中转办法或许能行得通，比如：在word中插入项目符号时，会显示这些特殊符号的编码，这些编码可能是ASCII码。

413191246se

特殊符号一般少用，如果经常使用的话，不妨加在《符号栏》中，自己也可以新建一条工具栏。