Insert text longer 254 characters in word

dwirony · #4 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...

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to insert paragraph character after every 500 characters?	aditya_bokade	Word VBA	28	11-13-2021 10:48 PM
Insert more than 500 characters on FormField Word by VBA	Jow	Word VBA	4	09-15-2016 04:06 AM
VBA Word - Find Text Font Color - Insert New Text	jc491	Word VBA	2	01-04-2016 05:42 PM
Macro to insert WordArt characters	Jennifer Murphy	Word VBA	1	02-25-2014 03:10 AM
Junk characters (box-like characters) in Word file	Sashikala	Word	1	04-20-2010 02:03 PM