Format of claims

Format of claims

a. A claim is a sentence. It must start with a capital letter, and end with a period - and those must be the only capital letters or periods in the claim.

b. Use of ":" colon in claim
i. Try to use only one colon per claim if possible. A claim with only one item, should NOT use colon at all. Colon is for a two-or-more items list.
ii. For a list of items: if only two items, use "and" / "or" to specify the relation.
iii. For more than 2 items, use comma to separate the items, and use and/or to specify the last item.

c. Comprising or comprises:
i. Comprising when it is not a complete sentence.
ii. Comprises when it is used in a clause / like a full sentence
iii. Comprising means "which comprises"
1) What is claimed is: A device, which comprises:
2) What is claimed is: A device comprising:

d. Wherein means "in which" - sometimes, a next claim limitation is not necessary found in previous claim limitation, therefore it is not always correct to use "wherein"

e. Is comprised - bad grammar, avoid using this form.

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

Patent and Standard

The drafting of wifi standard and potential collision with Patents.
Quoted from Zdnet

Companies working with popular standards for wireless technology may have a patent infringement problem. A federal judge in Tyler, Texas, ruled last week that an Australian government agency holds the rights to patents on the underlying technology used in two Wi-Fi standards and a third proposed standard. The decision--if it survives what many assume will be a lengthy appeals process--could have a wide-ranging impact on wireless equipment makers and consumer electronics manufacturers.

http://news.zdnet.com/2100-9595_22-6137372.html

The blogger speed is really crawling.. If nothing is done. Good luck blogger.