Question

我有一个带有字段的Word 2010模板，下拉列表等以及一个保存按钮，用于将文档保存在具有特定名称的特定位置。我检索的部分文件名是VBA中的网络用户名，文件名的另一部分是Date。这对我来说很好，但是当我尝试用另一个用户测试文档时，VBA代码在下面的行中抱怨说“编译错误：找不到项目或库”。

strUserName = (Environ$("username"))

如果我将上面的内容更改为下面的行而另一个用户打开模板并单击“保存”按钮

strUserName = "validnetworkname"

然后在下一个VBA引用

时抱怨同样的错误

strDate = Date

请问有什么问题？

Answer 1

我使用这个功能：

ComboBox.SelectedValue = 2

要打电话：

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function UserName() As String
    On Error GoTo ErrProc

    Dim lnglen As Long
        lnglen = 255

    Dim strSpace As String
        strSpace = String(254, 0)

    Dim lngX As Long
        lngX = apiGetUserName(strSpace, lnglen)

    If lngX <> 0 Then GetUserName = Left(strSpace, lnglen - 1)

Leave:
    On Error GoTo 0
    Exit Function

ErrProc:
    Resume Leave
End Function

Word VBA导致模板中的问题

1 个答案: