Copy Current Section to a New Document

Trio78 · #1 03-12-2024, 11:48 AM

I have a document that is separated by section breaks. I want to have a macro that will take the current section (where my cursor is) and copy it into a new document.

I'm getting the Run-time error '4605' (This command is not available), which my web research suggests is due to using the .Copy and .PasteAndFormat functions. What I haven't been able to figure out is how to rewrite this without using those functions, however!

Code:

Sub CopyCurrentSectionToNewDoc()
  currentSection = Selection.Information(wdActiveEndSectionNumber)
  With ActiveDocument.Sections(currentSection)
    Set Rng = .Range
      With Rng
        .MoveEnd wdCharacter, -1
        .Copy
      End With
  End With
  
  Set NewDoc = Documents.Add(Template:=ActiveDocument.AttachedTemplate.FullName, Visible:=True)
    
  With NewDoc
    ' Paste contents into the output document, preserving the formatting
    .Range.PasteAndFormat (wdFormatOriginalFormatting)
  End With

End Sub

gmaxey · #2 03-12-2024, 12:22 PM

With the exception of not declaring your variables, your code works fine here.

Italophile · #3 03-12-2024, 12:52 PM

To avoid using the clipboard:

Code:

 Sub CopyCurrentSectionToNewDoc()
  Dim Rng as Range, NewDoc as Document, currentSection as Long

  currentSection = Selection.Information(wdActiveEndSectionNumber)
  Set Rng = ActiveDocument.Sections(currentSection).Range
  Rng.MoveEnd wdCharacter, -1
  
  Set NewDoc = Documents.Add(Template:=ActiveDocument.AttachedTemplate.FullName, Visible:=True)
  
  ' Transfer contents into the output document, preserving the formatting
  NewDoc.Range.FormattedText = Rng.FormattedText
 
End Sub

Trio78 · #4 03-12-2024, 01:20 PM

Quote:

Originally Posted by Italophile

To avoid using the clipboard:

Thanks, that's just what I was trying to figure out.

gmayor · #5 03-12-2024, 11:07 PM

You don't even need to identify the section number e.g.

Code:

Sub CopyCurrentSectionToNewDoc()
Dim rng As Range
Dim NewDoc As Document
    Set rng = Selection.Sections(1).Range
    rng.End = rng.End - 1
    Set NewDoc = Documents.Add(Template:=ActiveDocument.AttachedTemplate.FullName, Visible:=True)
    NewDoc.Range.FormattedText = rng.FormattedText
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Prevent header from using StyleRef x when x is not present in current section	Firebody	Word	8	11-12-2021 10:53 AM
Require VBA to copy value into current field of Internet Explorer	trevorc	Excel Programming	0	01-15-2019 03:17 PM
If Cell Blank Copy Data from Above Combine All to Current	ChrisOK	Excel Programming	2	12-18-2017 11:25 PM
Show current section in status bar	Phil H	Word	2	02-02-2016 01:45 PM
a macro that can copy data from copy.xls to our current excel macro.xls based on criteria:	udhaya	Excel Programming	1	11-12-2015 10:12 AM