Recording a Macro for Saving Word Text or Pages to Individual RTF Files

  • Open the Document
  • Record Macro
  • Name it with no Spaces
  • Assign Keyboard Shortcut, hit ‘Assign’
  • Close – Begins Recording
  • Ctrl+F – Find Dialog
  • Type a word or character in the heading that will divide each page (ex.Title, or .txt)
  • **if every page fits on one sheet or two sheets, or any set number of pages, you don’t need to do a Find
  • Enter to Find
  • Alt +F6 – to change focus
  • Home – to get to beginning of Line
  • F8 – to lock extend text on
  • Arrow Down Once – to get in front of the searched text
  • **if every page fits on one sheet or two sheets, or any set number of pages, you can just do a Page Down with F8 on, until the end
  • Ctr+F again – to drag the text to the next section of text
  • Type the same character in the heading that you did before divide each page (ex.Title, or .txt)
  • Enter to Find
  • Alt +F6 – to change focus
  • Home – to get to beginning of Line
  • Ctrl+C – to copy selected text
  • Ctrl+N – New document
  • Ctrl+V – Paste
  • Ctrl+S – Open Save Dialog box
  • Tab – to Select Format
  • hit the down arrow until you get to RTF
  • Enter – to save
  • Alt+F4 – Close the new Document Window
  • Esc – Turn off Extend Selection
  • Right Arrow the Left Arrow Once Each – to deselect text and move back to where you were
  • Stop Recording Macro
  • Open Macro and Edit
  • Delete the following line:

“ActiveDocument.SaveAs FileName:=”Title”, FileFormat:=wdFormatRTF, _”

  • Replace it with these 2 lines , directly under and inline with “Selection.PasteAndFormat (wdPasteDefault)

flname = ActiveDocument.Name

ActiveDocument.SaveAs FileName:=flname & “.rtf”, FileFormat:=wdFormatRTF, _

  • Click Save & Close the Editor
  • Go to Word and save a copy of the file to a new folder where you want to export all the pages to, this will set the folder to open each time the macro saves a file
  • Put your cursor at the top of the page
  • Run your macro from your keyboard shortcut
  • it will save each file with the name “Document2″, :Document3”, “Document4” etc.. in your default save location

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s