Bulk Edit Top Margin in Subfolders

fermeul · #1 12-22-2016, 05:23 AM

Hi all,

I don't have much experience with VBA so I hope you can help me out as this is a real challenge for me.

I have >1000 *.dotx templates in (sub)folders that need to be changed because of a change in my window envelop.

The current Top Margin in these templates is 6cm and need to be changed to 5cm.
I realy hope this is possible with VBA as a manual change (open, change settings in page setup: top margin: 5cm, apply to: whole document, save and close) for all these individual templates will cost me my whole Christmas Holidays.

Any help is much appreciated!

gmaxey · #2 12-22-2016, 07:28 AM

See: http://gregmaxey.com/word_tip_pages/...der_addin.html Your user defined procedure would be:

Code:

Function ChangeTopMargin(ByRef oDoc As Word.Document) As Boolean
  On Error GoTo Err_Handler
  oDoc.PageSetup.TopMargin = CentimetersToPoints(6)
  ChangeTopMargin = True
lbl_Exit:
  Exit Function
Err_Handler:
  ChangeTopMargin = False
  Resume lbl_Exit
End Function

fermeul · #3 12-23-2016, 02:25 AM

Hi Greg,

Many thanks for this great solution!
This works perfect for me

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Change a document to A4 with Left margin 1.5 from Letter size and 1.27 margin	Reuven	Word	1	12-03-2015 04:25 PM
Email address for subfolders?	judyB	Outlook	1	07-16-2012 03:08 PM
Accessing Outlook Contacts in Subfolders	jill5545	Outlook	1	11-17-2010 04:01 PM
How would I bulk select and copy highlights and then bulk paste them automatically?	copywriterpro	Word	0	04-19-2010 05:21 AM
Subfolders in Inbox and Sent Items	stevie	Outlook	0	09-08-2009 02:02 AM