[Lotus script] -Word匯出．改

續匯出Wpord程式
再多一個匯出「圖像」∼ 從Richtext中取出並轉到Word裡面..

[Lotus script]-Word 出出出

'將Notes資料輸出並套用至Word範本檔裡面
1.首先建立一個Word的範本檔
使用「插入」、「功能變數」設定欄位作為資料儲存體

使用「插入」、「書籤」設定書籤作為插入位置

2.NOTES表單中對應匯出程式如下：

Sub WordOutOutOut( M_To As String, M_DY As String, M_DM As String, M_DD As String, M_NO As String, M_SP As String, M_SEC As String,M_AH As String,M_Sub As String,M_Body As String,M_MAIN As String,M_BEND As String)
    Dim session As New NotesSession
    Set db=session.CurrentDatabase
    Set wdoc=session.DocumentContext   
   
    DefDocPath="C:\missive_out_sample.dot" '設定路徑
   
    Set oWord = CreateObject("Word.Application")
    oWord.Application.Visible = True
    oWord.documents.Add DefDocPath, False
    Set WordDoc = oWord.activedocument
    '=======Go to bookmark=======
    WordDoc.Bookmarks("TO").Select
    Call oWord.Selection.TypeText(M_To)
    WordDoc.Bookmarks("YY").Select
    Call oWord.Selection.TypeText(M_DY)
    WordDoc.Bookmarks("MM").Select
    Call oWord.Selection.TypeText(M_DM)
    WordDoc.Bookmarks("DD").Select
    Call oWord.Selection.TypeText(M_DD)
    WordDoc.Bookmarks("NO").Select
    Call oWord.Selection.TypeText(M_NO)
    WordDoc.Bookmarks("SPEED").Select
    Call oWord.Selection.TypeText(M_SP)
    WordDoc.Bookmarks("SECURE").Select
    Call oWord.Selection.TypeText(M_SEC)
    WordDoc.Bookmarks("ATTACH").Select
    Call oWord.Selection.TypeText(M_AH)
    WordDoc.Bookmarks("SUBJECT").Select
    Call oWord.Selection.TypeText(M_Sub)
    WordDoc.Bookmarks("BODY").Select
    Call oWord.Selection.TypeText(M_BODY)
    WordDoc.Bookmarks("MAIN").Select
    Call oWord.Selection.TypeText(M_MAIN)
    WordDoc.Bookmarks("BEND").Select
    Call oWord.Selection.TypeText(M_BEND)
   
    ''==========================
    'oWord.documents(1).SaveAs "c:\Tmp\WM20101223.doc"
End Sub

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

RAMDisk配套措施

修改 Internet Explorer 的暫存目錄( Temporary Internet Files )
開啟 IE→工具 →網際網路選項 →瀏覽歷程記錄→設定→移動資料夾
登出，然後再登入

修改 Firefox 快取資料夾
1.在網址列輸入「about:config」
2.∼發誓！一定會小心。
3.新增→字串。
4.在新增字串的視窗中輸入「browser.cache.disk.parent_directory」
5.雙擊「browser.cache.disk.parent_directory」輸入字串的值(例：R:\Temp\_fxTmp)
6.重新啟動 Firefox，設定即可生效。

開機∼

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyFolder "D:\Temp\_fxTmp\Cache", "R:\TEMP\_fxTmp\Cache"
fs.copyFolder "D:\TEMP\_ieTmp\Temporary Internet Files", "R:\TEMP\_ieTmp\Temporary Internet Files"
fs.copyFolder "D:\TEMP\_tmp", "R:\TEMP\_tmp"

關機∼

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyFolder "R:\TEMP\_fxTmp\Cache", "D:\Temp\_fxTmp\Cache"
fs.copyFolder "R:\TEMP\_ieTmp\Temporary Internet Files", "D:\TEMP\_ieTmp\Temporary Internet Files"
fs.copyFolder "R:\TEMP\_tmp", "D:\TEMP\_tmp"

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

[JScript]關於window.showModalDialog中再呼叫window.showModalDialog

有時候window.showModalDialog中再呼叫window.showModalDialog會出現不知名JScript錯誤
只是不支援此方法！
只要將阻擋「快顯」那邊取消即可。

--
看到、想到、說到、做到　
能夠填平大海的誓言，也比不上邁出一步的價值　
是以吾輩此生，再無任何誓言

Fwd: RAMDisk 配套暫存處理批次檔

Firefox更改快取資料夾（Cache Folder）

1.在網址列鍵入：「about:config」，開啟設定頁面。
2.在篩選條件中鍵入：「browser.cache.disk.parent_directory」。
3.雙擊該項目，便可更改其內容。內容為快取資料夾的完整路徑。
4.若無該項目，則需自己新增。屬性為字串、內容為快取資料夾的完整路徑。
5.關閉設定頁面、重新啟動 Firefox，設定即可生效。

RAMDisk 配套暫存處理批次檔：

[啟動]
C:\WINDOWS\System32\GroupPolicy\Machine\Scripts\Startup\D2R.bat XCOPY D:\temp\fcache\Cache\*.* V:\fcache\Cache\*.* /S /D /Y

