|
Muss mich leider doch noch mal zu dieser Anfrage melden.
Beim heutigen Arbeiten mit dem Dokument ist mir aufgefallen, dass es scheinbar doch nicht so ganz hinhaut. Ev. hat das aber erst das letzte Office-Update angerichtet. Ich meine, es hat vorher funktioniert.
Folgender Code:
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)
'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
End Function
ABFRAGE läuft problemlos durch, fragt beide Werte ab und setzt sie an die, jeweils 2, richtigen Textmarken. Das Druckmenü öffnet sich und ich klicke auf Drucken.
Sobald ich auf Drucken geklickt habe, schließt sich das Druckmenü, und an die jeweils zweite Textmarke (Betrag1 & RENr1) werden die Werte erneut eingetragen und an den Drucker mitübergeben.
Wenn ich das öffnen des Druckmenüs aus dem Code rausnehme fragt er die Werte ab & setzt sie ein. Gehe ich dann auf DATEI-DRUCKEN fügt er ebenfalls wieder die beiden Werte ein - aber erst nach klicken auf den Befehl Drucken. Ich sehe die Werte also schon in der Druckvorschau.
Ich kann so oft ich will auf DATEI klicken und wieder aus dem Menü rausgehen, da passiert nichts. Aber DRUCKEN bringt mein Word dazu die jeweils zweiten Textmarken erneut einzufügen.
Ich habe es mit dem ursprünglichen Makro probiert, aus meinem ersten Post - Da passiert das nicht.
Es scheint also am ReSetBookmark zu liegen.
Hat jemand eine Idee?
|