Microsoft Office Forums - View Single Post - [Solved] macro to add brackets to each line and add single quotes to each word in the line

Guessed · 02-15-2015, 04:49 PM

Does this work?

Code:

Dim oPara As Paragraph
Dim oRng As Range, oParaRng As Range

Set oRng = ActiveDocument.Range
oRng.Text = Replace(oRng.Text, " ", Chr(39) & ", " & Chr(39))
For Each oPara In oRng.Paragraphs
  Set oParaRng = oPara.Range
  oParaRng.MoveEnd Unit:=wdCharacter, Count:=-1
  oParaRng.Text = "('" & oParaRng.Text & "'),"
Next oPara