神马文学网VB或VBA代码转HTML的加载宏
来源：百度文库 编辑：神马文学网 时间：2024/04/29 12:21:50
VB或VBA代码转HTML的加载宏
2009年1月28日评论 发表评论在论坛中或博客中帖VBA代码时，如果想获得同VBE窗口中一样的代码语法高亮的效果，可以使用这个VBAHtmlMaker的加载宏，这是MrExcel网站上的免费作品，我将它的菜单和提示窗口修改成中文的。 Private Declare Function LockWindowUpdate Lib “user32″ (ByVal hwndLock As Long) As Long ‘应用程序常量名 ‘用来识别BBColor和HTMLColor函数中的颜色的常数 Dim cBtn As clsBtn ‘使用BB代码转换指定文本带有VBE颜色（黑色，绿色和蓝色）
打开这个加载宏后，在VBE窗口中，在菜单“工具”和右键菜单中添加了四个菜单：
转换选择的代码为HTML
转换当前过程为HTML
转换选择的代码为BB Code
转换当前过程为BB Code
转换完成后将提示已经将转换好的代码复制到剪贴板，你只需要做的就是粘帖到你需要的地方。
从这个加载宏，也可以学习怎样在VBE窗口中添加菜单项、创建对应的事件以及对模块的操作。
下载：Box.net | SkyDrive
下面是使用这个加载宏转换的代码（没有使用WP的插件）：
Option Explicit
Public Const AppCode = “VBHTML”
Public Const AppName = “VB HTML Maker”
Private Const BLACK As Long = 1
Private Const BLUE As Long = 2
Private Const GREEN As Long = 3
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
Dim Msg As String
Msg = “[color="
Msg = Msg & Choose(Color, "black", "darkblue", "green") & "]“
Msg = Msg & Text
Msg = Msg & “[/color]“
BBColor = Msg
End Function