Here is the code I was using (that did work, and now doesn’t, for some reason):
Public Sub Load_Next_Document(WordApp As Word.Application, File_Path As String,_ NewFilePath As String, NewDoc As Word.Document)
Dim Old_Doc As Word.Document
Set NewDoc = WordApp.Documents.Add
Set Old_Doc = WordApp.Documents.Open(File_Path)
Old_Doc.Activate
Selection.WholeStory ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘broken line
Selection.Copy ’’’’’’’’’’’’’’’’’’’’’’’’‘also broken
NewDoc.Activate
Selection.WholeStory ’’’’’’‘broke
Selection.Paste ’’’’’’’’’’’’’‘broke
Selection.WholeStory ’’’’’’’’’’’’’’‘broke
Selection.Font.Name = “Courier New” ’’’’’’’’’’’’’’’’‘broke
Old_Doc.Close
NewFilePath = Left(File_Path, Len(File_Path) – 4) & ” – ” & MonthName(Month_(DateTime.Now)) & ” ” & Str(Day(DateTime.Now)) & ”.doc”
End Sub