如何获取 VBE 窗口中的己选中的文字？

xyh_bear

求肋高人出现，如何获取 VBE 窗口中的己选中的文字？
例：下面过程中，假设我己选中了 ‘VBE.ActiveCodePane’ ，如何获取选择的文字 ‘VBE.ActiveCodePane’？

1. Sub 演示代码()
   
2.      Dim a As Long
   
3.      Dim b As Long
   
4.      Dim c As Long
   
5.      Dim d As Long
   
6.      Application.VBE.ActiveCodePane.GetSelection a, b, c, d
   
7.      Debug.Print a & "/" & b & "/" & c & "/" & d
   
8. 
   
9.      'debug.prind "你选中的文字是：" '这里如何写代码，显示所选中的文字 “VBE.ActiveCodePane”
   
10. End Sub

复制代码

xyh_bear

因繁简系统环境问题 ， 汉字经常出现乱码，想将汉字转为GBK码，避免提示对话框出现乱码，所以急需要解决上面这个问题，准备集成一个VBE命令按钮，选中汉字后，执行该命令，实现转为GBK码 ， 麻烦各位了，有没有解决方法？ API也行

xyh_bear

唉，发这么久，没人帮我呀！ 不过终于被我解决了。

cgx5871

xyh_bear 发表于 2014-7-24 10:28
唉，发这么久，没人帮我呀！ 不过终于被我解决了。

解决了也不贴出来?  不道义呀.

1059526347

Application.VBE.ActiveCodePane.GetSelection(开始行号，开始列号，结束行号，结束列号） 读取光标选定文本的开始行、列号。结束行、列号。将其存入参数所填的变量中，变量类型为 Long  byref需类型一致
Application.VBE.ActiveCodePane.SetSelection(开始行号，开始列号，结束行号，结束列号） 设置光标选定文本
Application.VBE.ActiveCodePane.CodeModule.InsertLines(需要插入的行号，需要插入的文本）将文本插入指定行
Application.VBE.ActiveCodePane.CodeModule.DeleteLines(需要删除的行号，需要删除的行数）指定需要删除的行号以及需要删除的行数量，
Application.VBE.ActiveCodePane.CodeModule.Lines(需要读取的行号，需要读取的行数）指定需要读取的行号以及需要读取的行数量，
Application.VBE.ActiveCodePane.CodeModule.CountOfLines  获取代码总行数
Application.VBE.ActiveCodePane.CodeModule.Find(需要查找的内容，起始行号，起始列号，结束行号，结束列号，，是否区分大小写）查找指定字符串。找到返回true否则返回false
Application.VBE.ActiveCodePane.CodeModule.ReplaceLine(需要替换的行号，新内容） 将指定行替换成新内容

ActiveWorkbook.VBProject.VBComponents.Add(类型) 创建指定类型的模块(常规模块。类模块。窗体模块）类型为枚举；常规模块：vbext_ct_StdModule =1；类模块：vbext_ct_ClassModule =2；窗体模块：vbext_ct_MSForm=3
ActiveWorkbook.VBProject.VBComponents.item(索引/名称）通过索引或名称获取指定的模块 一个VBComponent对象 可简写为：VBComponents(索引/名称）
ActiveWorkbook.VBProject.VBComponents.Remove(VBComponent对象）删除指定的模块，VBComponent对象可通过item属性获得
ActiveWorkbook.VBProject.VBComponents.Count  获取当前活动项目中的模块总数(包括工作表对象和ThisWorKbook)