Thema Datum  Von Nutzer Rating
Antwort
Rot Bookmarks leeren
02.10.2019 14:48:31 Bernhard
NotSolved
02.10.2019 14:52:28 Bernhard
NotSolved
02.10.2019 22:31:29 Gast35939
*****
NotSolved
05.10.2019 17:33:00 Bernhard Haunold
NotSolved
12.10.2019 17:03:42 Bernhard
NotSolved
12.10.2019 17:29:11 Gast35939
NotSolved
12.10.2019 18:29:51 Gast18156
NotSolved
14.10.2019 20:54:24 Bernhard
NotSolved
15.10.2019 09:26:18 Gast35939
NotSolved
15.10.2019 09:29:42 Gast35939
NotSolved

Ansicht des Beitrags:
Von:
Bernhard
Datum:
02.10.2019 14:48:31
Views:
77
Rating: Antwort:
  Ja
Thema:
Bookmarks leeren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Bookmarks leeren
02.10.2019 14:48:31 Bernhard
NotSolved
02.10.2019 14:52:28 Bernhard
NotSolved
02.10.2019 22:31:29 Gast35939
*****
NotSolved
05.10.2019 17:33:00 Bernhard Haunold
NotSolved
12.10.2019 17:03:42 Bernhard
NotSolved
12.10.2019 17:29:11 Gast35939
NotSolved
12.10.2019 18:29:51 Gast18156
NotSolved
14.10.2019 20:54:24 Bernhard
NotSolved
15.10.2019 09:26:18 Gast35939
NotSolved
15.10.2019 09:29:42 Gast35939
NotSolved