Automatische aktuelle Datumsangabe

[koter]

Hallo Siggi,

Mit einer kleinen Ergänzung sollte es möglich sein, alle Seiten zu bearbeiten:

Code:

Sub UpdateDateAndExport3()
   Dim PDFEinst As PDFVBASettings
   Dim currentDate As String, PDFName As String, FormatString As String
   Dim x As Shape
   Dim S As Page
   Dim xR  As ShapeRange, xRall As New ShapeRange
   Dim ds() As String
   
   If Documents.Count < 1 Then Exit Sub 'Abbrechen falls kein Dokument vorhanden ist
   Set PDFEinst = ActiveDocument.PDFSettings
   
   ' Aktuelles Datum im Format "DD.MM.YY"
  currentDate = Format(Date, "DD.MM.YY")
 
  For Each S In ActiveDocument.Pages 'Auf allen Seiten suchen
       Set xR = S.Shapes.FindShapes(Query:="@com.name.StartsWith('DatumHeute')")
       xRall.AddRange xR
  Next
 
  For Each x In xRall
      ' Überprüfen, ob die Form den Namen "DatumHeute" hat
      If x.Name = "DatumHeute" Then
          x.Text.Story = currentDate
          ElseIf Left(x.Name, 10) = "DatumHeute" Then ' Überprüfen, ob der Name der Form mit "DatumHeute" beginnt
          ds = Split(x.Name, "(")
          FormatString = Left(ds(1), Len(ds(1)) - 1)
          x.Text.Story = Format$(Date, FormatString)
          FormatString = ""
      End If
  Next

  ' Dokument speichern
  ActiveDocument.Save

  PDFName = DateiDialog
  If PDFName = "" Then Exit Sub 'Abbrechen falls kein Name übergeben wurde
  If Not PDFEinst.ShowDialog Then Exit Sub 'Abbrechen falls Abbrechen gewählt wurde
  ActiveDocument.PublishToPDF PDFName

End Sub

Falls es mit Deiner Version nicht klappt, melde Dich noch einmal.
Es könnte nützlich sein, Deine Version in der Signatur zu erwähnen.

Gruß

Koter