Visual Basic

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

<br />
Function GetBuiltInProperty(objDoc As Object, _<br />
                            strPropname As String) As Variant<br />
<br />
   ' This procedure returns the value of the built-in document<br />
   ' property specified in the strPropName argument for the Office<br />
   ' document object specified in the objDoc argument.<br />
<br />
   Dim prpDocProp       As DocumentProperty<br />
   Dim varValue         As Variant<br />
   <br />
   Const ERR_BADPROPERTY      As Long = 5<br />
   Const ERR_BADDOCOBJ        As Long = 438<br />
   Const ERR_BADCONTEXT       As Long = -2147467259<br />
   <br />
   On Error GoTo GetBuiltInProp_Err<br />
   <br />
   Set prpDocProp = objDoc.BuiltInDocumentProperties(strPropname)<br />
   With prpDocProp<br />
      varValue = .Value<br />
      If Len(varValue) <> 0 Then<br />
         GetBuiltInProperty = varValue<br />
      Else<br />
         GetBuiltInProperty = "Property does not currently have a value set."<br />
      End If<br />
   End With<br />
   <br />
GetBuiltInProp_End:<br />
   Exit Function<br />
GetBuiltInProp_Err:<br />
   Select Case Err.Number<br />
      Case ERR_BADDOCOBJ<br />
         GetBuiltInProperty = "Object does not support BuiltInProperties."<br />
      Case ERR_BADPROPERTY<br />
         GetBuiltInProperty = "Property not in collection."<br />
      Case ERR_BADCONTEXT<br />
         GetBuiltInProperty = "Value not available in this context."<br />
      Case Else<br />
   End Select<br />
   Resume GetBuiltInProp_End:<br />
End Function<br />