Makro zur Abfrage von Faxnummern

03/04/2008 - 16:23 von Marco | Report spam
Hallo NG,

Ich habe hier ein Problem mit der Erstellung eines Makros in Word 2003 SP3.

Ich bin auf der Suche nach einer Funktion, die beim klicken eines Buttons in
Word eine Abfrage bzw ein UserForm startet, indem ich eine Telefaxnummer
eingeben kann, und diese mit Ok bestàtige. Diese Nummer sollte an eine
Variable übergeben werden, die ich dann auf dem Dokument nutzen kann als
Feld DocVariable. Die übergebene Nummer muss als bestimmte Schrift
formatiert sein. Mein Ansatz war so:

Sub fanummer()

nummer = InputBox("Bitte geben Sie die Faxnummer des Empfàngers ein!")

End Sub

Vielen Dank für eure Hilfe,
Marco
 

Lesen sie die antworten

#1 Helmut Weber
04/04/2008 - 13:40 | Warnen spam
Hallo Marco,

vielleicht so:

Sub FaxNummer()
Dim Nummer As String
Dim oFld As Field
ActiveDocument.Variables("Fax").Delete
Nummer = InputBox("Bitte geben Sie die Faxnummer des Empfàngers ein!")
ActiveDocument.Variables("Fax").Value = Nummer
ActiveDocument.Fields.Update
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldDocVariable And _
InStr(oFld.Code, " Fax ") > 0 Then
oFld.Result.Font.Name = "Arial"
End If
Next
End Sub


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen