View Single Post
 
Old 10-28-2022, 06:41 AM
dfuent1321 dfuent1321 is offline Windows 10 Office 2021
Novice
 
Join Date: Oct 2022
Posts: 6
dfuent1321 is on a distinguished road
Default Macro Problem Solved!

Many Thanks, Brian!
Wow! This macro not only works, I can't see it working—bouncing to the end of the document and back again like the one I recorded does.
I wonder if I could beg your help fixing the cousin of the macro you rewrote for me? It, too, works in some documents, but not others. I wrote it to help reorder a sentence—moving a block from the middle to the beginning of the sentence and correcting the capitilazation. Like its cousin, I sometimes get an error message, caused because the macro chokes when asked to paste the text it cut.
Here's my code:

Sub MoveBlockToBeginningOfSentence()
'
' MoveBlockToBeginningOfSentence Macro
'
'
Selection.Cut
Application.Run MacroName:="Normal.NewMacros.SentenceLeft"
Application.Run MacroName:="Normal.NewMacros.CapitalizeNextLetter"
Selection.Paste
Application.Run MacroName:="Normal.NewMacros.SentenceLeft"
Application.Run MacroName:="Normal.NewMacros.CapitalizeNextLetter"
End Sub
Reply With Quote