Word: Handhabung von Daten in einer Klasse, wenn es mehrere Dokumente gibt

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von jan99.

    Word: Handhabung von Daten in einer Klasse, wenn es mehrere Dokumente gibt

    Moin!

    ich kann über die Ribbons zum Beispiel eine Klasse initalisieren, die innerhalb eines Dokumentes Daten analysiert und innerhalb dieser Klasse ablegt.

    Nun kann ich aber gleichzeitig mehrere Word-Dokumente offen haben. Wird intern jedes Dokument mit einem eigenen Bereich verwaltet sodas ich zwischendurch die Dokumente wechseln kann?

    Weiß einer mehr und kann mir ggf. weiterhelfen?!?!?

    Gruß Jan

    Moin!

    ich habe das einmal auf das wesentliche reduziert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Reflection
    2. Imports System.Windows.Forms
    3. Imports System.IO
    4. Public Class Properties
    5. Private _objDoc As Word.Document
    6. Private _KeyWords As New Dictionary(Of String, String)
    7. Public Sub New(objDoc As Word.Document)
    8. _objDoc = objDoc
    9. _KeyWords = GetKeywords
    10. End Sub
    12. ''' <summary>
    13. ''' Auslesen der übergebenen Keywords
    14. ''' </summary>
    15. ''' <returns></returns>
    16. Public ReadOnly Property GetKeywords() As Dictionary(Of String, String)
    17. Get
    18. Dim Result As New Dictionary(Of String, String)
    20. ' Quelle: https://foren.activevb.de/archiv/vb-net/thread-106637/beitrag-106645/Re-Setzen-von-Dokumenteneigensc/
    21. Dim BuiltInProps As Object = _objDoc.BuiltInDocumentProperties
    22. Dim typeDocBuiltInProps As Type = BuiltInProps.GetType()
    24. Dim CommentsProp As Object = typeDocBuiltInProps.InvokeMember("Item", BindingFlags.Default Or
    25. BindingFlags.GetProperty, Nothing,
    26. BuiltInProps, New Object() {Word.WdBuiltInProperty.wdPropertyKeywords})
    27. Dim typeKeyWordsProp As Type = CommentsProp.GetType()
    29. Try
    30. Dim textKeywordsProp As String = typeKeyWordsProp.InvokeMember("Value", BindingFlags.Default Or BindingFlags.GetProperty,
    31. Nothing, CommentsProp, New Object() {}).ToString()
    33. ' Aufsplitten der Daten
    34. Dim KeyValue As String() = textKeywordsProp.Split({"|"}, StringSplitOptions.RemoveEmptyEntries)
    35. For i As Integer = 0 To KeyValue.Count - 1
    36. Dim Data As String() = KeyValue(i).Split({":="}, StringSplitOptions.RemoveEmptyEntries)
    37. If Data.Count = 2 Then
    38. If String.IsNullOrEmpty(Data(1)) = False Then 'Wert belegt - leere Keys werden nicht übernommen
    39. If Result.ContainsKey(Data(0)) = False Then ' keine Doppelbelegung möglich; werden nicht überschrieben
    40. Result.Add(Data(0), Data(1))
    41. End If
    42. End If
    43. End If
    44. Next
    46. Catch
    47. End Try
    49. _KeyWords = Result
    50. Return Result
    51. End Get
    52. End Property
    54. End Class



    Es wird mit der Initalisierung ein Teil der Doc-Properties (Keyword) ausgelesen und analysiert.

    Nun kann es vorkommen, dass mehrere Dokumente geöffnet werden und zwischen den Dokumenten auch gewechselt wird.

    Beim aufrufen einer bestimmten Funktion wird diese Klasse initalisiert und wenn dann dieses Dok einmal wieder aktiviert wird, dann sollen diese Daten weiter zur Verfügung stehen ohne neu initalisieren zu müssen.

    Gruß Jan

Facebook
Telefonspende