VBA代码中，如何输入在word界面可以输入的这类符号？

chenlifeng123

在VBAword中，我可以复制输入如下符号：“ ¤、t”等符号，但把他们复制到VBA代码中时，出现的是空格、问号或是走样了的文字。
请问如何在VBA中输入它们呢（我要直观的输入，而不是通过其调和的办法来表示，如表示"a"可用chr(97)  表示）？

413191246se

楼主，这两个符号，细看，是 Wingdings 字体加粗，在 VBE 环境中，不太可能直观输入，因为 VBE 默认字体是 宋体 CHINESE_GB2312，为了这两个字符而调整默认的字体显示，得不偿失。

chenlifeng123

非常感谢提醒，~！

wdpfox

直观输入不可能，还是用代码吧。

chenlifeng123

wdpfox 发表于 2018-5-25 09:08
直观输入不可能，还是用代码吧。

找到了这种输入方法：
        比如我要在combox中输入一个表示 “点赞” 的手形字符，我事先输入其对应的宋体文字为“B”,然后再把combox的字体设置为 “wingdings” 即可。
        其它特殊符号也一样。不足的是，需要一个个去找到特殊符号所对应的宋体字；这对于某些特别的字符来说，有一定难度。但我觉得结论是每个特殊符号一定都有。我已经找了 不少了。

413191246se

楼主，建议利用 录制宏 的办法插入，比如我在《插入页码_公文一字线》宏中，想取得“一”字线，就是通过录制宏取得了原来是 UNICODE字符集并且是宋体的“一”字线，只须一行代码即可。

chenlifeng123

413191246se 发表于 2018-5-26 10:53
楼主，建议利用 录制宏 的办法插入，比如我在《插入页码_公文一字线》宏中，想取得“一”字线，就是通过录 ...

感谢大师回复。
        录制宏的前提条件是，需要我们知道要干什么、而且会干。而我这个好像在这儿不太行。
我的疑问是：比如我知道图片  笑脸 对应的 代码是J，字体是wingdings，我录制宏时就有：

1. Sub 宏1()
   
2. '
   
3. ' 宏0 宏
   
4. '
   
5. '
   
6.     Selection.Font.Name = "Wingdings"
   
7.     Selection.TypeText Text:="J"
   
8. End Sub

复制代码

在不知道笑脸 代码的情况下，如果采用复制笑脸来得到它代码的办法，则如下，显然不是想要的：

1. Sub 宏9()
   
2. '
   
3. ' 宏9 宏
   
4. '
   
5.     Selection.MoveDown Unit:=wdLine, Count:=1
   
6.     Selection.PasteAndFormat (wdFormatOriginalFormatting)
   
7. End Sub

复制代码