Automatically Inserting Brackets to EACH selected line

ar100j · #1 05-16-2021, 07:03 PM

Hello guys,

I need to ask if it's possible to do amend on the below code related to Inserting Brackets I need to add the brackets in each bold sentences after selecting the same format

Quote:

Sub AddBrackets()

Dim iCount As Integer
iCount = 1
While Right(Selection.Text, 1) = " " Or _
Right(Selection.Text, 1) = Chr(13)
Selection.MoveLeft Unit:=wdCharacter, Count:=1, _
Extend:=wdExtend
iCount = iCount + 1
Wend

Selection.InsertAfter "]"
Selection.InsertBefore "["
Selection.MoveRight Unit:=wdCharacter, Count:=iCount
End Sub

The problem with the code now it's adding the brackets for the last line only do you know or if it's possible to help on how I can add to each bold sentence only ?
I would be appreciated for your time and effort

Attachments area

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
syntax for inserting blank line before inserting table and after a line or paragraph	SamDsouza	Word VBA	8	08-04-2019 11:10 PM
How to move a line to another line that starts with a chain selected in the 1st one?	gloub	Word VBA	24	03-19-2019 03:12 PM
find and delet all text within brackets and the brackets themselves	wrdy	Word	2	08-03-2017 06:55 PM
macro to add brackets to each line and add single quotes to each word in the line	bracketandquotes	Word VBA	17	02-16-2015 03:51 PM
Inserting nested brackets in a field code deletes numeration	piotrek99	Word	1	11-02-2014 01:15 PM