Stupid me. I was thinking in Excel instead of in Word
Please see: http://www.vbaexpress.com/kb/getarticle.php?kb_id=961
I won't pretend to know much about Word, but I do pretend to know how to piece bits of code together.
If this doesn't fix your problem, I will change the Title of this thread to "SaveCopyAs for Word" to attract a Word Expert
Sub SaveCopyAs()
Const lCancelled_c As Long = 0
Dim sSaveAsPath As String
Application.ScreenUpdating = False
sSaveAsPath = GetSaveAsPath
If VBA.LenB(sSaveAsPath) = lCancelled_c Then Exit Sub
'Save changes to original document
ActiveDocument.Save
'the next line copies the active document
Application.Documents.Add ActiveDocument.FullName
'the next line saves the copy to your location and name
ActiveDocument.SaveAs SaveName
'next line closes the copy leaving you with the original document
ActiveDocument.Close
Application.ScreenUpdating = True
End Sub
Private Function GetSaveAsPath() As String
Dim fd As Office.FileDialog
Set fd = Word.Application.FileDialog(msoFileDialogSaveAs)
fd.InitialFileName = ActiveDocument.Name
If fd.Show Then GetSaveAsPath = fd.SelectedItems(1)
End Function
Private Function SaveName() As String
Dim StrName As String, StrExt As String, lFmt As Long
With ActiveDocument
StrName = .FullName: lFmt = .SaveFormat
StrExt = "." & Split(.Name, ".")(UBound(Split(.Name, ".")))
StrName = Left(StrName, Len(StrName) - Len(StrExt))
SaveName = StrName & "_TC" & StrExt
End With
End Function