Wenn Sie mit Formularen arbeiten, speichern Sie die Formulare als Vorlagen, die als Grundlage für neue Dokumente in Word verwendet werden. Es kann vorkommen, dass Sie ein Formularfeld hinzufügen möchten, das jedes Mal erhöht wird, wenn Sie ein neues Dokument basierend auf Ihrer Formularvorlage erstellen. Beispielsweise haben Sie möglicherweise eine Sequenznummer, die Sie für ein Dateneingabeformular benötigen, oder Sie möchten ein Formularfeld verwenden, um eine invoice anzugeben. Nummer.

Word hat keine ausgefallenen Felder für die automatische Inkrementierung. Durch Kombinieren einiger der bereits in Word verfügbaren Tools können Sie jedoch eine Vorlage und ein Formularfeld erstellen, um den Trick für Sie zu erledigen. Beginnen Sie mit diesem Makro:

Sub AutoNew()

' Exit macro if no fields in document    If ActiveDocument.FormFields.Count = 0 Then Exit Sub    ' Create variables.

Dim OfficeAppName As String    Dim RegSection As String    Dim RegKey As String    Dim FieldObj As Object    Dim RegValue As Long

OfficeAppName = "Word 2002"

RegSection = "UserData"

RegKey = "Current Counter"

' Generate error if form field doesn't exist    On Error GoTo ErrHandler    Set FieldObj = ActiveDocument.FormFields("IncField")

' Get stored registry value, if any    RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)

' If not previously set, set to default    If RegValue = 0 Then RegValue = 1    ' Set form field result to stored value    FieldObj.Result = CStr(RegValue)

' Increment and update invoice number    SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1 ErrHandler:

If Err <> 0 Then       MsgBox Err.Description    End If End Sub

Dieses Makro sollte nur in der Vorlage gespeichert werden, mit der Sie Ihre Formulare erstellen. Das Makro muss AutoNew heißen, damit es ausgeführt wird, wenn ein Dokument erstellt wird, das auf der Formularvorlage basiert. Sie sollten auch sicherstellen, dass Ihr Dokument ein Textformularfeld mit dem Namen IncField enthält, in dem die inkrementelle Nummer angezeigt wird. Die Nummer wird in der Registrierung nachverfolgt, damit für zukünftige Formulare darauf zugegriffen werden kann.

Beachten Sie die Zeile im Makro, in der die Variable OfficeAppName festgelegt ist. In dieser Version des Makros wird der Ausdruck „Word 2002“ verwendet. Wenn Sie eine andere Version von Word verwenden, sollten Sie diese Zeile so ändern, dass sie auf Ihre Version verweist, z. B. „Word 2000“ oder „Word 2003“.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1329) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Auto-inkrementierende Formularfelder.