Feedback

VB - Word CustomDocumentProperty auslesen

Veröffentlicht von am 25.02.2009
(2 Bewertungen)
Erweiterte (Eigene) Dokumenteneigenschaften aus geöffnetem Worddokument auslesen.

Aufruf:
GetCDP(worddoc,"Test")
    Public Function GetCDP(ByRef WordDoc As Office.Interop.Word.Document, ByVal Prop As String) As String

        Dim _cdp As Object = WordDoc.CustomDocumentProperties
        Dim TypBuiltProps As Type = _cdp.GetType
        Dim _prop As Object
        Dim _proptype As Type
        _prop = TypBuiltProps.InvokeMember("Item", System.Reflection.BindingFlags.Default Or System.Reflection.BindingFlags.GetProperty, Nothing, _cdp, New [Object]() {Prop})
        _proptype = _prop.GetType
        GetCDP = _proptype.InvokeMember("Value", System.Reflection.BindingFlags.Default Or System.Reflection.BindingFlags.GetProperty, Nothing, _prop, New [Object]() {}).ToString.Trim

    End Function
Abgelegt unter Word.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!