我想将一些专用符号，图片格式转化为文字形式，在ＷＯＲＤ中调用，需用ＶＢ编个小程序，哪位高手可以赐教？

图片转为文字,期待高手解决中

dim code as string
dim buf() as byte
dim size as long
intFileId = FreeFile()
Open App.Path & "\" & RiQi & ".jpg" For Binary As #intFileId
ReDim buf(size)
For i = 1 To size
Code = Mid(PicCode, i, 1)
buf() = Hex(Val("&H" & Code))
Put #intFileId, , buf()
Next i
a = LOF(intFileId)
MsgBox a
Close #intFileId
Picture1.Picture = LoadPicture(App.Path & "\" & RiQi & ".jpg")
Kill App.Path & "\" & RiQi & ".jpg"

楼上符合楼主意思吗??晕

啊，这个你得先研究一下人眼对于不同的字符会有哪些相应的颜色感觉。。。例如黑色用什么代表，灰色呢？白色呢？
黑色好像是用 M 白色就 - 灰色 @ 可以吗?

用WORD 的VBA可以吗?