• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2233
  • Last Modified:

VBA: Make Horizontal Line on MS WORD document

I wanted to make a MS Word Marco (VBA) for a MS Word Icon, which will make a horizontal line on the MS Word document, the line require:

1. The row position is the current cursor position.
2. The Length is the Page Width - Left Margin - Rigth Margin

Do you know how to make this?

Thanks a lot.
0
st
Asked:
st
1 Solution
 
kswinneyCommented:
Try this code:

Dim lLineWidth As Long
   
With ActiveDocument.PageSetup
    lLineWidth = .PageWidth - .LeftMargin - .RightMargin
End With
   
lLineWidth = lLineWidth - Selection.ParagraphFormat.LeftIndent - Selection.ParagraphFormat.RightIndent
   
ActiveDocument.Shapes.AddLine 0, 0, lLineWidth, 0, Selection.Range


That should do it.  Cheers!
0
 
stAuthor Commented:
That is work! Thanks.
However, MS Word enabled the new line with "move object with text" feature by default.

Would you mind tell me how to disable the "move object with text" feature for the new line?

Thank you for your kind of help.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now