随笔分类 -  Office

摘要:Sub BatchConvertToPDF() Dim destFolderPath As String destFolderPath = GetFolderPath If destFolderPath Empty Then Dim path As Variant ... 阅读全文
posted @ 2014-04-15 14:03 beta2013 阅读(4870) 评论(0) 推荐(0)
摘要:Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '为选择的文本中的每个单词注上音标Sub Start() On Error Resume Next '文档... 阅读全文
posted @ 2014-01-14 13:35 beta2013 阅读(745) 评论(0) 推荐(0)
摘要:Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub GetPhonetic()'必须有音标字体安装Kingsoft Phonetic Plain'写在前面:您运行此程序前必须引用MSForms'即VBE/工具/引用:Microsoft Forms 2.0 Object Library (C:\WINNT\system32\FM20.DLL)'打开金山词霸,并使用显示在任务栏中,不是最小化系统托盘(启动栏)中!!(金山 阅读全文
posted @ 2013-12-06 19:51 beta2013 阅读(993) 评论(0) 推荐(0)