Frequently, I need to turn the several lines of text into a bulleted list. For example, I will want to turn this:

list item 1

list item 2

list item 3

Into this:

- list item 1

- list item 2

- list item 3

I created a command that will send the keys  "-{down}{Home}" X amount of times,  which is not ideal because it requires me to know how many items I am listing. For example, I would have to say, "bullet list down 3"  in order  to prepend the - character 3 times. If it's a lot of text, then I need to run the command multiple times or sit there counting lines. I have better things to count!

so what I want is a command that will:

- read the currently selected text

- count the amount of linebreaks in that text

- insert a "-" character after every line break (i.e., at the beginning of every)

I have no idea how to go about this. Is this possible?

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

It needs to work outside of Dragon friendly apps; simple text editors without any Select-and-Say functionality.

In Microsoft Word, I can create these lists easily by using the tools built into Microsoft Word, so this command would not use in Microsoft Word.

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

Sub Main
' Prepend y to each line in a selection
' x is the selection

Dim x As String

oldClipboard = Clipboard ' Save the current clipboard so we can get it back later
Wait 0.1
SendKeys "^c", True
Wait .3

Let x = Clipboard

    Select ListVar1
    Case "dash"
        Let y = "- "
    Case "quote"
        Let y = "> "
    Case "checkbox"
        Let y = "- [ ] "
    End Select

    Wait .3

Let x = y & Replace(x, Chr$(10), y)

Clipboard x
SendKeys "^v", True

Wait 0.1
Clipboard oldclipboard ' Restore the old clipboard

End Sub
'https://www.knowbrainer.com/forums/forum/messageview.cfm?catid=12&threadid=35440

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.

I've been using this command to prepend elements to the beginning of every line in a selection to great effect, thank you.

Now I have the need to do the same thing but for appending elements to the end of the line.

I tried tweaking it to make this happen, but I realize I don't understand why this function works in the first place. Specifically, this part:

Let x = "- " & Replace(x, Chr$(10), "- ")

I must not understand the "Replace" function properly, even after reading the documentation.

If Chr$(10) is a linefeed, then it seems like this "Replace" function should replace all instances of linefeed with "- ", but that's not how it's actually behaving. Instead, it's like it's appending "- " after every linefeed, leaving the linefeeds in the text (instead of removing/replacing them).

So I guess, 2 questions:

1. Why doesn't the "replace" function remove all of the linefeeds?

2. How can I adapt this function to append the element to the end of every line instead of putting it at the beginning?

Dragon Professional Individual v15.6. Windows 10. Knowbrainer 2017.