View Single Post
 
Old 10-14-2021, 10:41 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

If your document follows the same pattern as the demo you attached, this code will convert its contents.
Code:
Sub Macro1()
  Dim sText As String, arrText() As String, i As Long, aRng As Range
  With ActiveDocument
    For i = .Paragraphs.Count To 1 Step -1
      Set aRng = .Paragraphs(i).Range
      sText = aRng.Text
      arrText = Split(sText, """")
      If UBound(arrText) > 14 Then
        aRng.Text = arrText(9) & Chr(11) & arrText(3) & Chr(11) & arrText(15) & Chr(11) & arrText(1) & vbCr
      End If
    Next i
  End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote