Option Explicit

Sub test()
    Dim n As Long
    
    With ActiveDocument.Words
        Do
            n = n + 26
            If n > .Count Then Exit Do
            .Item(n).InsertBefore "/"
        Loop
    End With
    
End Sub