my file doesn't save on the server:
Sub Mac()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim ts As Worksheet
Dim ruta As String, DocName As String
Set ts = ThisWorkbook.Sheets("Mac")
ruta = "\ssnyvolumes.ny.publicisgroupe.net\Share1\North America\USA\2022\VR tasks\"
DocName = "test_template.docx"
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(ruta & DocName)
objWord.Visible = True
With objDoc
.Bookmarks("nombre").Range.Font.Bold = True
.Bookmarks("fecha").Range.Font.Bold = True
.Bookmarks("monto").Range.Font.Bold = True
.Bookmarks("nombre").Range.Text = ts.Range("c8").Text
.Bookmarks("fecha").Range.Text = ts.Range("d8").Text
.Bookmarks("monto").Range.Text = ts.Range("e8").Text
End With
DocName = "test_template.docx - " & ts.Range("d8").Text
objDoc.SaveAs2 Filename:=ruta & DocName
objDoc.Close
objWord.Quit
MsgBox "¡New Report Done", vbInformation
End Sub
Sub Mac()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim ts As Worksheet
Dim ruta As String, DocName As String
Set ts = ThisWorkbook.Sheets("Mac")
ruta = "\ssnyvolumes.ny.publicisgroupe.net\Share1\North America\USA\2022\VR tasks\"
DocName = "test_template.docx"
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(ruta & DocName)
objWord.Visible = True
With objDoc
.Bookmarks("nombre").Range.Font.Bold = True
.Bookmarks("fecha").Range.Font.Bold = True
.Bookmarks("monto").Range.Font.Bold = True
.Bookmarks("nombre").Range.Text = ts.Range("c8").Text
.Bookmarks("fecha").Range.Text = ts.Range("d8").Text
.Bookmarks("monto").Range.Text = ts.Range("e8").Text
End With
DocName = "test_template.docx - " & ts.Range("d8").Text
objDoc.SaveAs2 Filename:=ruta & DocName
objDoc.Close
objWord.Quit
MsgBox "¡New Report Done", vbInformation
End Sub