'MacroName:DuplicateField
'MacroDescription:Copies a field and pastes it in a new blank
' field directly following.
'
' This macro was written by Walter F. Nickeson,
' University of Rochester, Rochester, NY
' wnickeson@library.rochester.edu
'
' Last updated: 3 February 2009.
' Check for the latest versions of this and my other macros at
' http://docushare.lib.rochester.edu/docushare/dsweb/View/Collection-2556
' Please e-mail me with bug reports or to suggest improvements.
'
' Works in Connexion client 2.10.
'
'***************************************************************
' How it works: With the cursor in the field to be copied, run
' the macro. It copies the entire field (tag, indicators, and
' data) and inserts the copy as a new field directly below the
' original.
'***************************************************************

Option Explicit

Sub Main

Dim CS As Object
Set CS = CreateObject("Connex.Client")

Dim FieldData$

Dim Row%

Row% = CS.CursorRow
If CS.GetFieldLine ( Row%, FieldData$ ) = FALSE Then
    MsgBox "Sorry, this macro can't proceed!", 48, "Error"
    GoTo Done:
End If

If CS.AddFieldLine ( Row% + 1, FieldData$ ) = FALSE Then
    MsgBox "Sorry, this macro can't proceed!", 48, "Error"
    GoTo Done:
End If

Done:

End Sub