从网上下载了一个字符包，解压以后查看，发现文件名是这种形式：0120_XXXXXX_GBK.ttf，看上去很不雅观。我想改成 XXXXXX简体.ttf 这种形式，但字体有300多个，手动修改太浪费时间，所以编写了一个批量修改程序，一键搞定。主要用到的函数和语句：Mid语句、Name语句、InStr函数、InStrRev函数、Replace函数
下面是我测试时用的程序。虽然每次只能改一个，但只要把程序稍微修改一下，就可以变成按照你的设定批量修改程序名的改名程序。
'*************************************************************************
'**模 块 名：为程序改名
'**说 明：蓝凤凰设计商城 浴火凤凰-郭卫 | 蓝凤凰－魔灵 | 郭卫－icecept
'**创 建 人：浴火凤凰-郭卫
'**日 期：2015年10月19日 12:36:46
'**修 改 人：浴火凤凰-郭卫
'**日 期：
'**描 述：QQ：493405998 | 微信\旺旺：icecept
'**版 本：V1.0.0 | http://blog.sina.com.cn/icecept
'*************************************************************************
Option Explicit
Sub Main()
Dim ss As String, zz As String
Dim before As Integer
Dim behide As Integer
ss = Command
before = InStr(ss, "_")
MsgBox before
If before <> 0 Then
zz = Mid$(ss, before + 1)
MsgBox zz
End If
behide = InStrRev(zz, "_")
MsgBox behide
If behide <> 0 Then
Mid$(zz, behide, 4) = "简体" & Space$(2)
zz = Replace$(zz, Space$(1), "")
MsgBox zz
End If
Name ss As zz
End Sub