Try:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim bOpt1 As Boolean, bOpt2 As Boolean
With Options
bOpt1 = .AutoFormatAsYouTypeReplaceQuotes
bOpt2 = .AutoFormatReplaceQuotes
.AutoFormatAsYouTypeReplaceQuotes = False
.AutoFormatReplaceQuotes = False
End With
With ActiveDocument
With .Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Wrap = wdFindContinue
.Text = " "
.Replacement.Text = "', '"
.Execute Replace:=wdReplaceAll
.Text = "^13"
.Replacement.Text = "'),^p('"
.Execute Replace:=wdReplaceAll
End With
.Range.Paragraphs.Last.Range.Cut
.Range(0, 0).Paste
.Range.Paragraphs.First.Range.Characters.Last.Delete
End With
With Options
.AutoFormatAsYouTypeReplaceQuotes = bOpt1
.AutoFormatReplaceQuotes = bOpt2
End With
Application.ScreenUpdating = True
End Sub