VB宏基本案例(4)

Sub start()

bmpFileType = ".bmp"
pngFileType = ".png"
pathA = "G:\GB18030-36x36HeiBMP(Unicode)\"
pathB = "D:\GY_150_FONT\"

    seachText               'ﾕﾒｵｽﾋﾐｵﾄﾗﾖ
    getAllPic               'ｵﾃｵｽﾋﾐｵﾄﾍｼﾆｬ
    setUnicodeFormat
    Sheets("ﾋｵﾃ・).Select
End Sub