Buona giornata, Chiara;
ho provato a riscrivere il Codice VBA e mi sembra funzionare ma, appena ho un attimo di tempo, analizzerò il tuo Codice per capire quale sia l'istruzione che crea problemi.
Preliminarmente basta posizionare il Cursore su una Cella della Riga nella quale in Colonna "A" ci sia il NomeFile da salvare e in Colonna "B" il Valore da riportare in Word e attivare il Codice VBA:
Option Explicit
Sub Trasferisci()
Dim sFILENAME As String
Dim NomeFile As String, NomeFile2 As String, Ragione_Sociale As String
Dim WrdApp As Object, WrdDoc As Object
Const FileDaAprire As String = "Base.docx"
NomeFile = Cells(ActiveCell.Row, 1).Value
Ragione_Sociale = Range("B2").Value
sFILENAME = ThisWorkbook.Path & "\" & FileDaAprire
Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Open(sFILENAME)
With WrdDoc
.Bookmarks("PROVA").Range.Text = Cells(ActiveCell.Row, 2).Value
NomeFile2 = ThisWorkbook.Path & "\" & NomeFile & ".docx"
End With
WrdApp.ActiveDocument.SaveAs (NomeFile2)
WrdApp.Quit
Set WrdApp = Nothing
Set WrdDoc = Nothing
End Sub
Ho aggiunto anche un Codice VBA che consente di aprire e visualizzare il File Word selezionato.
Option Explicit
Sub Apri_Word()
Dim sFILENAME As String
Dim NomeFile As String
Dim WrdApp As Object, WrdDoc As Object
NomeFile = Cells(ActiveCell.Row, 1).Value & ".docx"
sFILENAME = ThisWorkbook.Path & "\" & NomeFile
Set WrdApp = CreateObject("Word.Application")
WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Open(sFILENAME)
WrdDoc.Activate
VBA.AppActivate WrdApp.Windows(1).Caption
Set WrdApp = Nothing
Set WrdDoc = Nothing
End Sub
Direi che potresti provare i due Codici sopra proposti; poi, se hai problemi, posso allegare il File con il quale ho eseguito i miei Test.
A disposizione.
Buon Lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013