Using Find & Replace in Word instead of GREP Function in Adobe Indesign

Guessed · #1 10-14-2021, 04:25 PM

Assuming your don't want to deal with xml-based code and the attribute order is always consistent, you could use something like this to extract the content

Code:

Sub Macro1()
  Dim sText As String, arrText() As String, i As Integer, sOutput As String
  sText = ActiveDocument.Paragraphs(1).Range.Text
  arrText = Split(sText, """")
'  For i = LBound(arrText) To UBound(arrText)
'    Debug.Print i, arrText(i)
'  Next i
  sOutput = arrText(9) & vbLf & arrText(3) & vbLf & arrText(15) & vbLf & arrText(1)
  Debug.Print sOutput
End Sub

Jakov93 · #2 10-14-2021, 07:20 PM

Quote:

Originally Posted by Guessed

Assuming your don't want to deal with xml-based code and the attribute order is always consistent, you could use something like this to extract the content

Firstly, thank you for your reply
Secondly, dear Andrew, after running your macro, no changes happen.
Thirdly, the numbers inside parenthesis in your code, what represent?:

Code:

sOutput = arrText(9) & vbLf & arrText(3) & vbLf & arrText(15) & vbLf & arrText(1)

because I want to add additional attributes such as "Type".
Lastly, do you want to attach a demo file?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Some text are missing while importing into Adobe InDesign	Muthukumaran	Word	2	07-23-2019 11:30 PM
Function in a Macro used to Find & Replace	koehlerc14	Word VBA	3	02-15-2019 11:59 AM
Find and Replace function shooting off screen to the left of the document	Mattblack	Word	1	04-10-2014 03:06 PM
Indesign Table to MS word for Editing	Kathy Neal	Word Tables	1	01-15-2013 07:56 AM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM