Copy document to a few places

[Dimsok]

I have such code for copy document to root C

Sub FileCopyToС()
    OrigLongFileName = ActiveDocument.Name
    OldPath = ActiveDocument.Path & Application.PathSeparator
        Documents(ActiveWindow.Caption).Close
        FileCopy OldPath & OrigLongFileName, "C:\" & OrigLongFileName
        Documents.Open FileName:=OldPath & OrigLongFileName
        Application.GoBack
End Sub

How to change it (or create new), that documents will copy without closing and opening? I want to make backups to few places (with replacing old on that pathes). For example, from "C:\My doc\File.docx" to such pathes: "F:\My doc\File.docx" "G:\My doc\File.docx" "H:\My doc\File.docx" "H:\My doc\File.docx". But don't want see everytime during it 4 times closing and opening active document. Is it possible to copy current document silently? Don't see anything during coping, just like in normal saving.

[gmayor]

Try the following:

Sub FileCopyTo()
Dim sName As String, sOriginal As String
Dim vPath() As Variant
Dim i As Integer
    vPath = Array("C:\My doc\", "F:\My doc\", "G:\My doc\", "H:\My doc\")
    ActiveDocument.Save
    sOriginal = ActiveDocument.FullName
    sName = ActiveDocument.Name
    For i = 0 To UBound(vPath)
        If FolderExists(CStr(vPath(i))) Then
            ActiveDocument.SaveAs2 FileName:=CStr(vPath(i)) & sName, FileFormat:=wdFormatXMLDocument
        End If
    Next i
    ActiveDocument.SaveAs2 FileName:=sOriginal, FileFormat:=wdFormatXMLDocument
End Sub

Private Function FolderExists(strFolderName As String) As Boolean
'Graham Mayor
'strFolderName is the name of folder to check
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (FSO.FolderExists(strFolderName)) Then
        FolderExists = True
    Else
        FolderExists = False
    End If
lbl_Exit:
    Set FSO = Nothing
    Exit Function
End Function

[Dimsok]

Also got to use "SaveAs Filename" instead of "SaveAs2 FileName" as in my previous topic. It also save original document, but i don't want it - just copy it to other places. Try to delete ActiveDocument.Save, but it saves anyway. Other issue - i compare documents, which had been copied, and they all have different hashes. Is there any possibility to copy them that they will be identical, like i copied them in file browser? For example, i try FileCopy "c:\1.docx", "c:\2.docx". They are identical, but can you provide a code, which do it with active document to a few places, which i have posted?