Macro to ad a suffix to document title

[Jack Rabbid]

Hi,

I've recently begun to realise just how enormously useful macros can be, especially in my work as a translator/revisor. I've managed to make a few very simple ones for specific tasks, but mostly just using "record macro".

What I'm currently looking for is a macro that, when activated:

1) Turns on "track changes" if it is off (and preferably sets the display to "no markup", but that's optional)
2) Saves a copy of the active document in the same directory as the active document, but with "_TC" added to the end of the document name.

That's all. It would actually make my job a bunch easier, but this is a code-writing job and I'm afraid that's a skill that I don't quite have. Yet, I hope.

I'd be grateful for any help!

[macropod]

Try something based on:

Sub MakeTC()
Application.ScreenUpdating = False
Dim StrName As String, StrExt As String, lFmt As Long
With ActiveDocument
  .TrackRevisions = True
  .ShowRevisions = True
  With .ActiveWindow.View
    .ShowRevisionsAndComments = False
    .RevisionsView = wdRevisionsViewFinal
  End With
  StrName = .FullName:   lFmt = .SaveFormat
  StrExt = "." & Split(.Name, ".")(UBound(Split(.Name, ".")))
  StrName = Left(StrName, Len(StrName) - Len(StrExt))
    .SaveAs2 FileName:=StrName & "_TC" & StrExt, _
      Fileformat:=lFmt, AddToRecentFiles:=False
End With
Application.ScreenUpdating = True
End Sub

[Jack Rabbid]

That's perfect! Thanks loads