How do I make a stars horizontal line?

gmayor · #1 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 · #2 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?

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