i want to add a line break after selection word 19

drrr · #1 07-30-2021, 04:34 PM

Sub cloze()
'
' Macro2 Macro
'
Selection.InsertBefore Text:="{{c1::"
Selection.InsertAfter Text:="}}"

'
End Sub

i want to add a line break after selection
i want something like Selection.InsertAfter Text:="line break"
but this adds text not an actual line break

gmayor · #2 07-30-2021, 08:27 PM

Do you mean like

Code:

Sub cloze()
'
' Macro2 Macro
'
Selection.InsertBefore Text:="{{c1::"
Selection.InsertAfter Text:="}}" & vbCr
Selection.Collapse 0


'
End Sub

drrr · #3 07-31-2021, 10:43 AM

works perfectly

drrr · #4 07-31-2021, 11:23 AM

One last thing, how to insert a quote with InsertBefore method

InsertBefore Text:="""

How does escaping work?
I tried \ and / but neither work
i tried single quote as in the picture but some error occurred

gmayor · #5 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

drrr · #6 08-01-2021, 07:06 AM

thank you. You are brilliant

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing line break and indentation between footnote number and footnote text in Word	jaanross	Word	5	02-06-2020 12:04 AM
Section and Line Break leaving line on previous page	Stonehands99	Word	5	08-13-2019 08:59 PM
Word converts section break to page break before columns, does not insert column breaks	eborda	Word	1	03-24-2017 11:06 PM
Interchange line break and paragraph break shortcut keys	skan	Word	2	01-20-2017 03:50 AM
Add paragraph break to the end of each line in Microsoft Word?	vaga95	Word	1	06-24-2016 08:19 AM