'переход к началу … страницы
	Selection.GoTo wdGotoPage, wdGoToAbsolute,  1 
	Selection.Bookmarks("\page").Range.Delete

Удалить программно диапазон страниц, например с  1  по  8 , со всеми данными

	Dim nStart As Long, nEnd As Long
	  With Selection
	    'Переход к началу первой страницы
	    .GoTo wdGoToPage, wdGoToAbsolute,  1 
	    'Запоминаем положение
	    nStart = .Start
	    'Переход к началу девятой страницы
	    .GoTo wdGoToPage, wdGoToAbsolute,  9 
	    'Запоминаем положение
	    nEnd = .Start
	    'Выделяем
	    .SetRange nStart, nEnd
	    'Удаляем
	    .Delete
	  End With