(Some of) My OCLC Connexion Client Macros
created the simple way!
| Change 092 to 099, j |
Change 092 to 099, Large Print,Fiction |
Change 092 to 099, jE |
| Split large 505 field |
Split 505 second time (creates three field lines) |
Add 650, delimiter v, Fiction |
| Add 650, (Fictitious character) |
Delete all articles at beginning of titles from 505 field |
Insert delimiters (t and r),delete articles |
| Insert language code (user input box) |
Logon and search by number (user input box)
| Logon and search by title (user input box) |
| Insert colon, delimiter c, dollar sign |
Uncontrol headings all (created before OCLC added this capability to Client) |
Change 240 to 500, insert "Translation of" |
| Logon, search, assign macros to keys | Print record double-spaced |
Batch print new |
'MacroName:099j Return to top
'MacroDescription: written by Merry Morris to change 092 field to 099, j
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.DeleteKey
CS.InsertText "9"
CS.CursorColumn=6
CS.DeleteKey
CS.DeleteKey
CS.DeleteKey
CS.InsertText "j"
End Sub
'MacroName:099jE Return to top
'MacroDescription: written by Merry Morris to change 092 to 099,jE
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.DeleteKey
CS.InsertText "9"
CS.CursorColumn=6
CS.DeleteKey
CS.DeleteKey
CS.DeleteKey
CS.InsertText "jE"
End Sub
'MacroName:099LargePrintFiction Return to top
'MacroDescription: written by Merry Morris to change 092 to 099, Large Print, Fiction
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.DeleteKey
CS.InsertText "9"
CS.CursorColumn = 12
CS.BackSpace
CS.BackSpace
CS.BackSpace
CS.InsertText "Large Print ßa Fiction."
End Sub
'MacroName:505split Return to top
'MacroDescription: written by Merry Morris to split 505 field into two separate fields
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.CutSelected
CS.AddField 2, "50580"
CS.CursorPosition=12
CS.Paste
End Sub
'MacroName:505splitsecondtime Return to top
'MacroDescription: written by Merry Morris to split 505 80 field into two separate 505 80 fields
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.CutSelected
CS.AddField 3, "50580"
CS.CursorPosition=12
CS.Paste
End Sub
'MacroName:650Fiction Return to top
'MacroDescription: macro written by Merry Morris to add a 650, Fiction fieldline
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.AddFieldLine 100, "650 0 " & "ßv" & " Fiction."
CS.TabKey True
CS.TabKey True
CS.TabKey True
CS.CursorPosition = 9
CS.Reformat
End Sub
'MacroName:650fictitiouscharacter Return to top
'Description: written by Merry Morris to add 650 (Fictitious character) Fiction fieldline and place cursor in position to enter chararcer name
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.AddField 1, "650 0 (Fictitious character) ßv Fiction."
CS.KeyRight
CS.KeyRight
CS.KeyRight
CS.KeyRight
CS.KeyRight
End Sub
'MacroName:DeleteArticles Return to top
'MacroDescription: written by Merry Morris to delete "A", "An", "The" from 505 fieldline
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.ReplaceTextAll "ßt The ","ßt ",0
CS.ReplaceTextAll "ßt An ","ßt ",0
CS.ReplaceTextAll "ßt A ","ßt ",0
CS.EndCell
CS.Backspace
CS.Backspace
CS.InsertText "--"
End Sub
'MacroName:InsertDelimitertandrANDdeletearticles Return to top
'MacroDescription: written by Merry Morris to insert delimiter t's and r's in 505 field AND delete "A","An","The"
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.ReplaceTextAll "--","-- ßt",0
CS.ReplaceTextAll "/","/ ßr",0
CS.HomeCell
CS.InsertText "ßt "
CS.RunMacro "MMmacros.mbk!DeleteArticles"
End Sub
'MacroName:FixedFieldLanguage Return to top
'MacroDescription: written by Merry Morris (input box created by Merry Morris) to enter language code
Sub Main
dim CS as object
dim languagecode as string
languagecode=InputBox("Language Code","Enter 3-letter code","eng")
set CS = CreateObject("Connex.Client")
CS.SetCursorFixedField "Lang"
CS.InsertText languagecode
End Sub
'MacroName:LogonAndSearchByNumber Return to top
'MacroDescription: written by Merry Morris 10/14/04
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.Logon "","",""
dim OCLCnumber as string
OCLCnumber=inputbox("Search by OCLC number or ISBN","Search World Cat","")
CS.Search "WC",OCLCnumber
End Sub
'MacroName:LogonAndSearchByTitle Return to top
'MacroDescription: written by Merry Morris 10/17/04
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.Logon "","",""
dim titlesearch as string
titlesearch = InputBox("Search World Cat by Title","Enter title","")
CS.Browse "WC","ti",titlesearch
End Sub
'MacroName:price Return to top
'MacroDescription:Inserts ": delimiter c and dollar sign"
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.AssignMacroToKey "F7", "MMmacros.mbk!price", True
CS.InsertText ": ßc $"
End Sub
'MacroName:uncontrolheadingsall Return to top
'MacroDescription: macro written by Merry Morris to uncontrol all headings 25 rows or less simultaneously
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.CursorRow = 5
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 6
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 7
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 8
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 9
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 10
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 11
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 12
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 13
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 14
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 15
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 16
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 17
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 18
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 19
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 20
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 21
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 22
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 23
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 24
CS.CursorPosition = 1
CS.UncontrolHeading
CS.CursorRow = 25
CS.CursorPosition = 1
CS.UncontrolHeading
End Sub
'MacroName:Translationof Return to top
'MacroDescription: written by Merry Morris to change 240 to 500,Translation of: (Highlight 240 first)
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.InsertText "500"
CS.InsertText " "
CS.InsertText " "
CS.InsertText "Translation of: "
CS.NextSubfield
CS.DeleteToEndOfCell
CS.KeyLeft
CS.InsertText "."
End Sub
'MacroName:LogonSearchAssignMacros Return to top
'MacroDescription:
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.Logon "","",""
dim OCLCnumber as string
OCLCnumber=inputbox("Search by OCLC number or ISBN","Search World Cat","")
CS.Search "WC",OCLCnumber
CS.RunMacro "MMmacros.mbk!Assignmacrostokeys"
End Sub
'MacroName:printdoublespaced Return to top
'MacroDescription: Written by Merry Morris to print record double spaced. Inserts blank field lines, prints, then cancels changes.
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.HomeCell
CS.AddFieldLine 2,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 4,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 6,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 8,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 10,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 12,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 14,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 16 Then
CS.AddFieldLine 16,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 18 Then
CS.AddFieldLine 18,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 20 Then
CS.AddFieldLine 20,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 22 Then
CS.AddFieldLine 22,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 24 Then
CS.AddFieldLine 24,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 26 Then
CS.AddFieldLine 26,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 28 Then
CS.AddFieldLine 28,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 30 Then
CS.AddFieldLine 30,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 32 Then
CS.AddFieldLine 32,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 34 Then
CS.AddFieldLine 34,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 36 Then
CS.AddFieldLine 36,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 38 Then
CS.AddFieldLine 38,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 40 Then
CS.AddFieldLine 40,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 42 Then
CS.AddFieldLine 42,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 44 Then
CS.AddFieldLine 44,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 46 Then
CS.AddFieldLine 46,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 48 Then
CS.AddFieldLine 48,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 50 Then
CS.AddFieldLine 50,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 52 Then
CS.AddFieldLine 52,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 56 Then
CS.AddFieldLine 56,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 58 Then
CS.AddFieldLine 58,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 60 Then
CS.AddFieldLine 60,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
Done:
CS.Print
CS.CancelChanges
End Sub
'MacroName:Batch print Return to top
'MacroDescription: written by Merry Morris to batch print batch-processed records from local save file. Select first record before running macro. If printing is interrupted, can restart by selecting any record on list Then
running macro.
Sub Main
dim CS as object
set CS = CreateObject("Connex.Client")
CS.HomeCell
CS.GetFirstSelectedItem
CS.AddFieldLine 2,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 4,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 6,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 8,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 10,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 12,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 14,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 16 Then
CS.AddFieldLine 16,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 18 Then
CS.AddFieldLine 18,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 20 Then
CS.AddFieldLine 20,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 22 Then
CS.AddFieldLine 22,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 24 Then
CS.AddFieldLine 24,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 26 Then
CS.AddFieldLine 26,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 28 Then
CS.AddFieldLine 28,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 30 Then
CS.AddFieldLine 30,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 32 Then
CS.AddFieldLine 32,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 34 Then
CS.AddFieldLine 34,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 36 Then
CS.AddFieldLine 36,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 38 Then
CS.AddFieldLine 38,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 40 Then
CS.AddFieldLine 40,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 42 Then
CS.AddFieldLine 42,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 44 Then
CS.AddFieldLine 44,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 46 Then
CS.AddFieldLine 46,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 48 Then
CS.AddFieldLine 48,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 50 Then
CS.AddFieldLine 50,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 52 Then
CS.AddFieldLine 52,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 56 Then
CS.AddFieldLine 56,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 58 Then
CS.AddFieldLine 58,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 60 Then
CS.AddFieldLine 60,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Done
End If
Done
:
CS.Print
CS.CancelChanges
NextItem = True
CS.GetNextItem
Do while NextItem=True
CS.GetFirstSelectedItem
CS.HomeCell
CS.AddFieldLine 2,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 4,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 6,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 8,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 10,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 12,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
CS.AddFieldLine 14,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 16 Then
CS.AddFieldLine 16,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 18 Then
CS.AddFieldLine 18,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 20 Then
CS.AddFieldLine 20,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 22 Then
CS.AddFieldLine 22,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 24 Then
CS.AddFieldLine 24,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 26 Then
CS.AddFieldLine 26,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 28 Then
CS.AddFieldLine 28,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 30 Then
CS.AddFieldLine 30,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 32 Then
CS.AddFieldLine 32,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 34 Then
CS.AddFieldLine 34,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 36 Then
CS.AddFieldLine 36,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 38 Then
CS.AddFieldLine 38,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 40 Then
CS.AddFieldLine 40,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 42 Then
CS.AddFieldLine 42,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 44 Then
CS.AddFieldLine 44,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 46 Then
CS.AddFieldLine 46,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 48 Then
CS.AddFieldLine 48,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 50 Then
CS.AddFieldLine 50,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 52 Then
CS.AddFieldLine 52,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 56 Then
CS.AddFieldLine 56,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 58 Then
CS.AddFieldLine 58,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
CS.KeyDown
CS.KeyDown
If CS.CursorRow = 60 Then
CS.AddFieldLine 60,""
CS.InsertText "xxx"
CS.InsertText " "
CS.InsertText " "
CS.InsertText " "
Else
GoTo Finished
End If
CS.KeyLeft
CS.KeyLeft
Finished:
CS.Print
CS.CancelChanges
NextItem = CS.GetNextItem
If NextItem = FALSE Then
Exit Do
Loop
End sub
|
