追綜修訂模式轉為劃線模式

追綜修訂模式轉為劃線模式

原始來源：patenting a life
http://thinkpatent.blogspot.com/


patent amendment and word vba
To convert the track change formatting to regular word formatting.
The code will change deletion to strikethrough, deletion of 5 chars or less is denoted using [[ ]] . Insertion is formatted with underline.

Sub TypeAndStrike()
' Converts tracked revisions in the active document into "type and
' written by Chip Orange.
' modified by iFly
'
Dim chgAdd As Word.Revision

' disable tracked revisions.
If ActiveDocument.Revisions.Count = 0 Then
MsgBox "There are no revisions in this document", vbOKOnly
Else
ActiveDocument.TrackRevisions = False

For Each chgAdd In ActiveDocument.Revisions
If chgAdd.Type = wdRevisionDelete Then
If chgAdd.Range.Characters.Count <= 5 Then
Dim temp1 As Range
Set temp1 = chgAdd.Range

chgAdd.Range.Font.StrikeThrough = False
chgAdd.Reject

temp1.InsertBefore ("[[")
temp1.InsertAfter ("]]")
MsgBox temp1.Text

Else
'normal change just strikthrough
chgAdd.Range.Font.StrikeThrough = True
chgAdd.Reject
End If
ElseIf chgAdd.Type = wdRevisionInsert Then
' It's an addition, so underline it.
chgAdd.Range.Font.Underline = wdUnderlineSingle
chgAdd.Accept
Else
MsgBox ("Unexpected Change Type Found"), vbOKOnly + vbCritical
chgAdd.Range.Select ' move insertion point
End If

Next chgAdd
End If

End Sub

Another improvement to change the portion in active selection, instead on the whole document. Save the macro in normal.dot, add a command (tool-customize - look for macro) to the toolbar !!


Sub TypeAndStrike()
' Converts tracked revisions in the active document into "type and
' written by Chip Orange.
' modified by Ifly
' Only operate to selected area in word document

Dim chgAdd As Word.Revision
Dim iStart As Integer
Dim iEnd As Integer


iStart = Selection.Range.Start
iEnd = Selection.Range.End
Set myRange = ActiveDocument.Range(Start:=iStart, End:=iEnd)


' disable tracked revisions.
If myRange.Revisions.Count = 0 Then
MsgBox "There are no revisions in this document", vbOKOnly
Else
ActiveDocument.TrackRevisions = False

For Each chgAdd In myRange.Revisions
If chgAdd.Type = wdRevisionDelete Then
If chgAdd.Range.Characters.Count <= 5 Then
Dim temp1 As Range
Set temp1 = chgAdd.Range

chgAdd.Range.Font.StrikeThrough = False
chgAdd.Reject

temp1.InsertBefore ("[[")
temp1.InsertAfter ("]]")


Else
'normal change just strikthrough
chgAdd.Range.Font.StrikeThrough = True
chgAdd.Reject
End If
ElseIf chgAdd.Type = wdRevisionInsert Then
' It's an addition, so underline it.
chgAdd.Range.Font.Underline = wdUnderlineSingle
chgAdd.Accept
Else
MsgBox ("Unexpected Change Type Found"), vbOKOnly + vbCritical
chgAdd.Range.Select ' move insertion point
End If

Next chgAdd
End If

End Sub


Posted by ifly
at 4:21 PM

CRF 1.78f1 相關案件提報的小程式

最近為公司撰寫了一個 CRF 1.78f1 相關案件提報的小程式，檔案為excel檔，分享給各位試試。

CRF 1.78f1.v1
http://ides13.googlepages.com/CRF1.78f.v1released.rar

這個小程式功能不強，僅能提供參考使用，不能取代人工仔細的檢查相關案件，請留意。

(^_^)

兩個專利說明書使用得到的巨集

http://www.nifty.com/download/win/business/patent/index.htm
兩個巨集，對各位寫美專時，一定會有很大的幫助。

第一個巨集，在每一段落前，新增希望標記段落的「預設標記【0000】」。 代碼:

Sub P_ini()
'
' 巨集錄製於 2006/1/4，錄製者 Friz.zzz
'
Selection.TypeText Text:="【0000】"
End Sub

第二個巨集，對每個「預設標記【0000】」，依順進行修改成正確的段落標記。 代碼:

Sub P_number()
'
'原作者／連絡方式
'岡田 稔 ／E-mail: okada@office.email.ne.jp
'
'中文化作者／連絡方式 
'keeping a diary patently/E-mail: Friz.zzz@gmail.com
'
Dim AddStr
Dim Num
Dim Flg_Conv
Dim Msg_Title
Msg_Title = "通知"
Num = 1
Flg_Conv = 0
Set myRange = ActiveDocument.Range()
With myRange.Find
.ClearFormatting
.Text = "【^#^#^#^#】"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
Do While .Execute = True
With .Parent
Flg_Conv = 1
.Delete
'
'日文說明書使用全形的「 vbWide 」；英說使用半形的「 vbWide 」
'，可自由選擇。
'
' AddStr = "【" + StrConv(Format(Num, "0000"), vbWide) + "】"
AddStr = "【" + StrConv(Format(Num, "0000"), vbNarrow) + "】"
.Font.Reset
.InsertAfter (AddStr)
.Move
End With
Num = Num + 1
Loop
End With
If Flg_Conv = 1 Then
MsgBox StrConv(Num - 1, vbNarrow) + " 個段落被置換", , Msg_Title
Else
MsgBox "沒有發現預設段落標記", , Msg_Title
End If

End Sub

