For i =  2  To numColumn
                    FindText = Cells( 1 , i)
                    
                    If FindText = "{currentDate}" Then
                        ReplaceText = Format(Date, "dd.mm.yyyy")
                    Else
                        ReplaceText = Trim$(.Cells(i))
                    End If
                    
                    With WD.Range.Find
                        .Text = FindText
                        .Replacement.Text = ReplaceText
                        .Forward = True
                        .Wrap =  1 
                        .Format = False
                        .MatchCase = False
                        .MatchWholeWord = False
                        .MatchWildcards = False
                        .MatchSoundsLike = False
                        .MatchAllWordForms = False
                        .Execute Replace:= 2 
                    End With

                    DoEvents
                Next i