Microsoft Office Forums - View Single Post - i want to add a line break after selection word 19

gmayor · 07-31-2021, 09:03 PM

I think what you want is

Code:

Sub Quote()
Selection.InsertBefore Chr(34)
Selection.InsertAfter Chr(34) & ",  ," & vbCr
Selection.MoveEnd 6 'the number of characters added after the selection
Selection.Collapse 0
End Sub

'0r
Sub Quote2()
Selection.InsertBefore """"
Selection.InsertAfter """,  ," & vbCr
Selection.MoveEnd 6 'the number of characters added after the selection
Selection.Collapse 0
End Sub