Sub Test()
Dim DCM1 As String
DCM1 = Mid(ThisDocument.Name, 1, Len(ActiveDocument.Name) - 4)
ActiveDocument.SaveAs2 FileName:="C:\Users\UI488820\Desktop\Logo" & DCM1 & "" & "test" & ".docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _...