[分享]如何制作动态链接库(*.dll)文件和WORD中引用动态链接库

目的:通过动态链接库的制作,可以将WORD中的VBA代码进行封装,达到:一,保护代码的目的,避免他人通过简单方法(解密)就能窥知过程代码,进一步保护源作者的代码;二,将较复杂的代码,通过制作成动态链接库,还可以加快代码的运行速度(特别是各程序间的协同作业);三,简单化调用过程,使用活动文档中的代码数量大大降低,有利于初学者进行使用.

以下是在WORD的五个宏(五个过程),分别是:

StandardNumber:功能,对所选数据(文本中或者是表格中的两者之一),进行自动格式化为千分位数据.

CurrencyNumber: 功能,对所选数据(文本中或者是表格中的两者之一),进行自动格式化为人民币的货币格式数据

ScientificNumber: 功能,对所选数据(文本中或者是表格中的两者之一),进行自动格式化为科学记数法.

CalValue:对所选数据进行简单四则混合运算等功能

InsertPercent: ,对所选数据(文本中或者是表格中的两者之一),进行自动补加百分号.

请记住以上五个过程名(宏名)

VBE中代码如下:

Sub StandardNumber()

    Dim i As Range, Acell As Cell, CR As Range, YN As String

    On Error Resume Next

    Application.ScreenUpdating = False

    If Selection.Type = 2 Then

        For Each i In Selection.Words

            If i Like "####*" = True Then

                If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then

                    i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End

                    i = Format(i, "Standard")

                Else

                    i = Format(i, "Standard")

                End If

            End If

        Next i

    ElseIf Selection.Type = 5 Then

        For Each Acell In Selection.Cells

            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

            If CR Like "####*" = True Then

                If CR Like "####.#*" = True Then

                    YN = Format(CR, "Standard")

                    CR.Text = YN

                Else

                    YN = Format(CR, "Standard")

                    CR.Text = YN

                End If

            End If

        Next Acell

    Else

        MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

    End If

    Application.ScreenUpdating = True

End Sub

Sub CurrencyNumber()

    Dim i As Range, Acell As Cell, CR As Range, YN As String

    On Error Resume Next

    Application.ScreenUpdating = False

    If Selection.Type = 2 Then

        For Each i In Selection.Words

            If i Like "####*" = True Then

                If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then

                    i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End

                    i = Format(i, "Currency")

                Else

                    i = Format(i, "Currency")

                End If

            End If

        Next i

    ElseIf Selection.Type = 5 Then

        For Each Acell In Selection.Cells

            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

            If CR Like "####*" = True Then

                If CR Like "####.#*" = True Then

                    YN = Format(CR, "Currency")

                    CR.Text = YN

                Else

                    YN = Format(CR, "Currency")

                    CR.Text = YN

                End If

            End If

        Next Acell

    Else

        MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

    End If

    Application.ScreenUpdating = True

End Sub

Sub ScientificNumber()

    Dim i As Range, Acell As Cell, CR As Range, YN As String

    On Error Resume Next

    Application.ScreenUpdating = False

    If Selection.Type = 2 Then

        For Each i In Selection.Words

            If i Like "####*" = True Then

                If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then

                    i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End

                    i = Format(i, "Scientific") & " "

                Else

                    i = Format(i, "Scientific") & " "

                End If

            End If

        Next i

    ElseIf Selection.Type = 5 Then

        For Each Acell In Selection.Cells

            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

            If CR Like "####*" = True Then

                If CR Like "####.#*" = True Then

                    YN = Format(CR, "Scientific") & " "

                    CR.Text = YN

                Else

                    YN = Format(CR, "Scientific") & ""

                    CR.Text = YN

                End If

            End If

        Next Acell

    Else

        MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

    End If

    Application.ScreenUpdating = True

End Sub

Sub CalValue()

    Dim MyValue As Single

    On Error Resume Next

    If Selection Like "*" & Chr(13) Then Selection.SetRange Start:=Selection.Start, End:=Selection.End - 1

    MyValue = Selection.Calculate

    Selection.InsertAfter IIf(Abs(MyValue) < 1, "=" & Replace(MyValue, ".", "0."), "=" & MyValue)

End Sub

Sub InsertPercent()

    Dim i As Range, MyRange As Range, ER As Long, CR As Range

    On Error Resume Next

    Application.ScreenUpdating = False

    If Selection.Type = 2 Then

        For Each i In Selection.Words

            mi = Trim(i)

            pi = Trim(i.Previous)

            ni = Trim(i.Next)

            If mi Like "*#" = True Then

                If ni <> "." Then

                    i.InsertAfter "%"

                ElseIf pi = "." And ni <> "%" Then i.InsertAfter "%"

                End If

            End If

        Next i

    ElseIf Selection.Type = 5 Then

        For Each Acell In Selection.Cells

            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

            If CR Like "*#" = True Then

                If CR Like "#*.*#" = True Then

                    CR.InsertAfter "%"

                Else

                    CR.InsertAfter "%"

                End If

            End If

        Next Acell

    Else

        MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

    End If

    Application.ScreenUpdating = True

End Sub

接上页：

好,我们开始制作动态链接库,打开Microsoft Visual Basic 6.0 中文版程序,在"文件"菜单下点"新建工程",出现是否保存对"工程1"的对话框,选"否",出现如图:

我们将上述代码原原本本粘贴于VB工程1的代码窗口中,并将其右则的属性对话框中的类的名称更改为"MyDll",如图:

然后,在"工程"菜单下点引用:在出现的引用对话框中选取"Microsoft Word 10.0 Object Library",这是关键步骤!

如图:

然后,我们需要对该工程的属性和文件进行定义,点"工程"菜单下的:"工程1属性",按图所示,输入后确认.

好,前道工作基本结束.

接下来,是生成DLL文件,点"文件"菜单下的"生成"WdNumberFormated.dll(K)",出现一个保存对话框,选择并记住这个路径,本例中的DLL文件放在"D:\Test"文件夹下.

好了,我们可以退出VB编辑器,它会询问是否保存下列文件的更改对话框,如果你觉得有必要,可以保存,也可以不保存.

接上页：

回到WORD中,我们新建一个空白文档,并保存为"DLLTEST.DOC"文件,进入 VBE中,在左侧的资源管理器中,双击PROJECT(DLLTEST)下的"THISDOCUMENT",出现代码窗口,",点"工具"菜单下的"引用"命令,出现如图所示对话框:

5BOuP4cI.rar (7.98 KB, 下载次数: 252)

2004-11-21 06:32 上传

点击文件名下载附件
[教学篇]如何制作动态链接库(*.dll)文件和WORD中引用动态链接库

好东西，收藏学习。

顶一下。

上面这些真的是不错的！非常不错！！又有学习的了。试做了一个，对于窗体调用的，一时也说不清楚，只是运行不了，不知为何？附件解压到D盘根目录下即可调用DLL，版主给看看？

如果能有个窗体调用的范例则更好。

版主提供的东西总是最好的！也一定会有更好的！期待……

3SXHzTS8.rar (19.4 KB, 下载次数: 103)

请引用同一路径下的DLL.我想在DLL中应该不能直接调用USERFORM吧,我是用FORM做的.具体也没有考证过.

r4xfPw9h.rar (8 KB, 下载次数: 128)

太棒了，回去试试

谢谢板主了