利用VBA生成GB18030字符集

ngcg · 发表于 2010-2-14 16:30

Sub GB18030CharSet()
  Dim f As String
  Selection.Font.Size = 10
  For i = CLng("&H3400") To CLng("&H9FBB")
f = Hex(i)
If f = "4DB5" Then i = CLng("&H" & "4DFF")
Selection.TypeText Text:=ChrW$(CLng("&H" & f))
  Next
  MsgBox "Job Done!"
End Sub

刘晓明 · 发表于 2010-2-14 17:56

不明白有什么用

ngcg · 发表于 2010-2-14 18:32

能自动生成2万7千个汉字

tangqingfu · 发表于 2010-2-16 11:24

谢谢cgcg兄！收藏学习！

183213 · 发表于 2010-2-18 00:26

楼主是不是也觉得有点慢？两万多字，由于在循环里写文档，所以也就是写了两万多次文档，改成写变量会快很多很多倍

Sub GB18030CharSet()
Selection.Font.Size = 16
For i = &H3400 To &H9FBB&
s = s & ChrW$(i) '先临时放在变量里
Next
Selection.TypeText Text:=s '最后一次性写入文档
End Sub

互相学习，共同进步

ngcg · 发表于 2010-2-18 13:31

6楼的朋友所提的方法，我已试过，但在某种情况，例如内存不足时，无法写完整个字串。

bibisin · 发表于 2010-2-18 23:43

谢谢分享，试用一下

YZLSZAJ · 发表于 2010-2-19 01:14

不支持——

bxlzbtpap · 发表于 2011-10-13 18:04

偶笨笨，看不懂。什么叫生成18030字库？这怎么可能呢？

zjhken · 发表于 2011-10-13 15:58

ngcg 发表于 2010-2-18 13:31
6楼的朋友所提的方法，我已试过，但在某种情况，例如内存不足时，无法写完整个字串。

要是写在Excel表的格子中怎样？

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

[分享] 利用VBA生成GB18030字符集