Microsoft Office Forums - View Single Post - [Solved] Insert text longer 254 characters in word

dwirony · 03-15-2017, 08:03 AM

Just break it up into portions:

Code:

Sub ReplaceBigPortions()
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "driver kali linux para el adaptador usb alfa negro https://github.com/astsam/rtl8812au . ifi card on an virtualbox's ubuntu http://askubuntu.com/questions/28201...ualboxs-ubuntu two folders i12213154654654646464646n different pc to synchronize."
        .Replacement.Text = "driver kali linux para el adaptador usb alfa negro https://github.com/astsam/rtl8812au . ifi card on an virtualbox's ubuntu http://askubuntu.com/questions/28201...ualboxs-ubuntu two folders in different pc to synchronize."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = "I would like to know is FFS is able to sync when a file is moved or deleted from one of the folders without problem. s able to detect theses changes ? Or simple synchronize attending to the actual and present files and folders ?"
        .Replacement.Text = "I would like to know is FFS is able to sync when a file is moved or deleted from one of the folders without problem. s able to detect theses changes ? Or simple synchronize attending to the actual and present files and folders ?"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = "Best Regards http://www.freefilesync.org/forum/viewtopic.php?f=2&t=4197*"
        .Replacement.Text = "Best Regards http://www.freefilesync.org/forum/vi...hp?f=2&t=4197*"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Of course, my solution is rather clunky. I'm sure Paul could provide you with a much cleaner version...