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

gmayor · #1 02-16-2015, 06:29 AM

In my original code the paragraph is split with

Code:

vWord = Split(oRng.Text, Chr(32))

i.e. it splits at the space character 'Chr(32)' between the 'words'. However it can only split at spaces if there are spaces, and if you don't get the commas and single quotes, the 'spaces' are not space character 32, but probably non-breaking spaces 'Chr(160)'.

Change the 32 to 160 and see if that fixes it. If not, then, as Andrew indicates, we need to see a document sample.

bracketandquotes · #2 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

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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