How do I insert a horizontal line at the end of a document?

gmaxey · #6 04-14-2025, 06:00 AM

As an alternative, you can use a buildingblock and be macro free.

Select an existing Journal entry or better yet create a new one along the lines suggested by Italophile (with or without creating styles), select it, press ALT+F3 to create the BuildingBlock.

Now you can insert a new journal entry header by simply typing "jour..." and pressing Enter when the autocomplete tip text line appears.

Advantages:
Macro free
No shapes
No empty paragraphs

Disadvantages:
If you share the document with others, you must share the template as well

If you want to use some keyboard shortcut with a macro:

Code:

Sub InsertJE()
  On Error GoTo Err_NotFound
  ActiveDocument.AttachedTemplate.BuildingBlockEntries("journalentry").Insert _
               Selection.Range, RichText:=True
  Exit Sub
lbl_Exit:
  Exit Sub
Err_NotFound:
  MsgBox "The building block ""journalentry"" was not found in " _
          & ThisDocument.Name & " attached template.", vbInformation + vbOKOnly, _
          "MISSING BUILDING BLOCK"
  Resume lbl_Exit
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a horizontal line in a document	jjjoverthere	Word	2	11-03-2018 05:39 PM
Horizontal line I can't delete	goingvirtual	Word	2	09-09-2018 02:58 AM
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
Putting a horizontal line in a Word Document -- should be simple, right?	biotechguy	Word	4	05-10-2010 11:58 AM