Want to remove first 2 blank pages

gmaxey · #1 06-21-2019, 12:05 PM

If the first actual content is the table then:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.End = ActiveDocument.Tables(1).Range.Start
  oRng.Delete
lbl_Exit:
  Exit Sub
End Sub

chrscote · #2 06-24-2019, 05:45 AM

Thank you so much Kilroy. That script is exactly what I need for my application.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete blank pages	Dimsok	Word VBA	18	11-14-2014 12:30 PM
deleting blank pages	thauser	Word	3	05-27-2014 01:56 AM
remove blank lines in between	jolinchew	Excel	4	08-01-2013 06:09 AM
Deleting blank pages	Microsoftenquirer1000	Word	14	08-27-2012 01:24 PM
hidden blank pages	mljm	Word	3	06-19-2009 03:18 AM