You can pass the Word.Document object to the subroutine like:
Sub msReplaceCellData(WordDoc As Word.Document, OrigText As String, ReplaceText As String, r As Integer, c As Integer)
With WordDoc.Tables(1).Cell(r, c).Range.Find
.Text = OrigText
.Replacement.Text = ReplaceText...