- 博客(19)
- 资源 (18)
- 收藏
- 关注
转载 OSSP
一些OSSP资料http://www.sei.cmu.edu/library/assets/mutafelija.pdfhttp://www.abelia.com/docs/OSSP.pdfISO/IEC TR 19759:2015
2015-12-15 23:05:53 846
转载 按照标题拆分子文档
Option ExplicitSub SplitLevel2() Dim docCur As Document Dim docNew As Document Dim rngTitle As Range Dim rngChapter As Range Dim rngTarget As Range Dim lngStart As Long Dim lngEnd As L
2015-11-03 22:02:21 1460
原创 match和index返回多个匹配项
SMALL(IF($AB$18:$AB$31=$L18,ROW($AB$18:$AB$31),65536),$N$1:$P$1)INDEX(X:X,N18:P33)
2015-09-21 23:24:19 7411
原创 用word模板作为add-in,制作一些快捷操作
1)把安全宏设置为“禁用所有宏,并设置通知”2)新建一个word文档,输入一些宏命令,然后保存为“启用宏的word模板*dotm”3)文档会保存在“C:\Users\xxxx\Documents\自定义 Office 模板”下面。4)新建一个其他的普通word(*.doc)5)(是不是必须?还是说模板文件放在对应目录,就可以直接使用了?)加载项选择word加载项,共用模板及加载项添
2015-08-17 22:55:31 3642
转载 选择IE全部内容,被拷贝到excel
Public objIE As InternetExplorerPublic objTag As ObjectPublic objOption As Object#If VBA7 ThenPrivate Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)#ElsePrivate Declare Sub Slee
2014-10-27 23:28:56 556
转载 IE窗体自动
Private Type UUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As ByteEnd TypePrivate Declare Function GetWindowText Lib "user32" Alias "GetWindo
2014-07-05 14:27:57 467
转载 可折叠的标题栏_CSS
function change(){//通过父元素li,找到兄弟元素ulvar oSecondDiv = this.parentNode.getElementsByTagName("div")[0];//CSS交替更换来实现显、隐if(oSecondDiv.className == "myHide1")oSecondDiv.className = "myShow1";elseoSec
2014-04-27 21:31:39 588
转载 可折叠的标题栏
伸缩的菜单<!--body{ background-color:#ffdee0;}#navigation { width:200px; font-family:Arial;}#navigation > ul { list-style-type:none; /* 不显示项目符号 */ margin:0px; padding:0px;}#navigation > u
2014-04-27 21:30:13 514
转载 代码重构
Duplicated Code(重复的代码) 臭味行列中首当其冲的就是Duplicated Code。如果你在一个以上的地点看到相同的程序结构,那么当可肯定:设法将它们合而为一,程序会变得更好。 最单纯的Duplicated Code就是「同一个class内的两个函数含有相同表达式(expression)」。这时候你需要做的就是采用Extract Method提炼出重复的代码,然后
2014-03-12 23:28:13 462
转载 Excel列举文件夹列表,调用cmd遍历
@echo offfor /f "delims=" %%i in ('dir /a-d /b /s /od') do echo %%~ti,%%~dpnxi >>test1.csv///////////////////////////////////////////////////////////////////////////////////////Private Sub Com
2014-01-12 21:09:52 858
转载 VBS创建文件夹
a="e:\test\pran\dispan\get"'创建a的整个路径set fso=createobject("scripting.filesystemobject")str="\"getpath=split(a,str)for i= 1 to ubound(getpath)path=path & str &getpath(i)if not fso.folderex
2014-01-12 21:06:59 2442
转载 VBA读取Outlook的签名文件
Sub Mail_Outlook_With_Signature_Plain()' Don't forget to copy the function GetBoiler in the module.' Working in Office 2000-2010Dim OutApp As ObjectDim OutMail As ObjectDim strbody As StringDim
2014-01-11 16:07:37 4122
转载 获取文件完整路径并存储(拖放操作)
'======================================================================='VBScript Source File -- 获取文件完整路径并存储(拖放操作)'NAME:获取文件完整路径并存储(拖放操作)'AUTHOR:Null'DATE:2008-08-09'COMMENT:获取文件完整路径并存储(拖放操作)'==
2013-12-25 21:32:15 808
转载 获取详细变更的件数
Type CHANGEDETAIL strChangeDetailNo As String '变更详细内容的件数 strChangeDetail As String '变更详细内容 strChangeNo As String '变更番号(大) strTemp As StringEnd TypeType CNANGEPOINT strChangePoi
2013-12-22 11:36:16 465
转载 使用VBA解析HTML文档
Sub test() Dim ie, dmt, bd Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象 With ie .Visible = False '显示它 .navigate "E:\temp\divcss.ht
2013-12-22 11:35:54 7994
转载 如何用批处理遍历文件夹
http://blog.sina.com.cn/s/blog_6f3da96501011so3.htmlSub Sample1(strPath As String, strName As String)'strPath: path which to be searched'strName: filename which will be created Set WSH = Cr
2013-12-22 11:35:30 1538
Microsoft.Press.Software.Estimation.Demystifying.the.Black.Art.Mar.2006
2014-04-02
UML Distilled A Brief Guide to the Standard Object Modeling
2014-03-14
Refactoring Improving the Design of Existing Code
2014-03-12
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人