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:
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
- Public Sub Dokument_DatumBereinigen(ByVal Datei As String, ByVal Datum As String)
- If Not IO.File.Exists(Datei) Then Exit Sub
- Me.WordApp = New Word.Application
- Me.WordDokument = New Word.Document
- Me.WordDokument = WordApp.Documents.Open(Datei.ToString)
- Me.WordDokument.Activate()
- With Me.WordApp
- .DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
- .WindowState = Word.WdWindowState.wdWindowStateMinimize
- .Visible = False
- End With
- Dim AufgabeErledigt As Boolean = False
- Dim DokumentDatum As Date = CDate(Datum)
- Dim DokumentTag As String = Func.WochentagName(DokumentDatum.DayOfWeek)
- Dim DokumentEintrag As String = DokumentTag & ", den " & DokumentDatum.ToLongDateString
- Try
- ' Neue Briefe und Faxe
- With WordDokument.Bookmarks
- .Item("Datum").Range.Text = DokumentEintrag
- End With
- AufgabeErledigt = True
- Catch ex As Exception
- End Try
- If Not AufgabeErledigt Then
- Try
- ' Alte Briefe und Faxe
- WordDokument.Shapes("Text Box 2").Select()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End If
- WordDokument.Save()
- WordApp.ActiveDocument.Close()
- WordApp.Quit()
- WordDokument = Nothing
- ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Me.WordApp)
- Me.WordApp = Nothing
- End Sub
Gruß Markus
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()