Dim WordApp As New Word.Application

Sub apri(path As String)
    WordApp.Documents.Open path '"D:\Moduli iEasyConfig\Moduli Richiesta\Moduli Richiesta LA\a.doc"
    WordApp.Visible = True
End Sub
Sub salva(path As String)
    WordApp.ActiveDocument.SaveAs path  '"D:\Moduli iEasyConfig\Moduli Richiesta\Moduli Richiesta LA\b.doc"
    WordApp.Quit
    Set WordApp = Nothing
End Sub

Public Sub sostituisci(da As String, a As String)
    InserisciVariabileWord da, a, WordApp
End Sub
Sub InserisciVariabileWord(sVariabile As String, sValore As String, objWord As Word.Application)
   
   objWord.Selection.Find.ClearFormatting
   objWord.Selection.Find.Replacement.ClearFormatting
   With objWord.Selection.Find
      .Text = sVariabile
      .Replacement.Text = sValore
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
   End With
   objWord.Selection.Find.Execute Replace:=wdReplaceAll
End Sub