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-16-2015, 03:51 PM

And based on your new information of the tab separator, my suggestion would be

Code:

Sub SQLiser()
  Dim oPara As Paragraph
  Dim oRng As Range, oParaRng As Range
  
  Set oRng = ActiveDocument.Range
  oRng.Text = Replace(oRng.Text, vbTab, "', '")
  For Each oPara In oRng.Paragraphs
    Set oParaRng = oPara.Range
    oParaRng.MoveEnd Unit:=wdCharacter, Count:=-1
    oParaRng.Text = "('" & oParaRng.Text & "'),"
  Next oPara
End Sub