Re: Search text variable and replace it with another text variable

Hi!

I write the following code(Sorry it isn't VBScript, but VBA).

It seems to work...

But I am not sure whether the code is OK.

Can you give me some advices?

---------------------------------------------------------------------- ---------------

      idApp.FindTextPreferences = idNothing

      idApp.FindChangeTextOptions.IncludeFootnotes = True

      idApp.FindChangeTextOptions.IncludeHiddenLayers = False

      idApp.FindChangeTextOptions.IncludeLockedLayersForFind = False

      idApp.FindChangeTextOptions.IncludeLockedStoriesForFind = False

      idApp.FindChangeTextOptions.IncludeMasterPages = False

      idApp.FindChangeTextOptions.KanaSensitive = False

      idApp.FindChangeTextOptions.WidthSensitive = False

      idApp.FindTextPreferences.FindWhat = "^u"     ' custom text variable

      Set foundItems = idDoc.FindText

      If foundItems.Count > 0 Then

        For i = 1 To foundItems.Count

          Set idTxtVarInstnce = foundItems.Item(i).TextVariableInstances(1)

          If idTxtVarInstnce.Name = TxtVarA.Name Then

            idTxtVarInstnce.AssociatedTextVariable = TxtVarB

          End If

        Next

      End If

      TxtVarA.Delete

      idApp.FindTextPreferences = idNothing

---------------------------------------------------------------------- ---------------

Thanks.

erieru103