Fortlaufende Versionsnummer in Word 2003

  • #1
K

Kakadus

Bekanntes Mitglied
Themenersteller
Dabei seit
19.07.2001
Beiträge
192
Reaktionspunkte
0
Salutti.

Weiss jemand, ob und wie man in einem Word 2003-Dokument ein Feld einfügen kann, das die Versionsnummer automatisch nach jeder Speicherung des Dokumentes um einen Zähler erhöht?

Danke und Gruss
Ronny
 
  • #2
Hallo Ronny,

was meinst Du denn mit Versionsnummer ?

a) einfach eine laufende Nummer, die bei jeder Speicherung hochgezählt wird ?

b) Nummer der Speicherung als Version (die man sich auch wieder anschauen kann)
Dialog-Version unter Datei->Version->...

Für a) ist es das Feld Überarbeitungsnummer.

Gruß Matjes :)
 
  • #3
Salü Matjes

Die Variante a) würde schon genügen...

Aber auch Variante b (mit Datei-Version) wäre sehr gut...

Danke.
Ronny
 
  • #4
wie heisst das Feld genau? In Englisch?

Thänks!
;)
 
  • #6
Danke. Habe den Link ich gleich auf meiner Homepage () erfasst...

Und der Tipp für Variante b) folgt nach/noch?

Thänks und schönen Abend.
Ronny
 
  • #7
Hallo Ronny,

zu b) Dialog Version...

Mit diesem Dialog kannst du in einem Dokument mehrere Versionen führen / speichern. Die kann man sich immer wieder anzeigen lassen und bei Bedarf auch nachträglich als extra Dokument speichern.

Eine Version legt man an mit  Datei->Version...->Jetzt speichern
(in Word97, bei Word2003 müßte es ähnlich sein)

Die Anzahl der Versionen sind leider nicht als Feld zugänglich. Drum hab ich dir einen Makro gestrickt, der diesen Versionsdialog abfängt und selbst aufruft. Wenn der Aufruf positiv verlaufen ist, also eine neue Version angelegt wurde, schreibt der Makro die neue Versionsanzahl in eine Schreibmarke. In diesem Beispiel hat die Schreibmarke den Namen TM_myVersion. Du kannst den Namen der Textmarke auch anders wählen. Mußt nur  die Konstante im Makro entsprechend modifizieren.

Der Makro muß in der Code-Seite->ThisDocument' liegen.

Gruß Matjes :)
Code: 
Sub FileVersions()
 ->Dialog Version... abfangen und selber aufrufen

  Const c_NameTextmarke = TM_myVersion
  Dim ret As Integer, r As Range
  
  
 ->pruefen, ob Textmarke vohanden ist
  On Error Resume Next
  Set r = ActiveDocument.Bookmarks(c_NameTextmarke).Range
  If Err.Number <> 0 Then Err.Clear
  On Error GoTo 0
  
 ->Versionsdialog aufrufen
  ret = Dialogs(wdDialogFileVersions).Show
  
 ->Version wurde gespeichert und Textmarke vorhanden?
  If (ret = 0) And (Not r Is Nothing) Then
   ->neue Version in TM schreiben
    r.Text = ActiveDocument.Versions.Count
   ->Textmarke restaurieren
    ActiveDocument.Bookmarks.Add Name:=c_NameTextmarke, Range:=r
   ->Änderung sichern
    ActiveDocument.Save
  End If

AUFRAEUMEN:
  Set r = Nothing
End Sub
 
  • #8
Hallo  Matjes   :)~

Super Sache die du gestrickt hast  :1

War genuau auf der Suche nach dem....................und siehe da, gefunden und angewendet  ::)

Von mir vielen tausend Dank :T

Freundliche Grüsse bebbi
 
Thema:

Fortlaufende Versionsnummer in Word 2003

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums

Themen
113.840
Beiträge
707.965
Mitglieder
51.494
Neuestes Mitglied
Flensburg45
Oben