Excel -> Word (Textbox Find/Replace)

[aiwnjoo]

Hi guys, really struggling here and tried on different forums but nobod
seems equipped to resolve this so fingers crossed that there is a geniu
amongst us

Current Macro, this is fully working for non-textbox find/replac
however i need a version of this that supports textboxes.


Code
-------------------
Sub Replacing()


Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Cursor = xlWait
Application.DisplayStatusBar = True
Application.StatusBar = "Generating DM Pack, please wait!"

On Error GoTo 0

Dim sFile As String
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim sInput(0) As String, sOutput(0) As String


sFile = "KF"

Set wrdApp = New Word.Application


With wrdApp

.Visible = True

Set wrdDoc = .Documents.Open("C:\Docs\" + sFile + ".doc")

.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting

sInput(0) = "Test"

sOutput(0) = "ACCREF"


For i = 0 To UBound(sInput) - 1

With .Selection.Find
.Text = sOutput(i)
.Replacement.Text = Range(sInput(i)).Text
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll

End With

Nex