Visual Basic - 如何在AD中的屬性爲空時繼續執行腳本

我已經創建了一個宏，它將從LDAP中獲取信息並通過書籤將其插入Word文檔中。這非常有效，除非屬性爲空。因此，在Word文檔中，標題會插入用戶名稱之前，但當用戶沒有標題時，腳本將停止併發出錯誤消息。如果AD中的屬性爲空，我該如何讓腳本跳過該函數？Visual Basic - 如何在AD中的屬性爲空時繼續執行腳本

下面是部分腳本，在當用戶沒有一個標題（末）停止：

Sub AutoNew() 
With ActiveDocument.Bookmarks("MyTitle").Range 
.InsertBefore GetTitle 
End With 
With ActiveDocument.Bookmarks("MygivenName").Range 
.InsertBefore GetgivenName 
End With 
With ActiveDocument.Bookmarks("Mysn").Range 
.InsertBefore Getsn 
End With 
With ActiveDocument.Bookmarks("MytelephoneNumber").Range 
.InsertBefore GettelephoneNumber 
End With 
With ActiveDocument.Bookmarks("Mymail").Range 
.InsertBefore Getmail 
End With 

End Sub 

Function GetTitle() As String 
Dim objSysinfo As Object 
Dim objUser As Object 

Dim strUser As String 'Distinguished Name 

Set objSysinfo = CreateObject("ADSystemInfo") 
strUser = objSysinfo.UserName 
Set objUser = GetObject("LDAP://" & strUser) 

GetTitle = objUser.get("Title") 

End Function

會很高興，如果有人能幫助我。乾杯，宋佳

來源

2012-12-18 Sonja vdB