How do I make a stars horizontal line?

abcdoedoe · #1 12-30-2019, 06:25 AM

How do I create this horizontal line?

***************************************

I want it to be stars, I know that you can type 3 dashes --- and hit enter and it will insert a horizontal line, but there's no built-in *** for a stars horizontal line.

I want it so that if I type 3 stars *** it will then give me a stars line like

***************************************

gmayor · #2 12-30-2019, 08:05 AM

You could use an autocorrect entry, but unlike the hyphens, there is no built-in function to do that.
Maybe a macro would help?

Code:

Sub Macro1()
Dim orng As Range
    Set orng = Selection.Range
    Do
        orng.Text = orng.Text & "*"
        If orng.Characters.Last.Information(wdVerticalPositionRelativeToPage) > _
           orng.Characters.First.Information(wdVerticalPositionRelativeToPage) Then Exit Do
        DoEvents
    Loop
    orng.Characters.Last.Delete
    orng.Collapse 0
    orng.Select
    Set orng = Nothing
End Sub

abcdoedoe · #3 12-30-2019, 10:36 AM

Quote:

Originally Posted by gmayor

You could use an autocorrect entry, but unlike the hyphens, there is no built-in function to do that.
Maybe a macro would help?

Code:

Sub Macro1()
Dim orng As Range
    Set orng = Selection.Range
    Do
        orng.Text = orng.Text & "*"
        If orng.Characters.Last.Information(wdVerticalPositionRelativeToPage) > _
           orng.Characters.First.Information(wdVerticalPositionRelativeToPage) Then Exit Do
        DoEvents
    Loop
    orng.Characters.Last.Delete
    orng.Collapse 0
    orng.Select
    Set orng = Nothing
End Sub

isn't there a non-programming solution? anything simpler?

Charles Kenyon · #4 12-30-2019, 12:23 PM

You could save an AutoText entry. It would not adjust to your margins or font size, though.

00 deleteme 7.png

Here is a temporary link to a template with this with instructions.

Note, at some number of asterisks it will stop displaying the pop-up. In that situation, you will need to press F3.

Automated Boilerplate Using Microsoft Word
AutoText and AutoCorrect are very different functions.

abcdoedoe · #5 12-30-2019, 05:54 PM

Quote:

Originally Posted by Charles Kenyon

You could save an AutoText entry. It would not adjust to your margins or font size, though.

Attachment 14693

Here is a temporary link to a template with this with instructions.

Note, at some number of asterisks it will stop displaying the pop-up. In that situation, you will need to press F3.

Automated Boilerplate Using Microsoft Word
AutoText and AutoCorrect are very different functions.

already downloaded it thanks for that 🙏

gmayor · #6 12-30-2019, 09:22 PM

Quote:

Originally Posted by abcdoedoe

isn't there a non-programming solution? anything simpler?

What is simpler than copy and paste? Installing Macros

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Horizontal line I can't delete	goingvirtual	Word	2	09-09-2018 02:58 AM
Line arrow impossible to make horizontal	bgbin7444	Word	3	07-12-2018 04:20 PM
MS Word Horizontal Line Disappears after pressing Enter from end of line	MikeWhite	Word	5	01-20-2017 03:39 PM
How to change the default features for AutoShape horizontal line (button 'Insert horizontal line')	534tomasz	Word	6	10-13-2016 02:33 AM
Horizontal sawtooth line	JamesT	Word	3	10-29-2011 05:39 PM