Help with debugging a simple macro to cut and paste selected text to end of document

teachwrite · #8 06-21-2023, 12:47 AM

I know its been a while since this post, but can someone suggest how to modify this macro so that the selected words are pasted at the bottom of a different document, rather than the same doc? (I want them pasted at the end of a style sheet). Thanks!

Quote:

Originally Posted by BrianHoard

Hi,
I'm very new to VBA, but hopefully this can help.
In my code below, rather than using the clipboard, I'm storing your selection as formatted text. Writing that to the end of the document, then deleting the original selection. After the write to the end of the doc, I add a carriage return, (vbCr).

I also added a message in case nothing was selected.
I tested this with an image in the selection and it also worked fine.

Code:

Sub MoveToOutTakes()
  
  Dim docEnd As Range
  Set docEnd = ActiveDocument.Range
  docEnd.Collapse direction:=collapseEnd
  
  Dim sel As Range
  Set sel = Selection.FormattedText
  
  If (sel.Start = sel.End) Then
    Call MsgBox(Prompt:="Nothing selected.", Buttons:=vbInformation)
  End If
  
  docEnd.FormattedText = sel
  docEnd.InsertAfter (vbCr)
  sel.Delete

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Keep text selected after paste	dabbler	Word	14	01-11-2021 09:54 AM
Copy selected text from one document and paste to new document in same position on the page	gasparik	Word VBA	1	05-11-2020 05:41 AM
Find and Replace Selected Text or Macro for finding selected text	mrplastic	Word VBA	4	12-20-2019 01:25 PM
Help debugging a Macro that merges individual word docs into one document	vincenzo345	Word VBA	4	12-01-2017 11:25 AM
Macro (debugging)	JACKsparrow	Word VBA	1	03-09-2016 02:47 PM