Another update, I would like to know which one will be better for speed and efficiency use;
Sub Replacing()
Dim sFile As String
sFile = "Pack"
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set objdoc = objword.Documents.Open("C:\Users\Admin\Desktop\" + sFile + ".doc")
Set objSelection = objword.Selection
objSelection.Find.Forward = True
objSelection.Find.MatchWholeWord = True
objSelection.Find.Text = "NAME1"
objSelection.Find.Replacement.Text = Range("C2")
objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
objSelection.Find.Text = "NAME2"
objSelection.Find.Replacement.Text = Range("C3")
objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
objSelection.Find.Text = "Address Line 1"
objSelection.Find.Replacement.Text = Range("C8")
objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
objSelection.Find.Text = "Address Line 2"
objSelection.Find.Replacement.Text = Range("C9")
objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
objdoc.PrintOut
objdoc.Close SaveChanges:=False
objword.Quit
End Sub
Bookmarks