Hi,
ich hoffte, dass ich in VB ein Makro schreibe (aufzeichne), womit ich einen markierten Begriff "X" aus einem Shape "S" kopiere, in die Suche einfüge und
wenn in Shape "T" gefunden, fett drucken lasse.
Nun bekomme ich aber immer wieder den Wert in "T" markiert, welchen ich markiert habe, bevor ich das Aufzeichnen mit kopieren begonnen habe, auch wenn ich nun einen Begriff "Y" in "S" markiere.
Wie könnte man dass den umsetzen, dass der aktuell in "S" markierte Wert behandelt wird.
p.s. wenn der Wert nicht gefunden wird, dann soll auch nichts "augenscheinliches" :-| passieren .
Danke, danke
BK
Aufgezeichnetes Makro:
Sub Macro1()
' Tastenkombination: Strg+p
'
Dim UndoScopeID2 As Long
UndoScopeID2 = Application.BeginUndoScope("Fett")
Dim vsoCharacters1 As Visio.Characters
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(351).Characters
vsoCharacters1.Begin = 50
vsoCharacters1.End = 61
vsoCharacters1.CharProps(visCharacterStyle) = 17#
Application.EndUndoScope UndoScopeID2, True
End Sub
Begriff markiert+kopiert-->Aufzeichnung gestartet-->Shape "T" ausgewählt-->Suchmaske geöffnet (Suche in Auswahl")-->strg-v-->Suche-->gefundenen Begriff "X" in "T" fett markiert. |