Easy Macro to create page border in 2 seconds – Microsoft Word Tutorial
9.8 هزار بار بازدید -
7 سال پیش
-
Using this Macro code snippet
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-microsof...
Please subscribe and share with your friends.
@hbninfotechtutorials
Facebook: hbninfotech
Twitter: hbn_infotech
Other Tutorials:
33 Magical secrets, tips and tricks of Microsoft Word you don’t know: 33 Magical secrets, tips and tricks o...
9 little known Advanced Techniques of Microsoft Word: 9 little known Advanced Techniques of...
55 Powerful keyboard shortcuts and techniques that will speed up your job with Microsoft word: 55 Powerful keyboard shortcuts and te...
16 super techniques and tricks for Microsoft word that will blow your mind: 16 super techniques and tricks for Mi...
36 How to concepts of Microsoft Word for beginners: 36 How to concepts of Microsoft Word ...
3 Easy Ways to create Grid in Microsoft Word: 3 Easy Ways to create Grid in Microso...
How to Design Snake and Ladder game in Microsoft Word: How to Design Snake and Ladder game i...
16 Visiting card design ideas in MS Word Part 1 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
16 Visiting card design ideas in MS Word Part 2 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
16 Visiting card design ideas in MS Word Part 3 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
How to create gift wrapping paper designs in MS Word Microsoft Word Tutorial: How to create gift wrapping paper des...
4 Easy ways to create lined paper in MS Word – Microsoft Word Tutorial: 4 Easy ways to create lined paper in ...
9 Useful commands not in ribbon you should know Microsoft word Tutorial: 9 Useful commands not in ribbon you s...
How to create custom horizontal lines in MS Word Microsoft Word Tutorial How to create custom horizontal lines...
Easy Macro to create page border in 2 seconds – Microsoft Word Tutorial: Easy Macro to create page border in 2...
How to make an attractive single page resume in MS Word - Resume Format 1 How to make an attractive single page...
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-microsof...
Please subscribe and share with your friends.
@hbninfotechtutorials
Facebook: hbninfotech
Twitter: hbn_infotech
Other Tutorials:
33 Magical secrets, tips and tricks of Microsoft Word you don’t know: 33 Magical secrets, tips and tricks o...
9 little known Advanced Techniques of Microsoft Word: 9 little known Advanced Techniques of...
55 Powerful keyboard shortcuts and techniques that will speed up your job with Microsoft word: 55 Powerful keyboard shortcuts and te...
16 super techniques and tricks for Microsoft word that will blow your mind: 16 super techniques and tricks for Mi...
36 How to concepts of Microsoft Word for beginners: 36 How to concepts of Microsoft Word ...
3 Easy Ways to create Grid in Microsoft Word: 3 Easy Ways to create Grid in Microso...
How to Design Snake and Ladder game in Microsoft Word: How to Design Snake and Ladder game i...
16 Visiting card design ideas in MS Word Part 1 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
16 Visiting card design ideas in MS Word Part 2 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
16 Visiting card design ideas in MS Word Part 3 Microsoft Word Tutorial: 16 Visiting card design ideas in MS W...
How to create gift wrapping paper designs in MS Word Microsoft Word Tutorial: How to create gift wrapping paper des...
4 Easy ways to create lined paper in MS Word – Microsoft Word Tutorial: 4 Easy ways to create lined paper in ...
9 Useful commands not in ribbon you should know Microsoft word Tutorial: 9 Useful commands not in ribbon you s...
How to create custom horizontal lines in MS Word Microsoft Word Tutorial How to create custom horizontal lines...
Easy Macro to create page border in 2 seconds – Microsoft Word Tutorial: Easy Macro to create page border in 2...
How to make an attractive single page resume in MS Word - Resume Format 1 How to make an attractive single page...
7 سال پیش
در تاریخ 1396/04/18 منتشر شده
است.
9,890
بـار بازدید شده