Making backup copy of the open document with the ".old" extension (same dir): Return to List

  Source = ActiveDocument.FullName     
  
SourcePath = ActiveDocument.Path
  
Destination = SourcePath + "\" + FirstName$ + ".old"
  
ActiveDocument.Close               ' We're using the procedure for copying closed documents
  
FileCopy Source, Destination
  
Documents.Open FileName:=Source
  
Documents(Source).Activate

See also:
Building an Array of Filenames (after browse)
Delimited Text to an Array (similar to Split())
Determining Upper & Lower Array Bounds
Erasing an Array (removing all the elements)
Feed an Array into a New Document (del dupes)
Filename Array from Active Directory
QuickSort routine
QuickSort (Fast!!) (Multidimensional on 2 dims)
QuickSort (Fast!!) (Multidimensional on 3 dims)
QuickSort (Fast!!) (Single Dimension)
Removing Duplicates from an Array
SQL Query Results placed in an Array
Using Split() function to create Array