Bonjour,

Dans son message, < Poster > ?crivait :
In this message, < Poster > wrote:

of

Dealing with lines in Word can be tricky as they do not really exists as
objects in the VBA model (Neither do pages).

Are these one-word line as in your examples? Are you talking about
paragraphs with wrapped lines? Was "Enter" hit to end each line?

Assuming that each of your lines is a single-word paragraph, you can simply
use Find and Replace, manually or via VBA. With 'Use wildcards' checked,
search for

<([!^13]*)^13

and replace with

"\1",^p

You'll have to delete the final comma by hand.

Assuming the words are separated by paragraph marks (¶) and not manual
line breaks, this macro will do the job.

Sub AddQuoteComma()
   Dim oRg As Range
   Set oRg = ActiveDocument.Range
       
   With oRg.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .Text = "(<[!^13]{1,})^13"
       .Replacement.Text = "'\1',^p"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchWildcards = True
       .Execute Replace:=wdReplaceAll
   End With
   
   'remove final comma and paragraph mark
   Set oRg = ActiveDocument.Range
   With oRg
       .Collapse wdCollapseEnd
       .MoveStartUntil cset:=",", Count:=wdBackward
       .MoveStart unit:=wdCharacter, Count:=-1
       .Delete
   End With
   
   Set oRg = Nothing
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://www.mvps.org/word