Markierungsrahmen

[koter]

Hallo Günther,

Du kannst das Makro ja mal testen, ich hoffe ich habe den Ablauf richtig verstanden.
Die einzelnen Schritte habe ich als Kommentare in den Code geschrieben:

Code:

Sub Ablauf1()
   Dim nd As New Document
   If ActiveDocument.Mask.IsEmpty Then 'prüfen ob eine Maske vorhanden ist
       MsgBox "Bitte zuerst eine Maske erstellen !", vbCritical, "Fehlende Maske" 'Meldung wenn keine Maske vorhanden ist
       Exit Sub 'beenden wenn keine Maske vorhanden ist
   End If 'Ende der Prüfung
   ActiveDocument.Background.Copy ' kopieren
   Set nd = Application.CreateDocumentFromClipboard ' neues Dokumentaus der Zwischenablage erstellen
   'nd.AddBackground 'Hintergrund hinzufügen
   SendKeys "o", True 'Tastaturanschlag "o" senden um das Hilfsmittel Objektauswahl zu aktivieren
   SendKeys "%v" ' 'Tastaturanschlag "Alt+v" senden um den Verzerrungsmodus zu aktivieren
End Sub

Die letzten beiden Befehle senden Tastaturanschläge. Leider kenne ich keine andere Möglichkeit um Hilfsmittel auszuwählen.

Der Letzte Tastaturanschlag ist Alt+v. Diese Tastenkombination habe ich für den Verzerrungsmodus vergeben.
Das müsstest Du auch machen, damit es funktioniert.
Du kannst natürlich auch eine andere Tastenkombination wählen, das Makro müsste dann entsprechend geändert werden.

Den Befehl „nd.AddBackground“ habe ich auskommentiert, er wird also nicht ausgeführt.
Falls Du ihn verwenden willst, musst Du das Kommentarzeichen vor dem Befehl entfernen.

Bei mir arbeitet das Makro so:



Ich nehme an, das Du eine Maske meinst, wenn Du von „Rahmen“ sprichst.

Gruß

Koter