对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。 Function selectdo(a,d,b,c) Response.write"<select name='"&a&"'<option"&d&"</option" for i=b to c if i<10 then i="0"&i end if Response.write"<option"&i&"</option" &n...[ 查看全文 ]
一、foreach语法 For Each...Next 语句对数组或集合中的每个元素重复执行一组语句。 For Each element In group [statements] [Exit For] [statements] Next [element] 参数介绍： element 用来枚举集合或数组中所有元素的变量。对于集合，element 可能是 Variant 变量、通用 Object 变量或任意指定的 Automation 对象变量。对于数组，element 只能是 Variant 变量。 group 对象集合或数组的名称。...[ 查看全文 ]
下面的这一段宏代码，在Word环境下使用，其功能是，自动给word文档参考文献添加中括号或方括号 "AddMarkRef Macro Dim parag As Paragraph Dim selRge As Range Dim rge As Range Dim nField As Integer Dim nParag As Integer Set selRge = Selection.Range MsgBox "在使用宏代码之前您应先选择好参考文献?" ActiveDocument.ActiveWindow.View.FieldShading = wdFieldShadingWhenSelecte...[ 查看全文 ]
打开VB,新建AX DLL,工程名为Str,类名count,输入如下代码: 代码如下： Public Function add(ByVal a As Double, ByVal b As Double, ByVal c As Integer, ByVal d As Integer) As Double d = CInt(d) If c = 1 Then '加 add = FormatNumber(a +...[ 查看全文 ]
在WORD中，我们可以通过修改WORD命令的方法，来方便地为WORD控件指定用户自定义的过程，完成或者转移(禁用)相应的内置方式.它的原理是利用相应宏名来置换过程的方法.在下面的三个部分中，我们可以体会其中的相同点与不同点。 Sub Example() Dim i As CommandBarControl For Each i In Application.CommandBars.FindControls If i.ID = 4 Then i.OnAction = "MySub" ’指定宏名 End If ...[ 查看全文 ]
下面的代码的功能是，全选word文档的当前页，注意，是当前页，即插入条所在的页，而不是全文。 Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range Dim Currentpage As Integer, Pages As Integer On Error Resume Next Currentpage = Selection.Information(wdActiveEndPageNumber) Pages = Selection.Information(wdNumberOfPagesInDocument) CurrentPageStart = Selection.Go...[ 查看全文 ]
以下的代码，就是vba调用Word对话框的代码 Sub GetDialogs() Dim i As Integer On Error Resume Next With Application .ScreenUpdating = False For i = 1 To 10000 Selection.InsertAfter "对话框" & i & "：" & .Dialogs(i).CommandName & vbCrLf Next .ScreenUpdating = True End With End Sub [ 查看全文 ]
