AnsweredAssumed Answered

Replace specific text (not Search/Replace)??

Question asked by Patrick Malone on Oct 20, 2015
Latest reply on Oct 23, 2015 by Patrick Malone

I have several pieces of text in a title block that I want to change.

I tried doing a record macro and it doesn't do it completely.

When I run the macro, I see it touch each piece of text in succession so

I am part way there. (Trying a different method than the search/replace

because I cannot assume the text value I am replacing is constant.)

I do know what it needs to be though...


I am looking into how to do a 'DoReplaceString strNote01.. for each item (boolstatus = item lines below)

that I want changed but do not know how to incorporate that function into my code.

(Admitting to being a total novice-wannabe-newbie programmer)

I am as interested in learning how to do this as much as getting it to work...


This is what I recorded and edited.

Adding my variables (the "mytext1" items will be replaced with the actual text I am to use of course)


Am I close or way off here?


Any help is appreciated!!


= = = = = == = == = == = == = == = == = == = == = == = == = =


Dim swApp As Object


Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long


Dim strNote01 As String = "mytext1"

Dim strNote02 As String = "mytext2"

Dim strNote03 As String = "mytext3"

Dim strNote04 As String = "mytext4"

Dim strNote05 As String = "mytext5"


Sub main()


Set swApp = _



Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.544872734994015, 6.84439369661325E-02, 0, False, 0, Nothing, 0)



Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("DetailItem2173@Sheet Format11", "NOTE", 0.551409013785214, 7.55404682251479E-02, 0, False, 0, Nothing, 0)


'Hoping I can replace the text selected here with my "mytext" item....


Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("DetailItem2172@Sheet Format11", "NOTE", 0.552529518720848, 6.84439369661325E-02, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("DetailItem2171@Sheet Format11", "NOTE", 0.555144030237327, 6.09739040619058E-02, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("DetailItem2170@Sheet Format11", "NOTE", 0.542258223477536, 5.68653859645811E-02, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("DetailItem2164@Sheet Format11", "NOTE", 0.57269860756226, 3.33347823162669E-02, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True




End Sub