ExcelBanter - View Single Post - Excel

aiwnjoo

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

Current Macro, this is fully working for non-textbox find/replace 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
    
    Next

Thanks,