Thema Datum  Von Nutzer Rating
Antwort
Rot Ausführung Makro in Word bei "Speichern unter"
 15.03.2017 12:43:01 Dan
NotSolved
19.03.2017 20:23:27 BigBen
NotSolved
19.03.2017 20:28:50 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Dan		 Datum:
15.03.2017 12:43:01		 Views:
1246		 Rating:
     
Antwort:
  Ja
Thema:
Ausführung Makro in Word bei "Speichern unter"

Hallo zusammen,

ich möchte, dass die Felder "Filename" in Word in der Fußzeile sich beim Speichern automatisch aktualisieren.

Hierzu verwendete ich folgenden Code (den ich mir zusammenkopiert habe), der jedoch nur beim "Speichern"; jedoch nicht beim "Speichern unter" funktioniert.

Hat jemand eine Idee was ich falsch mache? Vielen Dank vorab!!

Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforeSave _
 (ByVal Doc As Document, _
 SaveAsUI As Boolean, _
 Cancel As Boolean)
Call Aktualisieren    
 End Sub

Sub Aktualisieren()

Dim rngDoc As Range
Dim oDoc As Document
Dim docSec As Section
Dim oHF As HeaderFooter
Dim shp As Shape
Set oDoc = ActiveDocument
For Each docSec In oDoc.Sections
  For Each oHF In docSec.Headers
    For Each shp In oHF.Shapes
        With shp.TextFrame
          If .HasText Then
            .TextRange.Fields.Update
          End If
        End With
    Next shp
  Next oHF
  For Each oHF In docSec.Footers
    For Each shp In oHF.Shapes
        With shp.TextFrame
          If .HasText Then
            .TextRange.Fields.Update
          End If
        End With
    Next shp
  Next oHF
  For Each rngDoc In oDoc.StoryRanges
    rngDoc.Fields.Update
    While Not (rngDoc.NextStoryRange Is Nothing)
      Set rngDoc = rngDoc.NextStoryRange
      rngDoc.Fields.Update
    Wend
  Next rngDoc
Next docSec
Set rngDoc = Nothing
Set oDoc = Nothing

End Sub
 
Viele Grüße
 
Dan

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ausführung Makro in Word bei "Speichern unter"
 15.03.2017 12:43:01 Dan
NotSolved
19.03.2017 20:23:27 BigBen
NotSolved
19.03.2017 20:28:50 BigBen
NotSolved