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 ...先這樣之後補上

計劃書產生器

計劃書產生器經過期末考還有忙農村再生教育訓練  
前前後後也寫了長達兩個多月了
大概紀錄一下過程   幫助隨著年紀逐漸降低的記憶

寫的過程大概三分之一花在了解VB語法
三分之一在研究word如何使用
三分之一在調整文件版面

程式內容其實不值一提  寫的很亂 也沒甚麼技巧
但還是花了我很久的時間在google

物件陣列
ex. button 陣列
Dim btuArray As Button() = New Button(2) {}  需要大量物件就用這方法產生 迴圈控制他的位置、大小等
但是呢也因此鎖定了位置及大小，不會隨著螢幕解析度改變
又遍詢不到參數如何設定的情況下.....只好一個一個用拉的

物件迴圈
ex.
me.controls("button"&i).text = i

這樣拉出來的元件就可以自動縮放 又可用迴圈控制 取得他的值

接下來就是 控制word的方式
訣竅就是 先用2007錄製一下巨集
然後觀察巨集用的函式名稱 去google
之後就開始猜猜看參數怎麼下的遊戲

大致這樣 計畫書產生器就完成了

Python 互動式練習網站

http://singpath.appspot.com

還蠻有趣的 又可以練習Python

lp_solve load dll fail

使用環境

OS: win7 64 enterprise
python 2.6.6 (32bit)
netbean 6.9.1

發生問題
老師給的lp_solve 模組 load dll fail

解決方式
1.打給阿蒙
2.至http://lpsolve.sourceforge.net/5.5/ 
   下載 lp_solve_5.5.2.0_dev_win32.zip
      &   lp_solve_5.5.2.0_Python2.6_exe_win32.zip
3. 解開  lp_solve_5.5.2.0_dev_win32.zip 複製到site-packages
4. 解開  lp_solve_5.5.2.0_Python2.6_exe_win32.zip 安裝 lpsolve55-5.5.0.9.win32-py2.6.exe
5. 刪除老師模組內的.dll & .pyd 避免程式load錯

懸疑的地方
家裡的筆電 win7 home premium 64 沒問題
研究室其他人 win7 enterprice 64 沒問題

結論 
感謝學長