<![CDATA[结构CAD]]> http://www.jgcad.com/ zh-cn LBS v2046 Sun, 05 Sep 2010 19:01:32 +0800 60 <![CDATA[批量打印PLT文件]]> ]]> Sat, 22 Aug 2009 22:28:05 +0800
Quote
FOR %%C IN (*.plt) DO copy %%C lpt1 && ping 1 -n 1 -w 600000 2>nul 1>nul
pause
]]> <![CDATA[万能鼠标滚轮驱动程序Freewheel2.4]]> ]]> Wed, 13 May 2009 08:49:00 +0800
用于:部分软件不支持滚轮,比如WORD,EXCEL的VBA编号界面.
比如WINDIFF,等等.

用这个小软件以后,这些软件都支持滚轮了.

真是不错.
Quote
http://www.ankty.com/soft/1/30/914.html

目前3D滚轮鼠标已经非常普及了，相信你早已体验到滚轮带来的方便了。你可能也注意到Windows对滚轮支持的美中不足了 ------------例如:Lotus Notes4.6,GX Developer8.0等很多软件都不支持滚轮 如果你想用滚轮滚动某个窗口，你必须先点击该窗口激活它。如果不需
]]> <![CDATA[用VBA为word创建文档结构图]]> ]]> Tue, 14 Apr 2009 17:22:58 +0800 On Error Resume Next

maxlen = 15 '设定段落最大字数
minlen = 2 '设定段落最小字数
Dim myParagraph As Paragraph
'对每一段落进行操作
For Each myParagraph In ActiveDocument.Paragraphs

'
If myParagraph.Range.Font.Size > 1000 Then Exit For
'
len1 = Len(myParagraph.Range.Text)
If len1 <= maxlen And len1 >= minlen Then
]]> <![CDATA[VBA 改变文字高度.bas]]> ]]> Sat, 01 Nov 2008 07:49:41 +0800
Quote
Attribute VB_Name = "NewMacros"
Sub Macro1()
Attribute Macro1.VB_Description = "宏在 2008-4-20 由 FiSh 录制"
Attribute Macro1.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1"
'
' Macro1 Macro
' 宏在 2008-4-20 由 FiSh 录制
'
Selection.Font.Size = 14
End Sub

' 1. 以Paragraphs(段)为操作对象,将文档中的每一段的字号都减小一号
]]> <![CDATA[VBA收集[转]]]> ]]> Thu, 20 Mar 2008 13:17:57 +0800 If Application.InputBox("请输入密码：") = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码
End If

本示例为设置密码窗口 (1)
X = MsgBox("是否真的要结帐？", vbYesNo)
If X = vbYes Then
Close

本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码
ActiveSheet.Unprotect ]]>