macro to add brackets to each line and add single quotes to each word in the line

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How many points is line spacing 'single'?	Ugeen	Word	2	11-24-2013 03:14 PM
Changing single-quotes to double-quotes	Bobosmite	Word	5	04-15-2013 06:40 AM
From the command line, how do I run a Word macro?	jdockstader	Word	7	02-04-2013 06:09 AM
Single Line Spacing for Short Lists?	tatihulot	Word	2	04-20-2010 02:53 PM
Different alignments in a single line	George99	Word	2	01-24-2010 05:49 PM