写个2016版本的offic 可以用的VBA程序，程序可以把word文件多个文件合并成一个，文件内包含文字，图片等

好的，以下是一个可以把多个Word文件合并成一个的VBA程序，可以在2016版本的Office中使用：

Sub MergeWordFiles()
    Dim mainDoc As Document
    Dim secDoc As Document
    Dim secRange As Range
    Dim fileNames As Variant
    Dim i As Integer
    
    '选择要合并的文件
    fileNames = Application.GetOpenFilename(filefilter:="Word Files (*.docx), *.docx", MultiSelect:=True)
    
    '创建新文档
    Set mainDoc = Documents.Add
    
    '循环打开并合并文件
    For i = LBound(fileNames) To UBound(fileNames)
        Set secDoc = Documents.Open(fileNames(i))
        Set secRange = secDoc.Range
        secRange.Copy
        mainDoc.Range.End = mainDoc.Range.End - 1
        mainDoc.Range.Paste
        secDoc.Close savechanges:=False
    Next i
    
    '保存新文档
    mainDoc.SaveAs2 Filename:="合并后的文档.docx", FileFormat:=wdFormatXMLDocument
    
    '清除对象
    Set mainDoc = Nothing
    Set secDoc = Nothing
    Set secRange = Nothing
End Sub

该程序首先会弹出一个文件选择框，让你选择要合并的文件，然后会创建一个新的Word文档，并将每个选定的文件的内容复制到新文档中，最后保存新文档。注意，程序中的文件名和保存路径可以根据实际情况进行修改。