easy replace (8/12 update)

清寒版的word字串尋找取代程式終於姍~姍~來~遲~了 ( by □○大師)
特色 1. 可以針對資料夾及其子資料夾的內的word檔進行字串搜尋取代
        2. 支援 .doc 及 .docx (也只支援這兩種)
        3. 沒有例外處理 XD
        4. 沒有壓力測試過 (只有跑過雙位數以下的檔案數)
        5. 不保證成功 ^_^

大概解說一下

直接用計畫書產生器中已寫過的尋找取代
        wordapp.Selection.HomeKey(Word.WdUnits.wdStory, Word.WdMovementType.wdMove)
        Dim find As Word.Find = wordapp.Selection.Find
        find.ClearFormatting()
        find.Replacement.ClearFormatting()
        find.Text = findText
        find.Replacement.Text = replaceText
        Dim oMissing As Object = System.Reflection.Missing.Value
        find.Execute(oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, Word.WdReplace.wdReplaceAll, oMissing, oMissing, oMissing, oMissing)
這裡比較注意的oMissing，這是跟Cerberus花了一點時間找出來的參數下法

然後....程式碼在學校電腦忘了備份到dropbox ...先這樣之後補上