Remove normal columns and their content in main story range

RobiNew · #1 11-16-2023, 03:03 PM

Thank you! But you can obtain the same result by deleting column breaks with Find/Replace. The code I am trying to find deletes the content of the second column before removing it.

RobiNew · #2 11-17-2023, 07:41 AM

Hi, everybody! I have devised a different approach. But how do you get rid of the last page? Thanks!

Code:

Sub DeleteFromNrToEnd()
Dim rng As Range
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=1
    Set rng = ActiveDocument.Range(0, 0)
    Set rng = rng.GoTo(What:=wdGoToPage, Name:=4)
    Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    rng.End = ActiveDocument.Range.End
    rng.Delete
End Sub

Can this one be improved?

Code:

Sub DeleteFromNrToEnd()
Dim rng As Range
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=1
    Set rng = ActiveDocument.Range(0, 0)
    Set rng = rng.GoTo(What:=wdGoToPage, Name:=4)
    Set rng = rng.GoTo(What:=wdGoToBookmark, Name:="\page")
    rng.End = ActiveDocument.Range.End
    rng.Delete
With ActiveDocument
    LastChr = .GoTo(wdGoToPage, wdGoToLast).Start
    .Range(LastChr - 1, ActiveDocument.Range.End).Delete
End With
End Sub

vivka · #3 11-18-2023, 03:50 AM

Hi, RobiNew! I've tested your code and it does delete the last page (if I understand correctly your objective). For me the following code also deletes the doc's last page:

Code:

Sub Delete_Last_Page()

Dim rng as range    
    Set rng = ActiveDocument.range.GoTo(wdGoToPage, wdGoToLast)
    rng.End = ActiveDocument.range.End
    rng.Delete
End sub

RobiNew · #4 11-18-2023, 04:36 AM

Thank you, Vivka! Nice to see you again. Your code deletes the last page with text. If it is empty, you need the code I posted.

vivka · #5 11-18-2023, 04:55 AM

Thank you, RobiNew!

RobiNew · #6 02-28-2024, 08:54 AM

I've taken up again the second macro at #6 above, but I get problems.
I have a docx of 7 pages. I need to go to page 4 and then delete pages 4 to 7. The macro works all right on its own, but it deletes all the pages of the docx when inserted into a larger (very large) macro. Can someone fancy why? Thanks!

Code:

Sub DeleteFromPgToEnd()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    Set oRng = oRng.GoTo(What:=wdGoToPage, Name:=4)
    Set oRng = oRng.GoTo(What:=wdGoToBookmark, Name:="\page")
    oRng.End = ActiveDocument.Range.End
    oRng.Delete 'doesn't delete the last empty page
  oRng.Collapse wdCollapseEnd
  oRng.Start = oRng.Start - 1
  oRng.Delete 'deletes the last empty page
End Sub

vivka · #7 02-28-2024, 12:04 PM

Hi, RobiNew! Welcome back!
Try your slightly changed code:

Code:

Sub DeleteFromPgToEnd()Sub Del_From_Pg_To_End()
'Delete pages from PgNum till the doc's end.

Dim rng As range
Dim PgNum As String
    PgNum = InputBox("Enter the number of the page")
    Set rng = ActiveDocument.range.GoTo(wdGoToPage, PgNum)
    rng.End = ActiveDocument.range.End
'If there's a page break before the PgNum page, the pages won't get
'deleted, so move the rng's start:
    If rng.Characters.First.Previous = Chr(12) Then
        rng.Start = rng.Start - 1
    End If
    rng.Delete
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Use a table in appendix to determine content of main document?	MattMurray	Word	3	07-19-2022 09:16 AM
Run Script to remove carriage returns on certain columns	ryanjohnsond@gmail.com	Excel Programming	34	09-03-2014 10:43 PM
Normal sort not bringing along other columns	Dave Fraser	Excel	2	06-06-2014 11:48 AM
Using range object to work with multiple columns	kjworduser	Word VBA	1	11-01-2013 03:03 AM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM