|
|||
|
摘要：
将当前Excel另存为test.xlsActiveWorkbook.SaveCopyAs thisWorkbook.Path &" \test.xls"自定义函数Function youFunctionName(msg) youFunctionName = msg ‘定义函数返回值End Function显示窗体UserForm1.Show隐藏窗体UserForm1.Hide生成文本文件Private Sub CommandButton1_Click() Set fso = CreateObject("Scripting.FileSystemObject& 阅读全文
posted @ 2011-07-04 12:40 刘政道 阅读(1076) 评论(0) 推荐(0) 编辑
摘要：
最近在使用Richfaces，当应用rich:editor标签时，发现没有中文字体，由于rich:editor使用的Tinymce，所以只要能够将Tinymce变成支持中文字体就可以了。将richfaces的jar解压缩后搜索tinymce，终于找到richfaces-ui-3.3.3.Final.jar\org\richfaces\renderkit\html\scripts\tiny_mce\advanced文件夹下有editor_template.js和editor_template_src.js两个文件，将其中的theme_advanced_fonts : "Andale M 阅读全文
posted @ 2011-07-04 10:30 刘政道 阅读(1190) 评论(0) 推荐(0) 编辑 |
|||