[關機]
C:\WINDOWS\System32\GroupPolicy\Machine\Scripts\Shutdown\R2D.bat
XCOPY V:\fcache\Cache\*.* D:\temp\fcache\Cache\*.* /S /D /Y

1.安裝RAMDisk軟體，並設定為V槽。
2.分別建立「D2R.bat」、「R2D.bat」此兩批次檔，內容如上。並放置於上述位置。
3.於Firefox中更改cache位置到V槽：V:\fcache\Cache\

以上…


--
人是無法在沒有終點的道路上行進的
但是只要有終點　不管再遠的路都能走完

[筆記]-行程殺手！

Kill a Windows process from the command line with taskkill
我們知道要在WINDOWS裡面自動執行一個程式是很簡單的事情，修改登錄表開機時讓它啟動、將捷徑放到開始功能表的「啟動」裡面...但是要讓一個已在執行中的程式自動停止怎麼辦？看來WINDOWS的制動系統似乎沒有一個方便的解決方案！所以這又是一個需要繞路的問題。這時我們想到在「命令提示字元」下有一條指令可以讓我們終止程式的執行，所以若是利用它再加上排程器，如此一來不就能做到在指定時間讓它去關閉某一程式了嗎！
這個指令就是它：taskkill
以下列出常用參數：

結束一個或多個工作或處理。可以依處理程序識別碼或影像名稱來清除處理程序。
Syntax

taskkill [/s Computer [/u Domain\UserName [/p Password]]] {[/fi Filter [/fi Filter [ ...]]] [{/pid ProcessID | /im ImageName}] | /pid ProcessID | /im ImageName} [/f] [/t]
Parameters

/sComputer

指定遠端電腦的名稱或 IP 位址 (不要使用反斜線)。預設為本機電腦。

/uDomain\UserName

使用由 UserName 或 Domain\UserName 所指定的使用者帳戶使用權限來執行該命令。指定 /s 後，才能指定 /u。預設值是發出命令之電腦上目前登入之使用者的使用權限。

/pPassword

指定在 /u 參數中指定的使用者帳戶密碼。

/fiFilter

指定處理程序類型，以包含在終止中或從終止排除之。您可以指定多個篩選器。使用萬用字元 (*) 指定所有工作或影像名稱。下列是有效的篩選器名稱、運算子和值。
/pidProcessID

指定要終止之處理程序的處理程序識別碼。

/imImageName

指定要終止之處理程序的影像名稱。使用萬用字元 (*) 指定所有影像名稱。

/f

指定強制終止處理程序。遠端處理程序略過了本參數；所有遠端處理程序均被強制終止。

/t

終止指定的處理程序及該處理程序啟動的任何子處理程序。

/?

在命令提示字元上顯示說明。

所以若是要應用在我的工作上～則新增一個排程、設好時間、輸入指令：

taskkill /T /F /IM 南極.exe

[心得]-Execl Micro：檢測之前是否重複輸入字串

此巨集用以檢測目前輸入的字串，是否在之前已經輸入過了。例如在建立人名時～

Private Sub Worksheet_Change(ByVal Target As Range)
Keyin_words = Target.Text
Active_row = Target.Row
'字串檢查
If Not Len(Keyin_words) Then
If Chr_Num_check(Keyin_words) Then
If Not Cells.Find(Keyin_words, ActiveCell, xlValues, xlWhole, xlByRows, xlNext, False).Row = Active_row Then MsgBox ("前面有了")
Else
Exit Sub
End If
End If
End Sub

Function Chr_Num_check(str1) As Boolean
Chr_Num_check = False
For i = 1 To Len(str1)
str2 = Mid(str1, i, 1)
If Asc(str2) < 47 Or Asc(str2) > 58 Then
Chr_Num_check = True
Exit Function
End If
Next
End Function

偽.雲圖產生器.改

之前在主任要求下寫了一段Script，用來應付「即時氣象」沒有下載到雲層圖的情況。不過是批次的複製、貼上、改檔名的程序罷了！而今天有人提到當初的參考日是選同事結婚當天作參考點(因為是黃道吉日)，而該日是屬於晴天雲層較稀疏。所以應該新增壞天氣的對照組來應天候使用。所以...小改了一下。

dim i,cwc,climate,climate_cht,cwc2,s1,s2,s3,ndn
Set fs = CreateObject("Scripting.FileSystemObject")
s1=day(date)
s2=Month(date)
s3=year(date)
if len(s1)<2 then s1="0" & s1
if len(s2)<2 then s2="0" & s2
ndn=s3 & "-" & s2 & "-" & s1
cwc = inputbox("輸入需要產生圖檔之日期","Day",ndn)
climate = inputbox("選擇天氣 0:黃道吉日 ; 1:壞天氣","climate",0)

If climate = 0 then climate_cht = "auspicious_day" else climate_cht = "overcast_day"
If fs.FolderExists(cwc) = True then fs.DeleteFolder cwc , True

fs.CreateFolder(cwc)
for i = 0 to 9
cwc2 = cwc & "\" & cwc & "_0" & i & ".jpg"
fs.CopyFile climate_cht & "\n0" & i & ".jpg", cwc2
next

for i = 10 to 23
cwc2 = cwc & "\" & cwc & "_" & i & ".jpg"
fs.CopyFile climate_cht & "\n" & i & ".jpg", cwc2
next