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

bracketandquotes · #16 02-16-2015, 07:38 AM

It works

. Many thanks Graham for taking the time and having the patience to do up the code.

Many thanks also to Andrew and Paul for taking the time to do up the codes.

You all have been a great help on this

David

macropod · #17 02-16-2015, 12:54 PM

Quote:

Originally Posted by bracketandquotes

Ive attached a sample doc as original is too big.

Your sample document has tabs, not spaces, between the strings. Do you want tabs, or spaces, in the output?

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