---

Hi, ich kenne mich mit VBA aus und programmiere relativ viel damit, ein Kollege hat ein Problem mit Microstation wo er Text suchen und ersetzen will.
Ich habe mit MicrostationMakro ein Makro aufgenommen, aber ich kenne mich halt in VBA besser aus, könnt ihr mir helfen das Suchen-Ersetzen Szenario in VBA zu erstellen?

Der Code im MicrostationMakro sieht so aus:

Code:

---

MbeSendCommand 'MDL KEYIN FINDREPLACETEXT,CHNGTXT CHANGE DIALOGTEXT'
MbeSendKeyin "FIND DIALOG SEARCHSTRING 123"
MbeSendKeyin "FIND DIALOG REPLACESTRING ABC"
MbeSendKeyin "CHANGE TEXT FIND"
MbeSendKeyin "CHANGE TEXT CHANGE"

MbeSendKeyin "FIND DIALOG SEARCHSTRING 456"
MbeSendKeyin "FIND DIALOG REPLACESTRING DEF"
MbeSendKeyin "CHANGE TEXT FIND"
MbeSendKeyin "CHANGE TEXT CHANGE"

MbeSendKeyin "FIND DIALOG SEARCHSTRING 789"
MbeSendKeyin "FIND DIALOG REPLACESTRING GHI"
MbeSendKeyin "CHANGE TEXT FIND"
MbeSendKeyin "CHANGE TEXT CHANGE"

---

Danke schon einmal für Eure Hilfe!

Gruß Alex

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, ich habe den VBA Recorder gefunden damit war es dann kein
Problem:

Code:

---

Sub Macro1()
    Dim startPoint As Point3d
    Dim point As Point3d, point2 As Point3d
    Dim lngTemp As Long

'  Befehl starten
    CadInputQueue.SendCommand "MDL KEYIN FINDREPLACETEXT,CHNGTXT CHANGE DIALOGTEXT"

'  Eingabe senden, die eine Befehlszeichenfolge sein kann.
    CadInputQueue.SendKeyin "FIND DIALOG SEARCHINCELLS True"

    CadInputQueue.SendKeyin "FIND DIALOG ZOOM True"

    CadInputQueue.SendKeyin "FIND DIALOG ZOOMLEVEL 16"

    CadInputQueue.SendKeyin "FIND DIALOG SEARCHSTRING 30263"

    CadInputQueue.SendKeyin "FIND DIALOG SEARCHSTRING 1413"

    CadInputQueue.SendKeyin "FIND DIALOG REPLACESTRING 11111"

    CadInputQueue.SendKeyin "CHANGE TEXT FIND"

    CadInputQueue.SendKeyin "CHANGE TEXT CHANGE"

    CommandState.StartDefaultCommand
End Sub

---

Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP