MS Word Visual Basic. Поменять местами первый и последний абзацы.

[Coul777exe]

Данный код меняет только 1 и 2 абзацы, помогите исправить так, чтобы менял первый и последний.

PHP код:

Sub ZamenaAbzaz()
    Dim s$, x, n, k&, ss$, i&, j&, temp$, v$(2)
    s = Word.ActiveDocument.Content
    x = Split(s, "@")
    For i = 0 To UBound(x)
        If x(i) <> "" Then
            n = Split(x(i), Chr(13))
            k = 0
            For j = 0 To UBound(n)
                If n(j) <> "" Then
                    v(k) = n(j)
                    k = k + 1
                    If k > 2 Then Exit For
                End If
            Next
            temp = v(0)
            v(0) = v(1)
            v(1) = temp
            ss = ss & Join(v, vbCrLf) & vbCrLf
        End If
    Next
    Selection.Range.Text = ss
End Sub