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

Guessed · #2 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

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