I have an access memo field loaded into a Visual Basic text box.  The text
box contain about 2100 characters so I am trying to move them in 255 blocks.
I have tried bookmark points and formfields, inserting before and inserting
after, but the results are always scrambled.  The contents of each 255
character block is correct but the blocks are out of order.  Here is the
section of code I use:

If Len(frmTab13.Text1.Text) > 255 Then
        ActiveDocument.Unprotect
        Dim strLen As Long
        lStart = 1
'        strLen = 0
    Do While lStart < Len(frmTab13.Text1.Text)
        xStr = ""
        xStr = Mid$(frmTab13.Text1.Text, lStart, 255)
        Selection.GoTo what:=wdGoToBookmark, Name:="Minutes"
'        Selection.InsertAfter xStr
        oWD.FormFields("Minutes").Result = xStr
        lStart = lStart + 255
    Loop
Else
      oWD.FormFields("Minutes").Result = frmTab13.Text1.Text = ""
End If
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

Thanks in advance for any help, Vik

Sorry, I forgot to mention that I use vb6, Access97, and Word8.  Thanks,
Vik.

What about:

Selection.InsertAfter frmTab13.Text1

..or have you a particular reason for shifting 255 chrs at a time ?

Word will only allow 255 characters to be moved at one time.  That's why the
loop and 255 chars per loop.  Thanks for the reply and the suggestion, Vik.

It works for me, i just transefered 840 char string this way - I have Word
97 no mods

Let me explain a little more about what I am doing.  I have a text box on a
vb form and the text box contains about 2000 chrs.  Programatically, I want
to print that text in a Word field identified by a bookmark using the format
"oWD.FormFields("A1Write").Result = frmTab1.MEB3.Text" and that works well
until frmTab1.MEB3.Text has more than 255 chrs.  I will try insertafter and
insert before again and see what happens.  Thanks again for your help, Vik.

Hi Vik,

Put

ActiveDocument.Bookmarks("Minutes").Range.Select

before the Do While loop

and then in the loop use

Selection.InsertAfter xStr
Selection.Collapse Direction: = wdCollapseEnd

in place of

        Selection.GoTo what:=wdGoToBookmark, Name:="Minutes"
'        Selection.InsertAfter xStr
        oWD.FormFields("Minutes").Result = xStr

Please post any follow-up or new questions to the Newsgroups so that others
may benefit therefrom or contribute thereto.

Hope this helps,
Doug Robbins - Word MVP

Thanks, that was exactly what I needed.
Vik