Sub Move_Index_Entries()
'
'  this macro will move index entries to the end of the paragraph,
'  so that you can translate everything without splitting sentences.
'
Dim Para As Paragraph
Dim k As Integer
For Each Para In ActiveDocument.Paragraphs
    Selection.Start = Para.Range.End - 1
    Selection.End = Para.Range.End - 1
    ActiveDocument.Bookmarks.Add Range:=Selection.Range, _
    Name:="DVParaEnd"
    For k = Para.Range.Fields.Count To 1 Step -1
        If Para.Range.Fields(k).Type = wdFieldIndexEntry Then
        Para.Range.Fields(k).Cut
        Selection.GoTo What:=wdGoToBookmark, _
        Name:="DVParaEnd"
        Selection.Paste
        End If
    Next k
Next Para
End Sub