Public Sub Main()
ABFRAGE
End Sub
Public Sub ABFRAGE()
IBox1 = InputBox("Betrag:")
IBox1 = Format(IBox1, "##,##0.00")
ReSetBookmark "Betrag", IBox1
ReSetBookmark "Betrag1", IBox1
IBox2 = InputBox("Rechnungs-Nr:")
ReSetBookmark "RENr", IBox2
ReSetBookmark "RENr1", IBox2
Dialogs(wdDialogFilePrint).Show
End Sub
Function ReSetBookmark(ByVal TMName As String, ByVal TMInhalt As String)
Dim bm As Bookmark
Dim rng As Range
If ActiveDocument.Bookmarks.Exists(TMName) Then
Set bm = ActiveDocument.Bookmarks(TMName)
Set rng = bm.Range
rng.Text = TMInhalt
ActiveDocument.Bookmarks.Add Name:=TMName, Range:=rng
End If
Set rng = Nothing
Set bm = Nothing
End Function