安裝及使用方法：
1、alt鍵+F11鍵
2、點選左側欄的專案normal下的模組下的「NewMacros」
3、貼上上面的程式碼
4、儲存後，按alt+F8，之後選「 P_ini」巨集或「 P_number」巨集。

其他：
雖然段落預設標記是「【0000】」，但是卻不限定於此，只要是任意4個數字皆可，所以若有已完成的檔案，想要刪除一整段時，可以考慮使用第二個程式，用第二個程式來修正刪除一整段落後所造成的順序錯誤。

Keeping a Diary Patently專利事務管理系統2006

Keeping a Diary Patently
(image placeholder)

一、目的：
建立一個專利事務管理用控管系統
     
二、各處理表單的功能及設計理由說明：
案件處理，

• 案件資訊，輸入及顯示個案件的資訊，在右邊具有倒三角形的輸入格內，請匆直接輸入資料，而點選倒三角形選擇所慾輸入資訊，若找不到相關資料，請於“申請人”、“事務所”等表單新增完畢後，再回原處即可點選。


• 工作表單，新增工作項目，以便控管個人應處理工作，要新增一件申請案除了應先於“案件資訊”表單建立一項案件資訊的記錄外，還應在“工作表單”新增一項工作表單的記錄，例如「申請階段」之工作表單的記錄，如此方可利用搜尋“工作查詢”表單的方式，控管此案件。


• 工作查詢，用以根據不同的條件，搜尋工作表單，依各種不同的搜尋條件可達到不用的目的，在各條件未輸入任何值的情況下，使用預設值，預設值為管制日期即將於15天內到期且尚未結案的工作表單。也就是說，在各條件皆沒有輸入任何值的情況下，是否結案已預設為“N（意即未結案）”；管制日期的“迄日期”已預設為“今日+15天”。個人若要監控自己的工作項目，僅需再於員工欄點選自己，即可顯示管制日期在15天內到期且尚未結案的個人工作表單。另外，於結案選項中，“Y”代表已結案；“N”代表未結案；“*”代表已結案加未結案。


• 個人工作，選擇員工後顯示個人的工作表單，開始設計此程式時所做的，其實此表單可以用“工作查詢”表單來取代，只覺得刪除有點可惜就將它留著，下個版本可能會將它拿掉。

基本資料，包括

• 申請人，輸入及顯示申請人資訊。


• 事務所，輸入及顯示事務所資訊。


• 員工，輸入及顯示員工資訊。


• 本社資訊，輸入及顯示自己公司的資訊，當此表單內的“公司名稱”更變時，起始表單頂端處的資訊也會更變。

基本設定，包括

• 階段，專利案件的各處理階段，可依自己公司的程序新增。


• 工作類型，依公司的制度建立，較有規模的公司每一專利處理階段都會由不同的部門處理，小規模公司一個專利工程師處理所有的事情就可不必建立，但我覺得還是至少建立個“管理”和“工程”兩種，因為有兩個表單由兩個人監控，時可以確保單一個人輸入管制期限犯錯，或精神狀態不佳時忽略一個重要工作表單等。


• 案件類型，依各國制度新增。


• 職稱，依公司制度新增。

三、工具列功能

(image placeholder)

工具列的各項目功能和說明都很直接，請直接試試便可知道其功能，僅說明“模式切換”。

(image placeholder)       (image placeholder)

因為Access資料庫的預設情況下，於表單內輸入完資料後不必執行儲存動作，直接離開該記錄，所輸入的資料會自動被儲存。為避免開起表單後，不經意地按到鍵盤而造成資料改變，本系統的重要表單預設為不可編輯，並都加入了“檢視模式”和“編輯模式”的設計，開起表單後預設為檢視模式僅供檢視表單用，點選“模式切換”後，表單會更變成編輯模式，即可進行編輯或新增。

四、其他注意事項
1、此系統目前版本僅是初步的開發階段，想提供給所有人試用測試，老實說自己是將目標定在商業化，不過我很懷疑是否真的能做到那個地步，當然啦若有一天真的商業化，我會開放給個人使用者有限制地使用。在開發階段，這個系統不會有任何限制，希能能提供很多人使用，並得到使用此系統的意見，讓我對此系統加入新的功能及改進，所以若有什麼意見或需求，歡迎多多來信，謝謝。
2、由於某些原因，在某些資料表當中某些項必須輸入有資料，否則在搜尋時會出現錯誤，因此本系統預先在該等項中使用如“Ides13”、ides13@gmail.com、“今日”、“今日+60”等的預設值，在該些項中，若不使用預設值，亦請務必輸入資料。
3、關於安全性的問題，可以自行使用Access的安全性功能。在分享此資料庫前，原也想加入保護此資料庫不被更改設計的功能，但最後決定放棄加入安全性的功能，希望留給會Access的使用者最大的空間（^_^）。將來的商業化版本，如果有那麼一天的話，將會加入安全性的功能。

五、商業行為
1、我想在此資料庫中加入廣告，目前僅決定在“事務所”表單（資料表）中加入，讓它成為預設的資料，有興趣的人請與我連絡（ides13@gmail.com），謝謝。
2、若您願意無條件贊助我繼續開發此軟體，亦歡迎您與我連絡。

六、關於「Keeping a Diary Patently專利事務管理系統2006」
首頁：http://patentdic.blogspot.com/
Email：ides13@gmail.com
程式下載：http://ides13.googlepages.com/KeepingADiaryPatently.exe
來信時，最好將信件“標題”設為「Keeping a Diary Patently」，避免讓我不小心誤以為垃圾信，沒看就直接將它刪了。