|
Hallo,
ich bin VBA Neuling und stecke fest.
Ich habe ein Marko laufen, dass 2 Werte abfragt, diese an jeweils 2 Stellen einfügt und danach das Druckmenü öffnet. Funktioniert Prima.
Jetzt möchte ich das insofern erweitern, dass nach dem Drucken das Makro von vorne beginnt, die Werte erneut abfragt und einfügt.
Damit das hinhaut müssten jedoch vorher die Inhalte der Booksmarks gelöscht werden.
Ich habe Tante Gugl bemüht, blicke mich jedoch nicht durch da ich zu wenig Ahnung von VBA habe und daher den gefundenen Code nicht auf meine Variablen umändern kann.
Mein aktuelles Script:
Public Sub Main()
IBox1 = InputBox("Betrag:")
IBox1 = Format(IBox1, "##,##0.00")
ActiveDocument.Bookmarks("Betrag").Range.Text = IBox1
ActiveDocument.Bookmarks("Betrag1").Range.Text = IBox1
IBox2 = InputBox("Rechnungs-Nr:")
ActiveDocument.Bookmarks("RENr").Range.Text = IBox2
ActiveDocument.Bookmarks("RENr1").Range.Text = IBox2
Dialogs(wdDialogFilePrint).Show
End Sub
Zum Bookmarks leeren hätte ich folgenden Code gefunden, kann ihn allerdings nicht passend einbauen.
ReSetBookmark(ByVal TMName As String, ByVal TMInhalt As String)
'Recycling-Textmarke mit ?bernommenen Werten, geht f?r alle Textmarken
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
Vielleicht kann mir hier jemand helfen.
Danke jedenfalls im Voraus
|