Using this Macro code snippet you can create Page Borders with Auto Shapes, Word Art, Clip Arts and even pictures. But there is a slight change in the procedure for each of them. So watch the complete video.
Microsoft Word Macro (VBA) Code used in this tutorial:
Sub CreatePageBorder()
'Disclaimer: This code is only for Educational and Scientific purposes only. By using this code you agree that the author cannot be held responsible for any kind of damages by the usage of this code.
Application.ScreenRefresh
Application.ScreenUpdating = False
ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Height = 27.35
Selection.ShapeRange.Width = 27.35
Selection.ShapeRange.Top = 0
Selection.ShapeRange.Left = 0
Set abc = Selection.ShapeRange
For abc = 1 To 20
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft 15.35
Selection.ShapeRange.IncrementTop -12#
Next abc
For abc = 1 To 27
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -12#
Selection.ShapeRange.IncrementTop 15.35
Next abc
For abc = 1 To 20
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -39.35
Selection.ShapeRange.IncrementTop -12#
Next abc
For abc = 1 To 27
Selection.ShapeRange.Duplicate.Select
Selection.ShapeRange.IncrementLeft -12#
Selection.ShapeRange.IncrementTop -39.35
Next abc
ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Group.Select
WordBasic.AlignCenterHorizontal
WordBasic.AlignCenterVertical
Application.ScreenUpdating = True
End Sub
Download Horizontal lines & Microsoft Word Templates here: https://hbninfotech.com/free-microsoft-word-templates/
Please subscribe and share with your friends.
/channel/UCLmP0X9WQEcIFwa1iLTfpvQhttps://www.facebook.com/hbninfotech/https://twitter.com/hbn_infotech
Other Tutorials:
33 Magical secrets, tips and tricks of Microsoft Word you don’t know: /watch/ovf0zG1GPuhG0
9 little known Advanced Techniques of Microsoft Word: /watch/EuiJhuRm7P3mJ
55 Powerful keyboard shortcuts and techniques that will speed up your job with Microsoft word: /watch/orHgx9JfysRfg
16 super techniques and tricks for Microsoft word that will blow your mind: /watch/8vZuHqSX6OZXu
36 How to concepts of Microsoft Word for beginners: /watch/4Llh3WSJG-6Jh
3 Easy Ways to create Grid in Microsoft Word: /watch/QOvd-J1PuW3Pd
How to Design Snake and Ladder game in Microsoft Word: /watch/sWFHFdWPv5VPH
16 Visiting card design ideas in MS Word Part 1 Microsoft Word Tutorial: /watch/k7Tum2E1f5d1u
16 Visiting card design ideas in MS Word Part 2 Microsoft Word Tutorial: /watch/0TPvs4gW_YGWv
16 Visiting card design ideas in MS Word Part 3 Microsoft Word Tutorial: /watch/IH-BWbBohMkoB
How to create gift wrapping paper designs in MS Word Microsoft Word Tutorial: /watch/EyMPNuPnTWonP
4 Easy ways to create lined paper in MS Word – Microsoft Word Tutorial: /watch/MDXOSq1RNPmRO
9 Useful commands not in ribbon you should know Microsoft word Tutorial: /watch/4ZS1pcq3KM931
How to create custom horizontal lines in MS Word Microsoft Word Tutorial /watch/oF1PdRRk9pokP
Easy Macro to create page border in 2 seconds – Microsoft Word Tutorial: /watch/8jug9uZju4ajg
How to make an attractive single page resume in MS Word - Resume Format 1 /watch/E2VQ1BfeKhreQ