önce referanslarda Microsoft word ... library eklenmeli aşağıdaki kod sadece altan2 için
isterseniz çalışmanıza değişecek veri ve alacağı yeni değer için 2 metin kutusu koyarsınız ona göre işlem yapar

    Dim app As Word.Application

    Dim doc As Word.Document



    Set app = CreateObject("Word.Application")

    app.Visible = True

    Set doc = app.Documents.Open("C:\Users\halil\Desktop\Database2\ORNEK METIN.docx")



        With doc.Content.Find

            .Text = "Altan2"

            .Replacement.Text = Me.Metin0

            .Wrap = wdFindContinue

            .Execute Replace:=wdReplaceAll

        End With