Word Wert und Funktion eines Feldes ändern

  • Word

    Word Wert und Funktion eines Feldes ändern

    Guten Morgen,

    bin gerade dabei meine Word Dokumente neu zuordnen.
    Dabei ist mir aufgefallen, da ich vor Jahren in meinen Briefen, ein Feld für das Datum hatte.
    In diesem Feld wird nach dem Öffnen des Dokuments immer das aktuelle Datum angezeigt.
    Es ist leider kein Bookmaker.
    Selektiere ich das Feld zeigt mir der Makro: ActiveDocument.Shapes("Text Box 2").Select

    Nun möchte ich gerne mit VB Net diesem Feld das korrekte Datum (ist in einer Datenbank hinterlegt) zuweisen und gleichzeitig die Funktion
    (aktuelles Tagesdatum bei Dokumentöffnung) löschen.

    Folgenden Code habe ich bereits:

    VB.NET-Quellcode

    1. Public Sub Dokument_DatumBereinigen(ByVal Datei As String, ByVal Datum As String)
    3. If Not IO.File.Exists(Datei) Then Exit Sub
    5. Me.WordApp = New Word.Application
    6. Me.WordDokument = New Word.Document
    7. Me.WordDokument = WordApp.Documents.Open(Datei.ToString)
    8. Me.WordDokument.Activate()
    9. With Me.WordApp
    10. .DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
    11. .WindowState = Word.WdWindowState.wdWindowStateMinimize
    12. .Visible = False
    13. End With
    15. Dim AufgabeErledigt As Boolean = False
    16. Dim DokumentDatum As Date = CDate(Datum)
    17. Dim DokumentTag As String = Func.WochentagName(DokumentDatum.DayOfWeek)
    18. Dim DokumentEintrag As String = DokumentTag & ", den " & DokumentDatum.ToLongDateString
    20. Try
    21. ' Neue Briefe und Faxe
    23. With WordDokument.Bookmarks
    24. .Item("Datum").Range.Text = DokumentEintrag
    25. End With
    27. AufgabeErledigt = True
    29. Catch ex As Exception
    30. End Try
    32. If Not AufgabeErledigt Then
    34. Try
    35. ' Alte Briefe und Faxe
    36. WordDokument.Shapes("Text Box 2").Select()
    38. Catch ex As Exception
    39. MsgBox(ex.Message)
    40. End Try
    42. End If
    44. WordDokument.Save()
    45. WordApp.ActiveDocument.Close()
    46. WordApp.Quit()
    47. WordDokument = Nothing
    49. ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Me.WordApp)
    50. Me.WordApp = Nothing
    52. End Sub

    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

Facebook
Telefonspende