VB Code:
Option Explicit
Private Sub Command1_Click()
Dim strArr() As String
Dim i As Integer
Dim intFile As Integer
Dim strText As String
[COLOR=DarkRed]Dim strTxtOld As String[/COLOR]
intFile = FreeFile()
Open App.Path & "\words.txt" For Input As #intFile
strArr = Split(Input$(LOF(intFile), intFile), vbNewLine)
Close #intFile
Open App.Path & "\stuff.txt" For Input As #intFile
strText = Input$(LOF(intFile), intFile)
Close #intFile
[COLOR=DarkRed]strTxtOld = strText[/COLOR]
For i = LBound(strArr) To UBound(strArr)
Open App.Path & "\" & strArr(i) & ".html" For Output As #intFile
[COLOR=DarkRed]strText = Replace(strTxtOld, "Wild Card", strArr(i))
Doevents[/COLOR]
Print #intFile, strText
Close #intFile
Next i
End Sub