The Long-Debated Mystery of Shakespeare’s Geographical Errors in “The Winter’s Tale”

Both Strafordians and Anti-Stratfordians have been arguing about this for a century, but the mystery has been solved

[I have moved all my writings on William Shakespeare and Thomas North onto my substack: “All the Mysteries That Remain.” You can subscribe there for free–no credit card or anything–but after 7 days, a free subscription only allows access to only the first section of new articles (and none of the archives.) This is a reproduction of a post that was posted there on 11/14/2024: https://dennismccarthy.substack.com/p/the-long-debated-mystery-of-shakespeares: ]

To subscribers more focused on the North/Shakespeare discovery, I do realize that four of the last five posts on “All the Mysteries That Remain” had Trump in the title. ATMTR will likely be more balanced in the future, but I do think that 11/5 just might turn out to be the most consequential global event of our lifetimes—and not in a good way. Indeed, the recent nomination of Matt Gaetz for Attorney General fits perfectly with my podcast-warning, Trump and his Parliament of Psychos.

I have also not forgotten about the brand new Shakespearean poem—the first one discovered in centuries—and, yes, it was written by Thomas North. A full presentation on that poem will be coming within a few weeks. And I have already provided an introduction discussion about in the podcast:

First New Shakespearean Poem Found in Centuries (Part 1)

Dennis McCarthy

·

Aug 30

First New Shakespearean Poem Found in Centuries (Part 1)

As noted last week, we have discovered a new “Shakespearean” poem—one that we can confirm was written by Sir Thomas North. In our discussion of this poem over the next few podcasts, we are going to travel back to the 16th-century House of Valois—the French Court. And we will include stunning depictions of lavish banquets and spectacular palaces by a 19-…

Read full story

And here is a transcript of the “First New Shakespearean Poem Found in Centuries (Part 1)” podcast


My next podcast will be on intellectual revolutions, and the reason they take decades to become accepted, even after they have been proved, and even among intellectuals. But relevant to the dispiriting delay in acceptance of new paradigms is the fact that the North/Shakespeare view has also answered many long-debated literary questions—questions that are not remotely dependent on authorship-identity—but that people still seem hell-bent on refusing to acknowledge. The reason for this reticence is likely unease over the fact that it is North-researchers who are the ones making these discoveries. But these scholars are only hurting themselves. Everyone who still works on such Shakespearean difficulties without accounting for our new information are wasting their one precious life on this earth writing works doomed to be soon obsolete.

As an example, there really is no more doubt as to when and how the Shakespeare authorship question originated in the nineteenth century. The impetus began with Samuel Astley Dunham’s 1837 essay on the life of William Shakespeare, which laid out an extensive case that Shakespeare’s modus operandi was to adapt old plays. This is simply indisputable.

Many academics who address the history of anti-Stratfordianism try to focus on Delia Bacon as the original Shakespeare-denier. Bacon first published her skepticism of his authorship in an 1856 issue of Putnam Magazine. But perhaps one reason that orthodox scholars concentrate on Delia is that in 1858 her family had forced her into what were then called “lunatic asylums,” and scholars can use that to cast ad hominem shadows: “See? No one ever denied Shakespeare’s authorship till Delia Bacon, and, well, we know what happened to her.”

But the fact is, doubts about Shakespeare’s authorship had preceded Delia’s 1856 essay. Joseph Hart, for example, had devoted a section of his 1848 book on boating, “The Romance of Yachting,” to the authorship problem in which he angrily denounced the Stratford playwright.  He argued that Shakespeare lacked the education and experiences to create the plays attributed to him, ranting, “It is a fraud upon the world to thrust his surreptitious fame upon us.” He then asked: “The enquiry will be, who were the able literary men who wrote the dramas imputed to him?1

But Hart’s specific claim was not that Shakespeare was illiterate or a frontman—but a reviser of old plays:  “[Shakespeare] merely adapted other people’s works to the playing stage, like a Theatrical Factotum, as Greene calls him [in Groatsworth of Wit],” wrote Hart, “and he was nothing else.”2

And where did Hart get this claim?  From Dunham’s 1837 essay, which Hart repeatedly quoted, referenced, and paraphrased. In the original article, Dunham wrote:  

“[W]e must observe, that in the beginning of his [Shakespeare’s] career—for years, indeed, after he became connected with the stage—that extraordinary man was satisfied with reconstructing the pieces which others had composed; he was not the author, but the adapter of them to the stage. Indeed, we are of opinion, that the number of plays which he thus re-cast, as well as those in which he made very slight alterations, is greater than any of his commentators have supposed.”3

Later in the work, Dunham repeated this claim: “In fact, there is no one drama of our author prior to 1600—perhaps not one after that year—that was not derived from some other play.”4

But literary insiders had been making the same point about Shakespeare’s use of old plays both while he was alive and in the decades and centuries afterward. And all this testimony by insiders and experts is reinforced by numerous pre-Shakespeare references to these plays which confirm their existence—as well as the evidence in the plays themselves that they were adaptations.5 Even the first title-pages of the plays that carried Shakespeare’s name (or initials) gratuitously indicate they were adaptations too.

That Shakespeare revised old plays and that this is what led to the authorship question is simply a fact—and it is a fact that needs more widespread acknowledgment.

Another example involves the mystery of Shakespeare’s knowledge of Europe. For example, as is well known, the playwright seemed peculiarly obsessed with Italy and all things Italian.

He somehow had access to all sorts of obscure information about continental Europe that did not appear in books at the time (I will include a post on this soon). But if he were so knowledgeable about Europe, then what explains the occasional but thumping geographical errors in the plays, particularly those in The Winter’s Tale about Bohemia and Sicily? How, for example, could such an evidently widely traveled playwright give Bohemia, a landlocked region in northeast Europe, a coastline?

June Schlueter and I answer this in our book: Thomas North’s 155 Travel Journal: From Italy to Shakespeare (I understand that this book, like most academic books, is extremely expensive, so if you want additional info email me—or check out summaries of it in “Thomas North: The Original Author of Shakespeare’s Plays.”)

But as we note in Thomas North’s 1555 Travel Journal, the mistakes in The Winter’s Tale go far beyond Bohemia’s notorious coastline:

These seeming religious inconsistencies are intertwined with strange geographical errors: although Bohemia was a northeastern region located within the modern-day Czech Republic, Shakespeare notoriously gives it a coastline and a desert, when it has neither. Dis’s kidnapping of Proserpine and the twin dangers of the man-eater on the coast (like Scylla) and a ship-destroying maelstrom just off-shore (like Charybdis) are all set in or near Bohemia when they are clearly Sicilian. Moreover, the Prince of Bohemia is somehow involved in a Mediterranean conflict with a noble and warlike Governor of Libya, a region that had never directly interacted with Bohemia and had been firmly in the hands of the Ottoman Empire for more than five decades when Shakespeare staged the play in 1610 or 1611. And just as Bohemia seems to be confused with a southern Mediterranean country, Sicily appears bizarrely Bohemian. Its court is surrounded by a “tuft of pines,” and the Sicilian queen is somehow a daughter of the Emperor of Russia. Even the names of the kings suggest they are ruling the wrong lands. Pitcher writes: “The national symbol of real Bohemia was a lion, but in Shakespeare it is the King of Sicily who is called Leontes (Leo, Latin for ‘lion’), while the King of Bohemia has a Greek name, Polixenes, thus associated with Sicily and the Mediterranean.”6 Indeed, as various scholars have noted, the Bohemian king’s name is taken from the Sicilian Polixenes in North’s Plutarch’s Lives. The name of Polixenes’ son, Florizel, derives from a knight in the Spanish romance Amadis de Gaul, once again linking the prince of Shakespeare’s Bohemia to Mediterranean adventurism. (Thomas North’s 1555 Travel Journal, 84)

But a reading of Thomas North’s journal instantly rectifies all these errors. Indeed, as we show, this handwritten travel-diary is itself a “kind of ‘Winter’s Tale’”:

“The one seeming connection among all these features is that they are all fantastic and surreal, or, as Ros King points out, “Everything about the story of The Winter’s Tale from its geography to its statue is impossible. …”7

Why, near the end of his career, did Shakespeare cram all these whimsical, archaic, confusing, and unrelated elements into the same play? What could possibly explain such a mixture of these fantastic parts? Remarkably, Thomas North’s 1555 Journal solves all these mysteries. For North’s Journal is a kind of Winter’s Tale, a mixture of the same exotic ingredients that adorn the tragicomedy, evoking the same sense of the outlandish and darkly magical. When one reads North’s Journal as The Winter’s Tale’s prooftext, the play’s loose ends are tied up, its errors rectified or explained, and the purpose of every mysterious element made clear. In fact, the play is perfectly coherent; nothing is extraneous, and the underlying story that it relates is true. (Thomas North’s 1555 Travel Journal, 85)

For example, North’s journal explains why the playwright set the locations in Bohemia and Sicily—and made the two Kings of these regions the main characters in the play:

North’s journey frequently took him through the domains of the brother Kings of Bohemia and Sicily, and they are two of the most frequently mentioned people in his journal.

As will be shown in future posts, North’s journal explains not just the choice of the Kings, but essentially all the characters in “The Winter’s Tale”— as well as its fabulous pagan feast of the lesser Gods in Act 4, and the famous Act 5 miracle involving a painted lifelike statue of Giulio Romano (yes, North expresses wonder at the painted, lifelike statues of Romano in his journal.)

But relevant to the point here are the geographical errors involving Bohemia and Sicily:

The reasons behind North’s choice of Bohemia and Sicily—with Bohemia as the reformation sister to England and Sicily as a synecdoche for Charles’s (and then his son, Philip’s) southern Catholic empire—become obvious with a reading of North’s journal. Indeed, the subtitle of the journal could read “North’s Journey through the Dominions of the Kings of Bohemia and Sicily.”

In 1555, the brothers Ferdinand I and Charles V controlled the northern and southern realms of the Hapsburg Empire. In terms of number of mentions, both kings were main characters in North’s journal, with North referring to Ferdinand eight times and Charles V more than 20, even stressing they were brothers. North would discuss their various political activities, relationships, and histories—and he especially noted these when he traveled into their kingdoms.  Along the Brenner Pass, between Sterzing and Steinach, North records the place where the two brothers reunited in 1530, after eight years of being apart. (Thomas North’s 1555 Travel Journal, 90-1)

The Winter’s Tale has a similar reuniting of the Kings of Bohemia and Sicily, after being many years apart. True, in the play, the kings are not technically brothers. But the playwright makes it clear that the two Kings have grown up with each other and makes them repeatedly refer to each other as “brother.”

In their first appearance on stage together, Polixenes immediately addresses Leontes as his “brother.” Within 13 lines, Leontes uses the same sobriquet for Polixenes, while begging him to extend his visit. They continue this throughout the scene: “our brother,” “best brother,” “my brother,” “our brother’s welcome.” Again, in 5.1, when Leontes first sees Polixenes’ son, he says: “Your father’s image is so hit in you, / His very air, that I should call you brother, / as I did him” (5.1.127-29). Florizel makes the same point back to Leontes, noting that Polixenes had commanded him to “Give you all the greetings that a king … / Can send his brother” (5.1.140-41). Leontes then thinks about the wrong he has done to Polixenes and calls out “O my brother!” (5.1.147). Again, in the final scene, Paulina refers to Polixenes as Leontes’ “crowned brother” (5.3.5). A few lines later, Polixenes addresses Leontes as “Dear my brother” (5.3.53). And in the final passage of the play, Leontes asks the resurrected Hermione to “Look upon my brother. Both your pardons, / That e’er I put between your holy looks / My ill suspicion” (5.3.149-51). We do not need to search hard for the identities. The only time in history when the King of Sicily was the brother to the King of Bohemia was with Charles V and Ferdinand I—and this ended in 1554, when Charles abdicated the throne of Sicily to his son Philip for the sake of his marriage to Mary. Of course, within the storyline of The Winter’s Tale, the playwright cannot make the kings actual brothers as this would make Perdita and Florizel first cousins … . (Thomas North’s 1555 Travel Journal, 93-4)

So if North knew so much about these kingdoms, why did he make all those errors? He didn’t. In North’s original version, the kingdoms were reversed. It was Shakespeare who transformed the King of Bohemia into the King of Sicily—and vice versa. But Shakespeare didn’t similarly transfer any of the corresponding features of their respective kingdoms, making Bohemia seem like Sicily—and Sicily like Bohemia. Moreover, we know for a fact that Shakespeare did switch the kingdoms because Robert Greene also wrote a novelization of North’s version of The Winter’s Tale in 1585—25 years before Shakespeare would adapt it—and in Greene’s version the kingdoms correspond to their correct positioning in North’s original play (and so are the opposite of the way they are in Shakespeare).

[I]t is important to understand that when Shakespeare adapted The Winter’s Tale in c.1610, he transposed the settings of Sicily and Bohemia, likely for political reasons. Scholars accept the geographical swap as well as Shakespeare’s responsibility for it because, in Robert Greene’s early version of the tale Pandosto (1585, published in 1588), Sicily and Bohemia are reversed, and they know that Greene’s work had to have preceded Shakespeare’s. In reality, both Greene and Shakespeare were adapting the same North play, but the upshot in either case is the same: Shakespeare switched the kingdoms.

Jonathan Bate has suggested a likely reason for the substitution: in 1610, England still harbored hatred toward Philip II, who led the terrifying Spanish Armada attack on England in 1588 and had been King of Sicily and Spain until his death ten years later, when his son, Philip III, took over the titles. Conversely, in 1610, James I was on friendly terms with Rudolf II, the King of Bohemia. As Bate remarks:

“Fictional and fanciful as The Winter’s Tale may be, the fact is that when the play was written the king of Sicilia was Philip III of Spain, and the king of Bohemia was the emperor Rudolf II. There were strong links between the courts of James in London and Rudolf in Prague. …

“Conversely … the residual English hostility to all things Spanish, dating back to the Armada and beyond, had not gone away. In these circumstances, it seems eminently plausible that on deciding to dramatize a story about the kings of Sicilia and Bohemia, and knowing that the play would at some point go into the court repertoire, Shakespeare thought it would be politic to make the monarch with Spanish, as opposed to Rudolfine, associations the one who is irrational, cruel, and blasphemous.”

Bate goes on to clarify that he is “not proposing that Leontes is in any sense a representation of Philip [III] or Polixenes of Rudolf.”8 Indeed, they would appear to have nothing in common with their dramatic counterparts other than their royal titles. These two Kings were not brothers but second cousins, and they did not grow up with each other. Rudolf II was 26 in 1578, the year Philip III was born in Madrid. As we shall see, it was their respective grandfathers, Ferdinand I and Charles V, whom North had in mind—a point made clear when we reverse the locations, which in turn mends essentially all the geographical disjunctions

Once we return the settings to their proper placement, the Lion, the symbol of Bohemia, links with Leontes (Latin for lion); Russia, the Bohemian Queen’s homeland, is now nearby; and a tuft of pines surrounds Leontes’ court. Meanwhile, all of the conspicuously Sicilian elements of Polixenes’ kingdom—its seacoast and desert; its Mediterranean conflict with Libya; the Dionysian feast; the names Polixenes, Sinalus, and Florizel; and the legend of Proserpine and Dis are now all rightly placed in and around Sicily.

Switching the kingdoms back also helps uncover another mythical analogy that gains clarity in the right setting. When Antigonus’s “ship hath touched upon the deserts of” Sicily (not Bohemia), the Mariner warns, “this place is famous for the creatures / Of prey that keep on it.” It is Sicily that is legendary for man-eating beasts, including Polyphemus (Cyclops) and Scylla.

Later in the scene, the Clown gives a dual description of the horrific “sights, by sea and by land!” And the clown’s back-and-forth accounts of the twin dreads facing those who sail near the coast of Sicily, with the turbulent sea threatening the mariners and the fearsome man-eater waiting on the coast, is, of course, a take-off on the same twofold horrors of Charybdis, the ship-destroying maelstrom, and Scylla, the man-eater, who endanger all who enter the Straits of Sicily. The dramatist follows the famous scene of Homer’s poem quite closely, recounting both events in the same order and matching numerous details. This includes screaming mariners, just off shore, first being pushed skyward, then sucked down to the bottom of the sea—interspersed with a gruesome depiction of a man on the coast being devoured alive, shrieking to the narrator for help as he is eaten. Odysseus and the Clown retell precisely the same story. Later, the Third Gentleman would describe the fate of Antigonus as “Like an old tale” (5.2.62). He was certainly correct about that: the Clown’s story, which we examine in Chapter 8, is a parody of Odysseus’s. (Thomas North’s 1555 Travel Journal, 88-90)

Even those who hate the North/Shakespeare view like poison and want to credit nothing to his journal, still can’t escape the documented fact that in Robert Greene’s Pandosto, the kingdoms of Sicily and Bohemia are reversed. And that when you switch Shakespeare’s settings to their original placements, all the mysterious disjunctions in the play instantly vanish.

This is just one example of many as how research into Thomas North has solved mysteries that had stumped both Stratfordian and anti-Stratfordian scholars for centuries.

Thomas North: Playwright

On first glance, the biggest challenge when arguing that Thomas North wrote Shakespeare’s orginal plays is making the case for Thomas North as any sort of playwright in the first place.

North’s place in English literature has, for the last 400 years, been solely off the back of his three major translations. In particular, the influence of his Plutarch’s Lives on the three Roman plays has been accepted since the late 1700s, but he has never been documented as having written in drama himself.

This is due more to of a lack of attention rather than lack of evidence, though – follow the links below to learn about the voluminous empirical evidence, all recently uncovered, for Thomas North as playwright and poet, not just translator. Included in the links below is a look at an early references to Shakespeare’s plays, long before Shakespeare’s versions were published or performed, as well as a look at the quality of North’s prose which needed little to no adaptation for the stage.

Also worth checking out is the ‘Frequently Asked Questions’ page that you can find in the top banner.

Appendix G: Arthur Brooke’s “Romeus and Juliet” and North’s Wedding-Turned-Funeral

In 1562, two years before Shakespeare was born and seven years after Thomas North traveled through the Lombardy regions of Italy with the Viscount Montague, young Arthur Brooke referred to a stage tragedy on Romeo and Juliet. Brooke, who had connections to the Inns of Court, cited the play in a foreword to his long poem on the star-crossed lovers. He wrote that he had seen the subject “set forth on stage with more commendation than I can look for — being there much better set forth than I have or can do” (iiiv). 1562 is also two years after Heywood placed North at the top of a list of best tragedians at the Inns of Court.

As discussed in Thomas North: The Original Author of Shakespeare’s Play, North was the author of this early tragedy on Romeo and Juliet, likely in 1559-60, which not only served as the primary source for Shakespeare’s famous play but clearly influenced Brooke as well. Indeed, Shakespeare scholars have found so many proofs of connections, both linguistic and plot-related, between Shakespeare’s Romeo and Juliet and Brooke’s poem that they have identified the latter as Shakespeare’s primary source. But as noted, in reality, both the extant Shakespearean tragedy and some of Brooke’s poem derive from North’s earlier tragedy, first likely written all in end-stopped rhyme. (North would also modify his tragedy in the early 1580s.)

An Original Poem

As noted in Chapter Seven of Thomas North, North would often write original passages in his translations. That is, he would veer from the language of his source-text, at times preferring to craft his own lines and descriptions as opposed to closely transcribing the work in front of him. One extraordinary example is North’s original, 110-line poetic complaint of Camma in his The Dial of Princes (1557), a poem that is eerily reminiscent in language, style, and storyline to various Juliet-related passages in Romeo and Juliet (and to The Rape of Lucrece too). And while Thomas North explores hundreds of borrowings from North in the Shakespeare canon, this one is particularly informative, for it clinches the case that North wrote the original play on Romeo and Juliet in ~1560, four years before Shakespeare was born. It also confirms this was the very same tragedy mentioned by Arthur Brooke in 1562 and that the young poet, Brooke, often turned to North’s play when writing his own poem on the star-crossed lovers.

The background to North’s poem is as follows: Camma, renowned for her beauty and virtue, had been happily married when Sinoris murdered her husband hoping to take her for his wife. The devastated widow seems to acquiesce to Sinoris’s proposal only to poison the cup of wine from which they both drank on their wedding day. Before she sips, however, Camma recites a final prayer to Dian, the Goddess of chastity and protector of women’s honor, in which she expresses her extreme grief over her slain husband and her plan for both revenge and suicide.

In the French text from which North worked, the prayer is fairly straightforward and in prose. But North transforms this prayer into a long poem comprising 28 quatrains of iambic pentameter and a final couplet. In the last couplet, which is entirely North’s invention, Camma compares herself with Lucrece. This is peculiarly prescient as the two poems on Camma and Lucrece, North’s and Shakespeare’s, do share a number of features. As with The Rape of Lucrece, North’s poem on Camma is a “complaint,” that is, a dramatic first-person monologue from a virtuous female protagonist who describes the agonizing and tragic circumstances inflicted on her by an evil male. As Tarquin lusts for Lucrece, who is the wife of his friend, so Sinoris lusts after Camma, who is the wife of his cousin. Both Camma and Lucrece express love for their husbands, are renowned for their beauty and virtue, and intend to commit suicide to maintain their honor. And interestingly, between 1568-1570, ballads on Lucrece and Camma were entered into the Stationers’ Register, though none are extant.[i]

Camma and Juliet

Camma’s story should also seem familiar to fans of Romeo and Juliet. Both tales include a deadly rivalry for the young woman’s hand, a suicide by a cup of poison,[ii] the grieving bride’s apparent choice to die on her wedding day, her desire to be buried with her husband, and the claim that it is the most lamentable tale in the history of the region. The last three quatrains and final couplet of North’s poem on Camma comprise a sonnet, and no fewer than three such sonnets appear in Romeo and Juliet, including its famous 14-line prologue. Even North’s summary of the tragic ending is reminiscent of the star-crossed lovers: “And when the prayer was ended, that this fair and virtuous Camma made, she drank and gave to drink to Sinoris of this cup of poison… And truly, her death of all Greece with…great sorrow was lamented.”

But perhaps the most conspicuous resemblance involves Camma’s description of turning her wedding into a funeral—all the elements of which are repeated in Shakespeare’s tragedy, in which Juliet’s wedding is similarly transformed into a funeral. This includes that the wedding bed will become the grave; the light music will become a funeral dirge, etc.

Of course, Juliet is not really dead in this scene (4.5.); she has simply taken a potion to create the illusion in order to avoid marriage to Paris, but the ideas and language are the same. Indeed, the playwright foreshadows this scene in the first act when Juliet echoes Camma, stating that “my grave is like to be my wedding bed” (the playwright also repeats Camma’s language in Timon of Athens):

Camma’s Poem:  The DialRomeo and Juliet and Timon of Athens
O bright Dian….
In place of Hymen’s high unfiled bed,
They lay thee up in closure of thy grave (191-2)      



Bright, Dian, thy grave, Hymen’s-unfiled bed
Juliet: My grave is like to be my wedding bed (1.5. 134)  

Then, Timon, presently prepare thy grave… thou bright defiler/ Of Hymen’s purest bed! … Whose blush doth thaw the consecrated snow That lies on Dian’s lap! (4.3.380-9)

Bright, Dian, thy grave, defiler-Hymen’s- bed

Even the title of North’s chapter (and its second line) on Camma clearly inspired the following exchange between the nurse and Juliet:

Camma Title: Of the revenge a woman of Greece took of him that had killed her husband….
Sinatus and Sinorus which were by blood cousins (189)

Romeo and Juliet: Will you speak well of him that killed your cousin?
Shall I speak ill of him that is my husband? (3.2.96-7)


An EEBO analysis of just this last parallel leaves little doubt about the connection between the works.[iii] And when we come to the apparent death of Juliet (4.5), the borrowings become more obvious still. What is remarkable is the playwright’s continuous juxtaposition of the same word-groupings that also appear together in Camma’s poem (189-93):

Camma’s Death on Her Wedding DayJuliet’s “Death” on Her Wedding Day
O since him their kindled spite hath slain,
With tender love whom I have weighed so dear.
Since he by fate is wrest from fortune’s reign,
For whose decay I dreadless perish here.  
Since him by whom my only life I led,
Through wretched hands the gaping earth now have…   The first black day my husband slept in grave
By cruel sword my life I thought to spend…
Instead of song and music’s tuned sound,,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown,
Thy cruel death may spread with wretched noise 

[words/phrases appear in same 2 or 3 lines]
spite hath slainlove
my only life wretched;(ll.13-18)
black dayby cruellife;  (ll.33-34)
lamenting joyful …
cruel deathwretched noise …. (ll.94-6)]
Lady Capulet: What noise is here?
Nurse: O lamentable day!…
Lady Capulet: O me, O me! My child, my only life
Paris: Beguiled, divorced, wronged, spited, slain!
Most detestable death, by thee beguil’d,
By cruel cruel thee quite overthrown!
O love! O life! not life, but love in death
Lady Capulet: Accursed, unhappy, wretched, hateful day! … But one thing to rejoice and solace in,
And cruel death hath catch’d it from my sight!…
Nurse: Never was seen so black a day as this. (4.5.44-6, 70-9)

[Words/phrases appearing in brief passage:]
spited slain…love
my only life…. wretched
black a day…by cruel…life
lamentable… rejoice
cruel death… noise …wretched (4.5.44-6, 70-9)

To press my corpse to feed thy liking lust,
The rout of Homer’s gods, thee grant to have,
Instead of royal feast, a throne of dust.
In change of costly robes and rich array,
A simple winding sheet they deign thee give,
And eke instead of honest wedlock’s stay,
They sing thy dirge, and not vouchsafe thee live…   Instead of song and music’s tuned sound,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown      



[corpse … rich array… feast …
wedlock’s…lamenting
change…dirge,
music’s tuned sound…lamenting voice (ll. 82-95)]
Friar Laurence: On this fair corpse; and, as the custom is,
In all her best array bear her to church:
For though fond nature bids us all lament,
Yet nature’s tears are reason’s merriment.
Capulet: All things that we ordained festival,
Turn from their office to black funeral;
Our instruments to melancholy bells,
Our wedding cheer to a sad burial feast,
Our solemn hymns to sullen dirges change,
Our bridal flowers serve for a buried corpse,
And all things change them to the contrary.    
griping grief… /Then music with her silver sound  (4.5. 107-117, 151-3)  

[corpse… best array … feast…
lament… wedding…
dirges change (4.5.107-17)
griping grief …. music with her silver sound (4.5.151-3)

            Both passages repeatedly use the same terminology to describe the same peculiar event: a young bride’s wedding that will be turned into a funeral, with every joyous celebration of nuptials changed into the dark traditions of a wake.  Both refer to corpse, rich/best array, cruel death, black (a) day, feast, lament(ing), by cruel, my only life, spite(d)-slain, wretched, noise, and sound of happy music contrasted with a dirge. All the other borrowed phrases and language also confirm the obligation. Just checking EEBO for all works that place spite NEAR slain and include “my only life”[iv] results only in The Dial and Romeo and Juliet.

            But this scene in the tragedy is so overwhelmingly Northern that it also includes rare verbal connections to another chapter of The Dial and North’s Plutarch’s Live:

Plutarch and DialRomeo and Juliet
  Alas the day that ever I was born!
Plutarch 525  
   
O woeful world! O miserable world!  
O subtle world! O world unstable and unconstant! —Dial 493-4
  Nurse: Alas, alas! Help, help! my lady’s dead!
O, well a day, that ever I was born! (4.5.41-2)
Lady Capulet: Most miserable hour that e’er time saw…
Nurse: O woe! O woeful, woeful, woeful day! Most lamentable day, most woeful day….
O woeful day, O woeful day! (4.5.75-85)  
Shakespeare and Brooke: Changing Weddings Into Funerals

Significantly (and seemingly impossibly), Arthur Brooke also borrows extensively from North’s poem for Juliet’s wedding/funeral. Indeed, both writers appear to focus on the very same series of stanzas. And most importantly,  Shakespeare and Brooke, working more than 30 years apart, appear to take different elements from these very same stanzas. And both Shakespeare and Brooke use this material to help shape their description of Juliet’s wedding-turned-funeral:

Notice, as highlighted below, the groups of parallels often come in the same order. Most of the shared language occurs in the brief intro and lines 81-100 of North’s poem and in lines 2506-25 in Brooke’s poem. This pic helps give an idea:

North’s Wedding into a FuneralBrooke’s Wedding into a Funeral
[Intro:] And as the fatal destinies had ordained it…he obtained her in marriage for his lawful wife… and by his parents much importuned, that she would… forgive him the death of her husband Sinatus, which then was buried…. that the new married folks should eat together in one dish, and drink in one cup; the day that the marriage was celebrated, Camma determined to prepare a cup with poison….(p. 191)  


And thou Sinoris, which Juno’s yoke dost crave,
To press my corpse to feed thy liking lust,
The rout of
Homer’sgods, thee grant to have,
Instead of royal feast, a throne of dust.

In change of costly robes and rich array,
A simple winding sheet they deign thee give,
And eke instead of honest wedlock’s stay,
They sing thy dirge, and not vouchsafe thee live.
In place of Hymens high unfiled bed
They lay thee up in closure of thy grave: Instead with precious meats for to be fed,
They make the worms for fitter prey thee have.
Instead of song, and music’s tuned sound,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown,
Thy cruel death may spread with wretched noise
Unless this wretch, ye ruthless cause to die,
That lives now to slander of your name…(ll. 81-100)  
But now what is decreed by fatal destiny (859)
 
The one shall use her as his lawful wedded wife (230)  

About her obsequies, to see their darling buried.
Now is the parents’ mirth quite changed into moan,
And now to sorrow is returned the joy of every one ;
And now the wedding weeds for mourning weeds they change
And Hymen into a dirge; Alas! it seemeth strange
Instead of marriage gloves, now funeral gloves they have,
And whom they should see married, they follow to the grave.
The feast that should have been of pleasure and of joy, Hath every dish and cup filled full of sorrow and annoy. Now throughout Italy this common use they have
That all the best of every stock are earthed in one grave For every household, if it be of any fame,
Doth build a tomb or dig a vault that bears the household’s name;
Wherein, if any of that kindred hap to die,
They are bestowed; else in the same no other corpse may lie.
The Capulets her corpse in such a one did lay,
Where Tybalt, slain of Romeus, was laid the other day.; Another use there is, that whosoever dies,
Borne to their church with open face upon the bier he lies,
In wonted weed attired, not wrapped in winding sheet. (2506-25)  
Thee therefore mighty Jove I justly crave
Chose for his fere, when sweetly he had sued
(ll. 45, 52)
[Other phrases from North’s Poem on Camma:]
And eke; but lo; heaps of (lingering) harms; Gladsome; dreadless, wailful; sharp revenge; Ne; greedy worms; foe’n; wedlock; Juno’s yoke  
And mighty Jove with speed of justice bring them low… At sixteen years I first did choose my loving fere,
(ll. 304, 697)  
[Other phrases from Brooke’s Poem on R&J:]
And eke, but lo; heaps of harms, Gladsome,
dreadless, wailful; sharp revenge; Ne, greedy worms, foe’n; wedlock yoke  
[Other lines in North’s Dial, different pages:]
I will do what lies in me to do, and afterward let the fatal destinies do what they can. For the valiant knight … ought more to be esteemed than fickle fortune. (Prologue)
to exercise the feats of arms. And finally, like young men without experience…. (Prologue)  
O how variable is Fortune… with a little spark of fire the house is kindled…(476) For oft times of a little spark commeth a great light (142)    
[Brooke’s Poem on R&J:]
But now what is decreed by fatal destiny,
I force it not; let Fortune do, and death, their worst to me. (859-61)    
The Capulets, as chief, a young man have chose out, Best exercised in feats of arms (963-4)  
when Fortune list to strike… As, of a little spark, oft riseth mighty fire,
So of a kindled spark of grudge, in flames flash out their ire (29,36-7)    

The links between Brooke’s and North’s poems are quite clear: The juxtaposition of Hymen with Dirge and winding-sheet (and instead of, change); the use of fatal destiny, chose for his fere (choose my loving fere); craving justice/justly from Mighty Jove; the use of greedy worms, heaps of harms, and eke, foe’n, etc. Also we find other lines from North’s Dial in Brooke’s poem: young men/man who are exercised in feats of arms; the description of fortune as having kindled oft, causing a massive fire out of a little spark; etc. This is all exclusive to Brooke and North (see screenshots of Early English Books Online below).

Meanwhile, as shown above, Shakespeare seems to have borrowed different elements from these same stanzas: rich/best array, black (a) day, by cruel, my only life, spite(d)-slain, wretched, noise, and sound of happy music contrasted with a dirge (Brooke contrasts Hymen with a dirge, and North’s poem does both.)


So did both Brooke and Shakespeare independently decide to borrow from the same little-known, original, 1557 poem by North at the exact same point in their respective tragedies?Or were both working from North’s old play of Romeo and Juliet?

North Changes Montecchi to Montague:

As Michael Blanding once wrote to me in an email: it seems strange that the staunchly Protestant Arthur Brooke would honor the overtly Catholic Anthony Browne, Viscount Montague, by changing the name of his protagonist to Montague. It seems more likely, he suggested, that the name change first occurred in the stage play that Brooke had so much enjoyed — and that Brooke was influenced by the play. Brooke did, after all, highly praise the play, and it does seem that he is citing a source. We now have evidence supporting this view, showing not only that the name-change was associated with (and likely done on behalf of) the Viscount Montague, but that it first appeared in the original pre-1562 play of Romeo and Juliet, not Brooke’s poem.

As noted, in 1555, North traveled with Anthony Browne, Viscount Montague, to Italy and back, and his respect for the Viscount explains why he changed Romeo’s name. Indeed, in 1572, George Gascoigne wrote a masque for Viscount Montague in which he clearly echoed the opening of North’s tragedy, confirming that the Montagu name in the tragedy was associated with the Viscount and the language of that early 1560s play was much like the extant version:

To Viscount Montague:

“This token which the Montacutes (Montagues) did bear always, for that

They covet to be known from Capels [i.e. Capulets] where they pass,

  For ancient grudge which long ago ‘twene these two houses was.

Then took me by the hand[i]

Romeo and Juliet on Montagues and Capulets:

Two households both alike in dignity

In fair Verona, where we lay our scene

From ancient grudge break to new mutiny,

Where civil blood makes civil hands unclean.

From forth the fatal loins of these two foes

            Importantly, this language –“ancient grudge,” “these two house(holds)” — does not appear in Brooke’s poem, which indicates that Gascoigne was echoing the original play. And as Gascoigne was also in Leicester’s circle of writers, it is understandable why he would be familiar with it.

Thus, it would seem that North, having recently traveled through Veronan territories with Montague, wrote an early version of Romeo and Juliet, amending it according to his own writings and experiences. This is the tragedy that Brooke praised and that Gascoigne later echoed when addressing Viscount Montague. And it was North who based a long passage on Juliet’s wedding/funeral on his own original poem on the wedding/funeral of Camma. Then, parts of North’s description of Juliet’s wedding/funeral ended up in Brooke’s poem and other parts ended up in the extant (Shakespeare’s) Romeo and Juliet.

[i] George Gascoigne, A Hundreth sundrie Flowres bounde vp in one small Poesie…(London: Richard Smith, 1573), 390. See also, Roger Prior,  “Gascoigne’s Poesies as a Shakespearian Source,” Notes and Queries 245 (2000): 444-9 and Brian Gibbons, ed., Romeo and Juliet: The Arden Shakespeare (London: Methuen, 1980). Gascoigne originally wrote the masque for a 1572 wedding of the daughter of the Viscount Montague, but it would not be published till the following year.

The Description of Romeo’s Sorrow Comes From North’s ‘Dial’ & Pre-Dates 1562 Poem

Shakespearean editors have long known that an English play of Romeo and Juliet existed even before the future playwright was born in Stratford in 1564. Young poet Arthur Brooke complimented the staged version in the foreword to his 1562 poem on the doomed lovers. Those scholars who have carefully studied all the iterations of the Romeo and Juliet legend, both English and continental, have concluded that it is likely that both Brooke and Shakespeare borrowed from that pre-1562 play. [1] And as we have seen in the last few posts, it is quite clear that North was the author of that tragedy — a fact that should surprise no one. After all, in 1555, North had traveled to Italy and the Veronan territories with the Viscount Montague, the very person who gave Romeo Montague his family name (in the English versions); in 1560, Jasper Heywood placed North at the top of a list of best tragedians (Brooke also had connections to Inns of Court); and North’s passages appear throughout the tragedy. 

But even more importantly, in the prior post we discover that both Brooke and Shakespeare independently seem to borrow from the same stanzas of North’s original poem on the tragic, wedding-day suicide of Camma (Dial, 1557), which served as the source of Juliet’s apparent death on her wedding day and especially the changing of Juliet’s nuptial ceremonies to a funeral. This same text of The Dial of Princes provides still other evidence of what North had included in the original, likely mostly rhymed version of Romeo and Juliet (~1560).

As is uncontroversial, and as shown in the featured pic above, Shakespeare’s and Brooke’s account of Romeo’s sadness are intricately linked (red and green words). But as is also clear, North’s writings on sorrow compose the seminal source for these passages. What is more, it is clearly the play-passage that is the direct descendant North’s — not Brooke’s. Indeed, the language shared between North and Brooke are merely faint echoes, and include only one word, “bitter” (blue), not found in the play’s descriptions. In contrast, the playwright borrows extensively from North, repeating words and phrases absent in Booke’s poem, and staying faithful to North’s images and ideas that Brooke had transformed:

The Dial’s “Description of Sorrow”The Description of Romeo’s Sorrow
to water their plants with tearsWith tears augmenting the fresh morning’s dew
[Cor: He water’d his new plants with dews of…]
with his deep sighs he pierceth the heavensAdding to clouds more clouds with his deep sighs;
The sun not yet thy sighs from heavens clears
to hide and withdraw themselves within their houses
and to lock themselves into their own chambers
sigheth in the day, watcheth in the night
The light he hateth, the darkness he loveth
Away from light steals home my heavy son
And private in his chamber pens himself
locks fair daylight out
And makes himself an artificial night.
 heavy importuneheavy importuned

The parallels are pointed and numerous. Both describe tears falling to the earth, while sighs float upward toward the clouds and heavens. North’s passage even notes the sorrowful “water their plants with tearsjust as Romeo augments the dew with tears, and the playwright, as shown in the quote from Coriolanus, associates dew with watering plants. Both also discuss hating the day and light, while preferring darkness and night. And in both cases, the sorrowful “lock themselves into their own chambers”/ “in his chamber pens himselflocks fair daylight out.”  (Notice also that in Richard III, the dramatist juxtaposes pierce, clouds, heaven: “Can curses pierce the clouds and enter heaven?” [1.3.195])

Perhaps, most surprisingly, just the word-string with his deep sighs confirms the obligation. This is a fingerprint phrase of North’s, occurring nowhere else in EEBO except for The Dial and Romeo and Juliet.

An EEBO search for “{with his deep sighs].” The curly brackets ensure the search includes variations in spelling.

The evolutionary history of these related descriptions of depression is quite clear: the play’s passage had to serve as the indispensable conduit between North’s passage in The Dial and Brooke’s poem. After all, it is wildly unlikely that the playwright could have known which passages in North were vaguely echoed by Brooke so that he could then reconstruct a perfect intermediary between the two.

The extant description of Romeo’s sorrow in the tragedy has obviously been updated. North likely revised it in early 1580s and perhaps reworked it again (with Shakespeare) in the 1590s. However, so much of the original passage has remained that its relationship to the seminal source in North’s Dial remains conspicuous. Finally, in 1591-2, when North was thumbing through his own copy of his The Dial of Princes, he made sure to mark the relevant passage (Fol. 296 in 1582 edition; 475 in 1619 ed.) that he had found so memorable and had used for Romeo and Juliet.

“For truly the man which is sorrowful, sigheth in the day, watcheth in the night, delighteth not in company, and with only care he resteth. The light he hateth, the darkness he loveth, with his bitter tears he watereth the earth, with heavy sighs he pierceth the heavens.”

(The “Description of Sorrow” passage marked in North’s Dial)

[1] J. J. Munro, ed., Brooke’s “Romeus and Juliet'” Being the Original of Shakespeare’s “Rome and Juliet,” (New York: Duffield and Company, 1908), xliii-xlvi. See also Harold de Wulf Fuller, “Romeo and Juliette,” Modern Philology (1906), 4(1): 1-114.

Shakespeare and Brooke Both Borrowed from North’s pre-1562 “Romeo and Juliet”: Changing Juliet’s Wedding into a Funeral

In 1562, two years before Shakespeare was born and seven years after Thomas North traveled through the Lombardy regions of Italy with the Viscount Montague, young Arthur Brooke referred to a stage tragedy on Romeo and Juliet. Brooke, who had connections to the Inns of Court, cited the play in a foreword to his long poem on the star-crossed lovers. He wrote that he had seen the subject “set forth on stage with more commendation than I can look for — being there much better set forth than I have or can do” (iiiv). 1562 is also two years after Heywood placed North at the top of a list of best tragedians at the Inns of Court.

As we will show in the next several posts: Thomas North was the author of this early tragedy on Romeo and Juliet, likely in 1559-60, which not only served as the primary source for Shakespeare’s famous play but clearly influenced Brooke as well. Indeed, Shakespeare scholars have found so many proofs of connections, both linguistic and plot-related, between Shakespeare’s Romeo and Juliet and Brooke’s poem that they have identified the latter as Shakespeare’s primary source. But as noted, in reality, both the extant play and some of Brooke’s poem derive from North’s earlier tragedy, first likely written all in end-stopped rhyme. (North would also modify his tragedy in the early 1580s.)

We can prove this by contrasting Brooke’s poem with the untranslated source-tale that Brooke mostly used: Pierre Boistuau’s Histoires Tragiques (1559). Such an analysis shows us exactly where Brooke seems to have expanded certain parts of the tragedy, adding new info and long speeches. Importantly, many of Brooke’s seemingly original expansions of the tale appear to derive from North’s Dial (1557)—as well as North’s experiences in Italy as documented in his travel journal (1555.) What is more, Shakespeare’s play also includes analogous speeches that also appear to come from these very same Northern passages.

Importantly, both Brooke and Shakespeare not only share some of the same elements from these Northern passages, they also include different elements from these same Northern passages. In other words, it seems as if both Brooke and Shakespeare, writing more than 30 years apart, scanned through North’s Dial and independently decided to borrow material from the same exact pages and passages of North–even from the exact same poem and stanzas. Even more stunningly, both Brooke and Shakespeare take these same passages of North and reuse them in the very same moments in their respective tragedies.

Of course, this is all wildly improbable. What really happened is that North, as he always did, recycled and echoed his own passages when writing the original Romeo and Juliet, and some of this Northern material ended up in Brooke’s poem and remain in Shakespeare’s extant play.

Brooke’s expansions on the tale that he got from North’s Romeo and Juliet:  
  1. The change of Rome’s last name from Montecchi to Montague –which in Early Tudor times was necessarily connected with Anthony Browne, Viscount Mountague (North’s trip and journal, 1555)
  2. The transformation of Juliet’s wedding to a funeral, from wedding music and Hymen’s bed to a dirge and grave, etc. (From North’s original poem on Camma in The Dial, 1557)
  3. The series of pointed effects of Romeo’s depression (The Dial, 1557)
  4. The advanced irrigation streams of the plains and valleys of Lombardy that make it the most fertile and profitable land in the world (North’s trip and journal, 1555)
  5. The explicit description of the Apothecary’s desperate poverty, which also connects to Arden of Faversham and Comedy of Errors (The Dial, 1557)
  6. Other quotes of North that also appear in Brooke’s augmentations of the story.
North Changes Montecchi to Montague:

As Michael Blanding once wrote to me in an email: it seems strange that the staunchly Protestant Arthur Brooke would honor the overtly Catholic Anthony Browne, Viscount Montague, by changing the name of his protagonist to Montague. It seems more likely, he suggested, that the name change first occurred in the stage play that Brooke had so much enjoyed — and that Brooke was influenced by the play. Brooke did, after all, highly praise the play, and it does seem that he is citing a source. We now have evidence supporting this view, showing not only that the name-change was associated with (and likely done on behalf of) the Viscount Montague, but that it first appeared in the original pre-1562 play of Romeo and Juliet, not Brooke’s poem.

As noted, in 1555, North traveled with Anthony Browne, Viscount Montague, to Italy and back, and his respect for the Viscount explains why he changed Romeo’s name. Indeed, in 1572, George Gascoigne wrote a masque for Viscount Montague in which he clearly echoed the opening of North’s tragedy, confirming that the Montagu name in the tragedy was associated with the Viscount and the language of that early 1560s play was much like the extant version:

To Viscount Montague:

“This token which the Montacutes (Montagues) did bear always, for that

They covet to be known from Capels [i.e. Capulets] where they pass,

  For ancient grudge which long ago ‘twene these two houses was.

Then took me by the hand[i]

Romeo and Juliet on Montagues and Capulets:

Two households both alike in dignity

In fair Verona, where we lay our scene

From ancient grudge break to new mutiny,

Where civil blood makes civil hands unclean.

From forth the fatal loins of these two foes

            Importantly, this language –“ancient grudge,” “these two house(holds)” — does not appear in Brooke’s poem, which indicates that Gascoigne was echoing the original play. And as Gascoigne was also in Leicester’s circle of writers, it is understandable why he would be familiar with it.

Shakespeare and Brooke: Changing Weddings Into Funerals

As we saw in the previous post, like many plays in the canon, Shakespeare’s Romeo and Juliet contains a number of borrowings from North’s first translation, The Dial of Princes (1557), published two years after North returned from his trip through Italy. And one of the most pointed resemblances involves North’s original poem on the suicide of the beautiful and virtuous Camma, whose wedding day was turned into a funeral. This clearly was the inspiration for the tragedy’s descriptions of Juliet’s wedding day, which was also suddenly turned into her funeral.

Significantly, Arthur Brooke also takes extensively from this very same poem for Juliet’s wedding/funeral. Indeed, both writers appear to focus on the very same series of stanzas. And most importantly,  Shakespeare and Brooke, working more than 30 years apart, appear to take different elements from these very same stanzas:

North’s Wedding into a FuneralBrooke’s Wedding into a Funeral
[Intro:] And as the fatal destinies had ordained it…he obtained her in marriage for his lawful wife… and by his parents much importuned, that she would… forgive him the death of her husband Sinatus, which then was buried…. that the new married folks should eat together in one dish, and drink in one cup; the day that the marriage was celebrated, Camma determined to prepare a cup with poison….(p. 191)  


And thou Sinoris, which Juno’s yoke dost crave,
To press my corpse to feed thy liking lust,
The rout of
Homer’sgods, thee grant to have,
Instead of royal feast, a throne of dust.

In change of costly robes and rich array,
A simple winding sheet they deign thee give,
And eke instead of honest wedlock’s stay,
They sing thy dirge, and not vouchsafe thee live.
In place of Hymens high unfiled bed
They lay thee up in closure of thy grave: Instead with precious meats for to be fed,
They make the worms for fitter prey thee have.
Instead of song, and music’s tuned sound,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown,
Thy cruel death may spread with wretched noise
Unless this wretch, ye ruthless cause to die,
That lives now to slander of your name…(ll. 81-100)  
But now what is decreed by fatal destiny (859)
 
The one shall use her as his lawful wedded wife (230)  

About her obsequies, to see their darling buried.
Now is the parents’ mirth quite changed into moan,
And now to sorrow is returned the joy of every one ;
And now the wedding weeds for mourning weeds they change
And Hymen into a dirge; Alas! it seemeth strange
Instead of marriage gloves, now funeral gloves they have,
And whom they should see married, they follow to the grave.
The feast that should have been of pleasure and of joy, Hath every dish and cup filled full of sorrow and annoy. Now throughout Italy this common use they have
That all the best of every stock are earthed in one grave For every household, if it be of any fame,
Doth build a tomb or dig a vault that bears the household’s name;
Wherein, if any of that kindred hap to die,
They are bestowed; else in the same no other corpse may lie.
The Capulets her corpse in such a one did lay,
Where Tybalt, slain of Romeus, was laid the other day.; Another use there is, that whosoever dies,
Borne to their church with open face upon the bier he lies,
In wonted weed attired, not wrapped in winding sheet. (2506-25)  
Thee therefore mighty Jove I justly crave
Chose for his fere, when sweetly he had sued
(ll. 45, 52)
[Other phrases from North’s Poem on Camma:]
And eke; but lo; heaps of (lingering) harms; Gladsome; dreadless, wailful; sharp revenge; Ne; greedy worms; foe’n; wedlock; Juno’s yoke  
And mighty Jove with speed of justice bring them low… At sixteen years I first did choose my loving fere,
(ll. 304, 697)  
[Other phrases from Brooke’s Poem on R&J:]
And eke, but lo; heaps of harms, Gladsome,
dreadless, wailful; sharp revenge; Ne, greedy worms, foe’n; wedlock yoke  
[Other lines in North’s Dial, different pages:]
I will do what lies in me to do, and afterward let the fatal destinies do what they can. For the valiant knight … ought more to be esteemed than fickle fortune. (Prologue)
to exercise the feats of arms. And finally, like young men without experience…. (Prologue)  
O how variable is Fortune… with a little spark of fire the house is kindled…(476) For oft times of a little spark commeth a great light (142)    
[Brooke’s Poem on R&J:]
But now what is decreed by fatal destiny,
I force it not; let Fortune do, and death, their worst to me. (859-61)    
The Capulets, as chief, a young man have chose out, Best exercised in feats of arms (963-4)  
when Fortune list to strike… As, of a little spark, oft riseth mighty fire,
So of a kindled spark of grudge, in flames flash out their ire (29,36-7)    

Notice, as highlighted below, the groups of parallels often come in the same order. Most of the shared language occurs in the brief intro and lines 81-100 of North’s poem and in lines 2506-25 in Brooke’s poem. This pic helps give an idea:

Remarkably, Shakespeare also especially borrowed from these very same stanzas of North (lines 81-100), though often taking different elements. And both Brooke and Shakespeare did this at the same moment in their respective tales: Juliet’s wedding/funeral.

The links between Brooke’s and North’s poems are quite clear: The juxtaposition of Hymen with Dirge and winding-sheet (and instead of, change); the use of fatal destiny, chose for his fere (choose my loving fere); craving justice/justly from Mighty Jove; the use of greedy worms, heaps of harms, and eke, foe’n, etc. Also we find other lines from North’s Dial in Brooke’s poem: young men/man who are exercised in feats of arms; the description of fortune as having kindled or oft causing a massive fire out of a little spark; etc. This is all exclusive to Brooke and North (see screenshots of Early English Books Online below).

Meanwhile, as we saw in the prior post, Shakespeare seems to have borrowed different elements from these same stanzas: rich/best array, black (a) day, by cruel, my only life, spite(d)-slain, wretched, noise, and sound of happy music contrasted with a dirge (Brooke contrasts Hymen with a dirge, and North’s poem does both.)

Again, this description occurs in no other version of Romeo and Juliet. The only reasonable explanation for this is that North, having travelled through Veronan territories with Montague, was the author of the tragedy on the star-crossed lovers that Brooke praises (and that Gascoigne later echoes when addressing Viscount Montague); that it was North who based a long passage on Juliet’s wedding/funeral on his own original poem on the wedding/funeral of Camma –and that parts of it ended up in Brooke’s poem and other parts ended up in the extant (Shakespeare’s) Romeo and Juliet.

Within the next few posts, we will see that Brooke’s poem also seems to borrow from North’s travel-diary and especially North’s entries of his Lombardy/Veronan travels. Of course, Brooke didn’t have access to North’s journal, but he did see North’s play.


[i] George Gascoigne, A Hundreth sundrie Flowres bounde vp in one small Poesie…(London: Richard Smith, 1573), 390. See also, Roger Prior,  “Gascoigne’s Poesies as a Shakespearian Source,” Notes and Queries 245 (2000): 444-9 and Brian Gibbons, ed., Romeo and Juliet: The Arden Shakespeare (London: Methuen, 1980). Gascoigne originally wrote the masque for a 1572 wedding of Anthony Browne, the Viscount Montagu’s daughter, but it would not be published till the following year.

An Original Poem by North & Turning Juliet’s Wedding into a Funeral

As detailed in earlier posts, North would often write original passages in his translations. That is, he would veer from the language of his source-text, at times preferring to craft his own speeches and descriptions as opposed to closely transcribing the work in front of him. One extraordinary example is North’s original, 110-line poetic complaint of Camma in his The Dial of Princes (1557), a poem that is eerily reminiscent in language, style, and storyline to various Juliet-related passages in Romeo and Juliet (and to The Rape of Lucrece too). And while we have seen hundreds of borrowings from North in the Shakespeare canon, this one is particularly informative. For, as the next few posts will show, it will help prove that North wrote the original play on Romeo and Juliet in ~1560, four years before Shakespeare was born, and that this was the very same tragedy mentioned by Arthur Brooke in 1562. In fact, it will be made clear that Brooke also often turned to North’s play when writing his poem on the star-crossed lovers.

An Original Poem

The background to North’s poem is as follows: Camma, renowned for her beauty and virtue, had been happily married when Sinoris murdered her husband hoping to take her for his wife. The devastated widow seems to acquiesce to Sinoris’s proposal only to poison the cup of wine from which they both drank on their wedding day. Before she sips, however, Camma recites a final prayer to Dian, the Goddess of chastity and protector of women’s honor, in which she expresses her extreme grief over her slain husband and her plan for both revenge and suicide.

In the French text from which North worked, the prayer is fairly straightforward and in prose. But North transforms this prayer into a long poem comprising 28 quatrains of iambic pentameter and a final couplet. In the last couplet, which is entirely North’s invention, Camma compares herself with Lucrece. This is peculiarly prescient as the two poems on Camma and Lucrece, North’s and Shakespeare’s, do share a number of features. As with The Rape of Lucrece, North’s poem on Camma is a “complaint,” that is, a dramatic first-person monologue from a virtuous female protagonist who describes the agonizing and tragic circumstances inflicted on her by an evil male. As Tarquin lusts for Lucrece, who is the wife of his friend, so Sinoris lusts after Camma, who is the wife of his cousin. Both Camma and Lucrece express love for their husbands, are renowned for their beauty and virtue, and intend to commit suicide to maintain their honor. And interestingly, between 1568-1570, ballads on Lucrece and Camma were entered into the Stationers’ Register, though none are extant.[i]

Camma and Juliet

Camma’s story should also seem familiar to fans of Romeo and Juliet. Both tales include a deadly rivalry for the young woman’s hand, a suicide by a cup of poison,[ii] the grieving bride’s apparent choice of death on her wedding day, her desire to be buried with her husband, and the claim that it is the most lamentable tale in the history of the region. The last three quatrains and final couplet of North’s poem on Camma comprise a sonnet, and there are no fewer than three such sonnets in Romeo and Juliet, including its famous 14-line prologue. Even North’s summary of the tragic ending is reminiscent of the star-crossed lovers: “And when the prayer was ended, that this fair and virtuous Camma made, she drank and gave to drink to Sinoris of this cup of poison… And truly, her death of all Greece with…great sorrow was lamented.”

But perhaps the most conspicuous resemblance involves Camma’s description of turning her wedding into a funeral—all the elements of which are repeated in Shakespeare’s tragedy, in which Juliet’s wedding is similarly transformed into a funeral. This includes that the wedding bed will become the grave; the light music will become a funeral dirge, etc.

Of course, Juliet is not really dead in this scene (4.5.); she has simply taken a potion to create the illusion in order to avoid marriage to Paris, but the ideas and language are the same. Indeed, the playwright foreshadows this scene in the first act when Juliet echoes Camma, stating that “my grave is like to be my wedding bed” (the playwright also repeats Camma’s language in Timon of Athens):

Camma’s Poem:  The DialRomeo and Juliet and Timon of Athens
O bright Dian….
In place of Hymen’s high unfiled bed,
They lay thee up in closure of thy grave (191-2)      



Bright, Dian, thy grave, Hymen’s-unfiled bed
Juliet: My grave is like to be my wedding bed (1.5. 134)  

Then, Timon, presently prepare thy grave… thou bright defiler/ Of Hymen’s purest bed! … Whose blush doth thaw the consecrated snow That lies on Dian’s lap! (4.3.380-9)

Bright, Dian, thy grave, defiler-Hymen’s- bed

Even the title of North’s chapter (and its second line) on Camma clearly inspired the following exchange between the nurse and Juliet:

Camma Title: Of the revenge a woman of Greece took of him that had killed her husband….
Sinatus and Sinorus which were by blood cousins (189)

Romeo and Juliet: Will you speak well of him that killed your cousin?
Shall I speak ill of him that is my husband? (3.2.96-7)


An EEBO analysis of just this last parallel leaves little doubt about the connection between the works.[iii] And when we come to the apparent death of Juliet (4.5), the borrowings become more obvious still. What is remarkable is the playwright’s continuous juxtaposition of the same word-groupings that also appear together in Camma’s poem (189-93):

Camma’s Death on Her Wedding DayJuliet’s “Death” on Her Wedding Day
O since him their kindled spite hath slain,
With tender love whom I have weighed so dear.
Since he by fate is wrest from fortune’s reign,
For whose decay I dreadless perish here.  
Since him by whom my only life I led,
Through wretched hands the gaping earth now have…   The first black day my husband slept in grave
By cruel sword my life I thought to spend…
Instead of song and music’s tuned sound,,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown,
Thy cruel death may spread with wretched noise 

[words/phrases appear in same 2 or 3 lines]
spite hath slainlove
my only life wretched;(ll.13-18)
black dayby cruellife;  (ll.33-34)
lamenting joyful …
cruel deathwretched noise …. (ll.94-6)]
Lady Capulet: What noise is here?
Nurse: O lamentable day!…
Lady Capulet. O me, O me! My child, my only life Paris: Beguiled, divorced, wronged, spited, slain!
Most detestable death, by thee beguil’d,
By cruel cruel thee quite overthrown!
O love! O life! not life, but love in death
Lady Capulet. Accursed, unhappy, wretched, hateful day! … But one thing to rejoice and solace in,
And cruel death hath catch’d it from my sight!…
Nurse: Never was seen so black a day as this. (4.5.44-6, 70-9)

[Words/phrases appearing in brief passage:]
spited slain…love
my only life…. wretched
black a day…by cruel…life
lamentable… rejoice
cruel death… noise …wretched (4.5.44-6, 70-9)

To press my corpse to feed thy liking lust,
The rout of Homer’s gods, thee grant to have,
Instead of royal feast, a throne of dust.
In change of costly robes and rich array,
A simple winding sheet they deign thee give,
And eke instead of honest wedlock’s stay,
They sing thy dirge, and not vouchsafe thee live…   Instead of song and music’s tuned sound,
They wait on thee, with loud lamenting voice,
In change of joyful life, and high renown      



[corpse … rich array… feast …
wedlock’s…lamenting
change…dirge,
music’s tuned sound…lamenting voice (ll. 82-95)]
Friar Laurence: On this fair corpse; and, as the custom is,
In all her best array bear her to church:
For though fond nature bids us all lament,
Yet nature’s tears are reason’s merriment.
Capulet: All things that we ordained festival,
Turn from their office to black funeral;
Our instruments to melancholy bells,
Our wedding cheer to a sad burial feast,
Our solemn hymns to sullen dirges change,
Our bridal flowers serve for a buried corpse,
And all things change them to the contrary.    
griping grief… /Then music with her silver sound  (4.5. 107-117, 151-3)  

[corpse… best array … feast…
lament… wedding…
dirges change (4.5.107-17)
griping grief …. music with her silver sound (4.5.151-3)

            Both passages repeatedly use the same terminology to describe the same peculiar event: a young bride’s wedding that will be turned into a funeral, with every joyous celebration of nuptials changed into the dark traditions of a wake.  Both refer to corpse, rich/best array, cruel death, black (a) day, feast, lament(ing), by cruel, my only life, spite(d)-slain, wretched, noise, and sound of happy music contrasted with a dirge. All the other borrowed phrases and language also confirm the obligation. Just checking EEBO for all works that place spite NEAR slain and include “my only life”[iv] results only in The Dial and Romeo and Juliet.

            But this scene in the tragedy is so overwhelmingly Northern that it also includes rare verbal connections to another chapter of The Dial and North’s Plutarch’s Live:

Plutarch and DialRomeo and Juliet
  Alas the day that ever I was born!
Plutarch 525  
   
O woeful world! O miserable world!  
O subtle world! O world unstable and unconstant! —Dial 493-4
  Nurse: Alas, alas! Help, help! my lady’s dead!
O, well a day, that ever I was born! (4.5.41-2)
Lady Capulet: Most miserable hour that e’er time saw…
Nurse: O woe! O woeful, woeful, woeful day! Most lamentable day, most woeful day….
O woeful day, O woeful day! (4.5.75-85)  

Below is the full and original poem of Camma, published by North in 1557, the year he turned 22.

North’s Complaint of Camma

  • To thee Dian, whose endless reign doth stretch,
  • Above the bonds of all the heavenly rout:
  • And eke whose aid with royal hand to reach,
  • Chief of all Gods, is most proclaimed out.
  • I swear, and with unspotted faith protest,
  • That though till now I have reserved my breath:
  • For no intent it was, but thus distressed,
  • With wailful end to wreak Sinatus death.
  • And if in mind I had not thus decreed,
  • Whereto should I my pensive days have spent
  • With longer deuil*: for that forepassed deed,
  • Whose oft record new sorrows still hath bent.
  • But O since him their kindled spite hath slain,
  • With tender love whom I have weighed so dear:
  • Since he by fate is wrest from fortunes reign,
  • For whose decay I dreadless perish here.
  • Since him by whom my only life I led,
  • Through wretched hands the gaping earth now have:
  • Ought I by wish to live in any stead,
  • But closed with him together in the grave.
  • O bright Dian, since senseless him I see,
  • And makeless, I, here, to remain alone:
  • Since he is graved where greedy worms now be,
  • And I survive surmounted with my foe’n. [foe’n: foes]
  • Since he is pressed with lumps of wretched soil,
  • And I thus charged with flame of frozen care:
  • Thou knowest Dian, how hard with restless toil
  • Of hot abhorring mind my life I spare.
  • For how can this unquiet breast reserve,
  • The fainting breath that strives to draw his last:
  • Since that even then, my dying heart did starve,
  • When my dead fere in swallowing earth was cast.
  • The first black day my husband slept in grave,
  • By cruel sword my life I thought to spend:
  • And since a thousand times I thought to have,
  • A stretched cord my sorrows wrath to end.
  • And if till now to waste my pining days,
  • I have deferred by slaughter of my hand:
  • It was but, lo, a fitter cause to raise,
  • Whereon his sharp revenge might justly stand.
  • Now since I may in full sufficing wise,
  • Redeem his breath (if wayward will would let)
  • More deep offence by not revenge might rise,
  • Then Sinoris erst by guiltless blood did get.
  • Thee therefore mighty Jove I justly crave,
  • And eke thy daughter chaste in thankful sort:
  • That lo the offering which of myself ye have.
  • Ye will vouchsafe into your heavenly fort.
  • Since Sinatus with soon enflamed eyes,
  • Amongst the Achaian routs, me chiefly viewed,
  • And eke amidst the prease* of Greeks likewise,
  • Chose for his fere, when sweetly he had sewed.
  • Since at my will the froth of wasting wealth,
  • With gladsome mind he trained was to spend,
  • Since that his youth, which slippeth lo by stealth,
  • To wait on me he freely did commend.
  • Since he such heaps of lingering harms did waste,
  • Ay to content my wanton youthful will,
  • And that his breath to fade did pass so fast,
  • To glut their thirst, that thus his blood did spill.
  • Though great the duty be, which that I owe
  • Unto his graved ghost and cindered mould:
  • Yet lo me seems, my duty well I show,
  • Performing that, my feeble power could.
  • For since for me untwined was his thread
  • Of guiltless life, that ought to purchase breath:
  • Can reasons doom conclude, I ought to dread,
  • For his decay to climb the steps of death.
  • In wretched earth my father graved lies,
  • My dear mother hath run her race of life,
  • The pride of love no more can daunt mine eyes,
  • My wasted goods are shrunk by fortunes strife.
  • My honour soon eclipsed is by fate,
  • My young delight is lo for done by chance,
  • My broken life these passed haps so hate,
  • As can my grieved heart no more advance.
  • And now remains to duty with my fere,
  • No more but refuse lo, my irksome life
  • With willing mind, followed eke with drear,
  • Which I resign, as fitteth for a wife.
  • And thou Sinoris, which Juno’s yoke dost crave,
  • To press my corps, to feed thy liking lust,
  • The rout of Homers gods, thee grant to have,
  • Instead of royal seats, a throne of dust.
  • In change of costly robes and rich array,
  • A simple winding sheet they deign thee give,
  • And eke instead of honest wedlock’s stay,
  • They sing thy dirge, and not vouchsafe thee live.
  • In place of Hymen’s high unfiled bed,
  • They lay thee up in closure of thy grave:
  • Instead with precious meats for to be fed,
  • They make the Worms, for fitter prey thee have.
  • Instead of song, and Music’s tuned sound,
  • They wait on thee, with loud lamenting voice,
  • In change of joyful life, and high renown,
  • Thy cruel death may spread with wretched noise.
  • For you, great Gods, that stalled be on high,
  • Should not be just, ne yet such titles claim,
  • Unless this wretch, ye ruthless cause to die,
  • That lives now, to slander of your name.
  • And thou Dian, that haunted Courts dost shun,
  • Knowest with what great delight this life I leave:
  • And when the race of spending breath is done,
  • Will pierce the soil that did my fere receive.
  • And if perchance the paled ghosts despise
  • Such fatal fine, with grudge of thankless mind:
  • Yet at the least, the shamefast living eyes
  • Shall have a Glass, rare wisely gifts to find,
  • Wherein I will that Lucrece‘ sect shall gaze,
  • But none that live, like Helen’s line in blaze.

*deuil: French for mourning; *prease: press tightly packed group


[i] Hyder E. Rollins, “An analytical to the Ballad-Entries (1557-1709) in the Registers of the Company of  Stationers of London,” Studies in Philology, Volume 21, ed. Edwin Greenlaw(Chapel Hill: University of North Carolina Press, 1924), 49, 94, 197, 212-13. Quoting Rollins on 197: “Revenge yat a Woman of Grece toke of hym that slewe hyr husbounde, the” (1569-70, I, 416, Jno. Arnold). Summarized from Bk. II, Ch. V, of Sir Thomas North’s Dial of Princes (1557, fols. 85v-87): ‘Of the reuenge- ment that a vvoman of Gretia toke of him, that had killed her husband, in hope to haue her in marriage.” Sinoris (Synorix) slew Sinatus, the husband of Camma. The latter married Sinoris but at the marriage feast poisoned him and herself.” Rollins claims 2284 was a re-issue of 2452, which was titled, Sinorex Cania et Cinatus, (Sinorex, Camma, et Sinatus). Rollins also lists two ballads on Lucrece from this same time period: The Death of Lucryssia (1569-70); The Grievous Complaynt of Lucrece (1568-9) on pages 49, 94 respectively.

[ii] In the tragedy, Juliet takes a pseudo-poison that brings an artificial death, Romeo drinks a cup of poison, and Juliet then stabs herself. But even here we find a resemblance to the story of Camma –as she first considers stabbing herself before finally deciding on poison.

[iii] An EEBO search for “{of him that}” PRE/5 killed PRE/20 husband results only in The Dial of Princes and Romeo and Juliet.

[iv] Specifically, the EEBO search is for (spite NEAR slain) AND “{my only life}”

Cassio’s Book-Learning vs. Iago’s Real Experiences in War (North’s Marginal Notes)

In the opening exchange in Othello, Iago criticizes the recently promoted Cassio because he knows nothing about war other than what he has read in books and does not have Iago’s actual experiences in battle. The origin of the passage clearly comes from one underscored by North in his own Dial of Princes, in which the battle-hardened Hannibal levels the same criticisms against “the book soldier,” Phormio. Both Hannibal and Iago even use the peculiar word “Certes” (surely) and repeat many of the same lines.

In North’s passage, Hannibal complains that Phormio presumes to “know more in matters of war by that he hath read in books than doth Hannibal,” even though Phormio “never saw man of war in the field, nor understood” the true details of battle. Similarly, Iago complains about Cassio’s “bookish theoric” for he is one, “That never set a squadron in the field,/ Nor the division of a battle knows/ More than a spinster.” As Hannibal contrasts Phormio’s learning in peaceful cultural centers (“beautiful schools of Greece”) with his own experience in the “bloody fields of Afric” and fighting “dangerous wars … in Italy as in Spain;” Iago stresses that Cassio is a student from the cultural center of Florence while he himself had fought in the fields “At Rhodes, at Cyprus and on other grounds Christian and heathen.” As Hannibal complains that Phormio “hath seen not one thing with his eyes” of war; Iago says,I of whom his eyes had seen the proof” of war. Hannibal dismisses the “book-soldier’s” prating“; while Iago dismisses the “bookish” Cassio’s “prattle.” 

In Nepos Lives, North also describes this same contrast as “theoric” vs. “practise,” which is precisely the antithetical pairing that Iago uses as well to describe the same idea. A search of Early English Books Online for just a few of these parallels confirms that the very passage that North had marked is indeed the same one that would inspire the original playwright of Othello.  

Ye-Olde-Spellinge Corrector

MS Word Macros to Help Normalize Early Modern English Texts

The following macros will help start you on your way to modernizing the spelling of Early Modern English texts -- especially large tomes and those downloaded from Early English Books online. It corrects many of the most common spelling variations and makes the works easier to read or more suitable for use in plagiarism-software analyses. The instructions are as follows:
  1. In MS word, click “View” and double-click “Macros.”
  2. Type “Olde1” in the “Macro name” field, then click “Create.”
  3. You should see an input window with brief code for a new Macro beginning with “Sub Olde1( )” and ending with “End Sub”. Copy and paste all text shown below (that is, copy the text following “11 MACROS TO BE COPIED,” (which begins with “Sub Olde1( )” and ends with “End Sub”), replacing the brief few lines of code in the input window that also begins “Sub Olde1( )” and ends with “End Sub”. After you have pasted, make sure you have not added any extraneous text before “Sub Olde( )1 or after “End Sub”. Exit the box and exit Macros.
  4. Open the Word-Doc you want to correct, then click Macros > View. You should now have eight new Macros labelled Olde1- Olde11, and you should run them one at a time. If you prefer, you may change the names or add short-cuts to these macros. (Note: the macros are designed to create the most amount of correctly spelled words in an early-modern document but may create a few new errors. For example, “~” is changed to “n” even though it sometimes refers to “m.” Make sure to compare with the original if you intend to quote from a spell-corrected document.)

11 MACROS TO BE COPIED:

Sub Olde1()
'
' Olde1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "|"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "é"
        .Replacement.Text = "e"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yng"
        .Replacement.Text = "ing"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "iue"
        .Replacement.Text = "ive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eue"
        .Replacement.Text = "eve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "~"
        .Replacement.Text = "n"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "subie"
        .Replacement.Text = "subje"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eire)>"
        .Replacement.Text = "eir"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sse)>"
        .Replacement.Text = "ss"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oule)>"
        .Replacement.Text = "oul"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nde)>"
        .Replacement.Text = "nd"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(cke)>"
        .Replacement.Text = "ck"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(che)>"
        .Replacement.Text = "ch"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rke)>"
        .Replacement.Text = "rk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rte)>"
        .Replacement.Text = "rt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "shal"
        .Replacement.Text = "shall"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(383)
        .Replacement.Text = "s"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(vn)"
        .Replacement.Text = "un"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vs)"
        .Replacement.Text = "us"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vt)"
        .Replacement.Text = "ut"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eue"
        .Replacement.Text = "eve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "seru"
        .Replacement.Text = "serv"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "rvaunt"
        .Replacement.Text = "rvant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "oue"
        .Replacement.Text = "ove"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "~"
        .Replacement.Text = "n"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(vp)"
        .Replacement.Text = "up"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(iou)"
        .Replacement.Text = "jou"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(iu)"
        .Replacement.Text = "ju"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(iefe)>"
        .Replacement.Text = "ief"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iue"
        .Replacement.Text = "ive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eui"
        .Replacement.Text = "evi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "oyl"
        .Replacement.Text = "oil"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(aire)>"
        .Replacement.Text = "air"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eepe)>"
        .Replacement.Text = "eep"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eeke)>"
        .Replacement.Text = "eek"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oake)>"
        .Replacement.Text = "oak"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eake)>"
        .Replacement.Text = "eak"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iui"
        .Replacement.Text = "ivi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eare)>"
        .Replacement.Text = "ear"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(kespear)>"
        .Replacement.Text = "kespeare"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "'d"
        .Replacement.Text = "ed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub Olde2()
'
' Olde2 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(sie)>"
        .Replacement.Text = "sy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(tnes)>"
        .Replacement.Text = "tness"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(efull)>"
        .Replacement.Text = "eful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(wne)>"
        .Replacement.Text = "wn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oofe)>"
        .Replacement.Text = "oof"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ltie)>"
        .Replacement.Text = "lty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aund)>"
        .Replacement.Text = "and"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oone)>"
        .Replacement.Text = "oon"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oole)>"
        .Replacement.Text = "ool"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oode)>"
        .Replacement.Text = "ood"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eede)>"
        .Replacement.Text = "eed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stome)>"
        .Replacement.Text = "stom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stie)>"
        .Replacement.Text = "sty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rie)>"
        .Replacement.Text = "ry"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aine)>"
        .Replacement.Text = "ain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfull)>"
        .Replacement.Text = "lful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eede)>"
        .Replacement.Text = "ede"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eekes)>"
        .Replacement.Text = "eeks"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(selues)>"
        .Replacement.Text = "selves"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lde)>"
        .Replacement.Text = "ld"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(graunt)>"
        .Replacement.Text = "grant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ppe)>"
        .Replacement.Text = "p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Shakespear"
        .Replacement.Text = "Shakespeare"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(edie)>"
        .Replacement.Text = "edy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aua"
        .Replacement.Text = "ava"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "maie"
        .Replacement.Text = "maje"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "poys"
        .Replacement.Text = "pois"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aui"
        .Replacement.Text = "avi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "serui"
        .Replacement.Text = "servi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oui"
        .Replacement.Text = "ovi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pylot"
        .Replacement.Text = "pilot"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pilote"
        .Replacement.Text = "pilot"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wee"
        .Replacement.Text = "we"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mee"
        .Replacement.Text = "me"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "shee"
        .Replacement.Text = "she"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wals"
        .Replacement.Text = "walls"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yong"
        .Replacement.Text = "young"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yee"
        .Replacement.Text = "ye"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hee"
        .Replacement.Text = "he"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sixe"
        .Replacement.Text = "six"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "whome"
        .Replacement.Text = "whom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "answere"
        .Replacement.Text = "answer"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oui"
        .Replacement.Text = "ovi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde3()
'
' Olde3 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "graun"
        .Replacement.Text = "gran"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "owen"
        .Replacement.Text = "own"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oore)>"
        .Replacement.Text = "oor"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rdes)>"
        .Replacement.Text = "rds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfe)>"
        .Replacement.Text = "lf"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfes)>"
        .Replacement.Text = "lfs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eates)>"
        .Replacement.Text = "eats"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(esiers)>"
        .Replacement.Text = "esires"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(iatly)>"
        .Replacement.Text = "iately"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ttie)>"
        .Replacement.Text = "ty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eene)>"
        .Replacement.Text = "een"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "payn"
        .Replacement.Text = "pain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "shement"
        .Replacement.Text = "shment"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "nefully"
        .Replacement.Text = "nfully"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "saunt"
        .Replacement.Text = "sant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nte)>"
        .Replacement.Text = "nt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "conmeth"
        .Replacement.Text = "comes"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "norish"
        .Replacement.Text = "nourish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(mie)>"
        .Replacement.Text = "my"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(flie)>"
        .Replacement.Text = "fly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nfull)>"
        .Replacement.Text = "nful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(duetie)>"
        .Replacement.Text = "duty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(utie)>"
        .Replacement.Text = "uty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(enuied)"
        .Replacement.Text = "envied"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vv)"
        .Replacement.Text = "w"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(VV)"
        .Replacement.Text = "W"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(gne)>"
        .Replacement.Text = "gn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(vie)>"
        .Replacement.Text = "vy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lie)>"
        .Replacement.Text = "ly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ly"
        .Replacement.Text = "lie"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "couragious"
        .Replacement.Text = "courageous"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eete)>"
        .Replacement.Text = "eet"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(die)>"
        .Replacement.Text = "dy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dy"
        .Replacement.Text = "die"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rmes)>"
        .Replacement.Text = "rms"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(full)>"
        .Replacement.Text = "ful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ful"
        .Replacement.Text = "full"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(trey)>"
        .Replacement.Text = "try"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iniu"
        .Replacement.Text = "inju"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ayes)>"
        .Replacement.Text = "ays"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lme)>"
        .Replacement.Text = "lm"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "shalbe"
        .Replacement.Text = "shall be"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eeme)>"
        .Replacement.Text = "eeem"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aies)>"
        .Replacement.Text = "ays"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "beeing"
        .Replacement.Text = "being"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mervail"
        .Replacement.Text = "marvel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "florish"
        .Replacement.Text = "flourish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "encreas"
        .Replacement.Text = "increas"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(cie)>"
        .Replacement.Text = "cy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "eee"
        .Replacement.Text = "ee"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oyes)>"
        .Replacement.Text = "oys"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dooth"
        .Replacement.Text = "doth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(uine)>"
        .Replacement.Text = "uin"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iua"
        .Replacement.Text = "iva"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ndes)>"
        .Replacement.Text = "nds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(pie)>"
        .Replacement.Text = "py"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "py"
        .Replacement.Text = "pie"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wel"
        .Replacement.Text = "well"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nowes)>"
        .Replacement.Text = "nows"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "herin"
        .Replacement.Text = "herein"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "outhes"
        .Replacement.Text = "ouths"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hart"
        .Replacement.Text = "heart"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "conue"
        .Replacement.Text = "conve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wholy"
        .Replacement.Text = "wholly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nselles)>"
        .Replacement.Text = "nsels"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rtie)>"
        .Replacement.Text = "rty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rre)>"
        .Replacement.Text = "r"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(dde)>"
        .Replacement.Text = "d"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lpe)>"
        .Replacement.Text = "lp"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nye)>"
        .Replacement.Text = "ny"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rpe)>"
        .Replacement.Text = "rp"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(tte)>"
        .Replacement.Text = "t"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aye)>"
        .Replacement.Text = "ay"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aines)>"
        .Replacement.Text = "ains"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde4()
'
' Olde4 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dyd"
        .Replacement.Text = "did"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(odie)>"
        .Replacement.Text = "ody"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sfie)>"
        .Replacement.Text = "sfy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ishe)>"
        .Replacement.Text = "ish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(itie)>"
        .Replacement.Text = "ity"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(arres)>"
        .Replacement.Text = "ars"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(llie)>"
        .Replacement.Text = "lly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stes)>"
        .Replacement.Text = "sts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rtes)>"
        .Replacement.Text = "rts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ceyue"
        .Replacement.Text = "ceive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sayed"
        .Replacement.Text = "said"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "rebell"
        .Replacement.Text = "rebel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "conmod"
        .Replacement.Text = "commod"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "graun"
        .Replacement.Text = "gran"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "owen"
        .Replacement.Text = "own"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oore)>"
        .Replacement.Text = "oor"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rdes)>"
        .Replacement.Text = "rds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfe)>"
        .Replacement.Text = "lf"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfes)>"
        .Replacement.Text = "lfs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eates)>"
        .Replacement.Text = "eats"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(esiers)>"
        .Replacement.Text = "esires"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(iatly)>"
        .Replacement.Text = "iately"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ttie)>"
        .Replacement.Text = "ty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eene)>"
        .Replacement.Text = "een"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "payn"
        .Replacement.Text = "pain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "shement"
        .Replacement.Text = "shment"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "nefully"
        .Replacement.Text = "nfully"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "saunt"
        .Replacement.Text = "sant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nte)>"
        .Replacement.Text = "nt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "conmeth"
        .Replacement.Text = "comes"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "norish"
        .Replacement.Text = "nourish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "(iefe)>"
        .Replacement.Text = "ief"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iue"
        .Replacement.Text = "ive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(aire)>"
        .Replacement.Text = "air"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eepe)>"
        .Replacement.Text = "eep"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eeke)>"
        .Replacement.Text = "eek"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oake)>"
        .Replacement.Text = "oak"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eake)>"
        .Replacement.Text = "eak"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iui"
        .Replacement.Text = "ivi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eare)>"
        .Replacement.Text = "ear"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(kespeare)>"
        .Replacement.Text = "kespear"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "'d"
        .Replacement.Text = "ed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(sie)>"
        .Replacement.Text = "sy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(tnes)>"
        .Replacement.Text = "tness"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(efull)>"
        .Replacement.Text = "eful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(wne)>"
        .Replacement.Text = "wn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oofe)>"
        .Replacement.Text = "oof"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ltie)>"
        .Replacement.Text = "lty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aund)>"
        .Replacement.Text = "and"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oone)>"
        .Replacement.Text = "oon"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oole)>"
        .Replacement.Text = "ool"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oode)>"
        .Replacement.Text = "ood"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eede)>"
        .Replacement.Text = "eed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stome)>"
        .Replacement.Text = "stom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stie)>"
        .Replacement.Text = "sty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rie)>"
        .Replacement.Text = "ry"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aine)>"
        .Replacement.Text = "ain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lfull)>"
        .Replacement.Text = "lful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eede)>"
        .Replacement.Text = "ede"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eekes)>"
        .Replacement.Text = "eeks"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(selues)>"
        .Replacement.Text = "selves"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lde)>"
        .Replacement.Text = "ld"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(graunt)>"
        .Replacement.Text = "grant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ppe)>"
        .Replacement.Text = "p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Shakespear"
        .Replacement.Text = "Shakespeare"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(edie)>"
        .Replacement.Text = "edy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aua"
        .Replacement.Text = "ava"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "maie"
        .Replacement.Text = "maje"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "poys"
        .Replacement.Text = "pois"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aui"
        .Replacement.Text = "avi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "serui"
        .Replacement.Text = "servi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oui"
        .Replacement.Text = "ovi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pylot"
        .Replacement.Text = "pilot"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pilote"
        .Replacement.Text = "pilot"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wee"
        .Replacement.Text = "we"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yee"
        .Replacement.Text = "ye"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hee"
        .Replacement.Text = "he"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sixe"
        .Replacement.Text = "six"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "whome"
        .Replacement.Text = "whom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "answere"
        .Replacement.Text = "answer"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oui"
        .Replacement.Text = "ovi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dyd"
        .Replacement.Text = "did"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(odie)>"
        .Replacement.Text = "ody"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sfie)>"
        .Replacement.Text = "sfy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ishe)>"
        .Replacement.Text = "ish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(itie)>"
        .Replacement.Text = "ity"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(arres)>"
        .Replacement.Text = "ars"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(llie)>"
        .Replacement.Text = "lly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(stes)>"
        .Replacement.Text = "sts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rtes)>"
        .Replacement.Text = "rts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ceyue"
        .Replacement.Text = "ceive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sayed"
        .Replacement.Text = "said"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "rebell"
        .Replacement.Text = "rebel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "conmod"
        .Replacement.Text = "commod"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde5()
'
' Olde5 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(mie)>"
        .Replacement.Text = "my"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(flie)>"
        .Replacement.Text = "fly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nke)>"
        .Replacement.Text = "nk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(kinnes)>"
        .Replacement.Text = "kins"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nfull)>"
        .Replacement.Text = "nful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(duetie)>"
        .Replacement.Text = "duty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(utie)>"
        .Replacement.Text = "uty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(enuied)"
        .Replacement.Text = "envied"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vv)"
        .Replacement.Text = "w"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(VV)"
        .Replacement.Text = "W"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(gne)>"
        .Replacement.Text = "gn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(vie)>"
        .Replacement.Text = "vy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lie)>"
        .Replacement.Text = "ly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ly"
        .Replacement.Text = "lie"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "couragious"
        .Replacement.Text = "courageous"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eete)>"
        .Replacement.Text = "eet"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(die)>"
        .Replacement.Text = "dy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dy"
        .Replacement.Text = "die"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rmes)>"
        .Replacement.Text = "rms"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(full)>"
        .Replacement.Text = "ful"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ful"
        .Replacement.Text = "full"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(trey)>"
        .Replacement.Text = "try"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iniu"
        .Replacement.Text = "inju"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ayes)>"
        .Replacement.Text = "ays"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lme)>"
        .Replacement.Text = "lm"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "shalbe"
        .Replacement.Text = "shall be"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eeme)>"
        .Replacement.Text = "eeem"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aies)>"
        .Replacement.Text = "ays"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "beeing"
        .Replacement.Text = "being"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mervail"
        .Replacement.Text = "marvel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "florish"
        .Replacement.Text = "flourish"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "encreas"
        .Replacement.Text = "increas"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(cie)>"
        .Replacement.Text = "cy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "eee"
        .Replacement.Text = "ee"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oyes)>"
        .Replacement.Text = "oys"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "dooth"
        .Replacement.Text = "doth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(uine)>"
        .Replacement.Text = "uin"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "iua"
        .Replacement.Text = "iva"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ndes)>"
        .Replacement.Text = "nds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(pie)>"
        .Replacement.Text = "py"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "py"
        .Replacement.Text = "pie"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wel"
        .Replacement.Text = "well"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nowes)>"
        .Replacement.Text = "nows"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "herin"
        .Replacement.Text = "herein"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "outhes"
        .Replacement.Text = "ouths"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hart"
        .Replacement.Text = "heart"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "conue"
        .Replacement.Text = "conve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wholy"
        .Replacement.Text = "wholly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(nselles)>"
        .Replacement.Text = "nsels"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "|"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "é"
        .Replacement.Text = "e"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "iue"
        .Replacement.Text = "ive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eue"
        .Replacement.Text = "eve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "~"
        .Replacement.Text = "n"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "subie"
        .Replacement.Text = "subje"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eire)>"
        .Replacement.Text = "eir"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sse)>"
        .Replacement.Text = "ss"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oule)>"
        .Replacement.Text = "oul"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nde)>"
        .Replacement.Text = "nd"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(cke)>"
        .Replacement.Text = "ck"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rke)>"
        .Replacement.Text = "rk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "shal"
        .Replacement.Text = "shall"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "|"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(vn)"
        .Replacement.Text = "un"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vs)"
        .Replacement.Text = "us"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(vt)"
        .Replacement.Text = "ut"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "aue"
        .Replacement.Text = "ave"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eue"
        .Replacement.Text = "eve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "seru"
        .Replacement.Text = "serv"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "rvaunt"
        .Replacement.Text = "rvant"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "oue"
        .Replacement.Text = "ove"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "~"
        .Replacement.Text = "n"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(vp)"
        .Replacement.Text = "up"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<(iou)"
        .Replacement.Text = "jou"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<(iu)"
        .Replacement.Text = "ju"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "(ltes)>"
        .Replacement.Text = "lts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lte)>"
        .Replacement.Text = "lt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nne)>"
        .Replacement.Text = "n"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ayne)>"
        .Replacement.Text = "ain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "yf"
        .Replacement.Text = "if"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wher"
        .Replacement.Text = "where"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eares"
        .Replacement.Text = "ears"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(aile)>"
        .Replacement.Text = "ail"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sdome)>"
        .Replacement.Text = "sdom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(sedome)>"
        .Replacement.Text = "sdom"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ayde)>"
        .Replacement.Text = "aid"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eale)>"
        .Replacement.Text = "eal"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oyde)>"
        .Replacement.Text = "oid"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(inge)>"
        .Replacement.Text = "ing"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(pte)>"
        .Replacement.Text = "pt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(veng)>"
        .Replacement.Text = "venge"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eness)>"
        .Replacement.Text = "ness"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lowre)>"
        .Replacement.Text = "lower"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rne)>"
        .Replacement.Text = "rn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(redite)>"
        .Replacement.Text = "redit"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "nck"
        .Replacement.Text = "nk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pallaice"
        .Replacement.Text = "palace"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "honny"
        .Replacement.Text = "honey"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "palaice"
        .Replacement.Text = "palace"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " iu"
        .Replacement.Text = " ju"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ryed"
        .Replacement.Text = "ried"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "lyb"
        .Replacement.Text = "lib"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eythe"
        .Replacement.Text = "eithe"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(owe)>"
        .Replacement.Text = "ow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "mys"
        .Replacement.Text = "mis"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yt"
        .Replacement.Text = "it"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yd"
        .Replacement.Text = "id"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "adui"
        .Replacement.Text = "advi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "maun"
        .Replacement.Text = "man"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aunsw"
        .Replacement.Text = "answ"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "lshoo"
        .Replacement.Text = "lsehoo"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wil"
        .Replacement.Text = "will"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "shewe"
        .Replacement.Text = "show"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wt"
        .Replacement.Text = "with"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "wt"
        .Replacement.Text = "with"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "maist"
        .Replacement.Text = "may"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "honeye"
        .Replacement.Text = "honey"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ayr"
        .Replacement.Text = "air"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "vertu"
        .Replacement.Text = "virtu"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "auoi"
        .Replacement.Text = "avoi"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ioy"
        .Replacement.Text = "joy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "joyc"
        .Replacement.Text = "joic"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rde)>"
        .Replacement.Text = "rd"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "(eeres)>"
        .Replacement.Text = "eers"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde6()
'
' Olde6 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "yere"
        .Replacement.Text = "year"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "fyrm"
        .Replacement.Text = "firm"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wyse"
        .Replacement.Text = "wise"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wnes"
        .Replacement.Text = "wns"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "Uenec"
        .Replacement.Text = "Venic"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "nges"
        .Replacement.Text = "ngs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "astate"
        .Replacement.Text = "estate"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tym"
        .Replacement.Text = "tim"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "mary"
        .Replacement.Text = "marry"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "hyn"
        .Replacement.Text = "hin"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hym"
        .Replacement.Text = "him"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "counsail"
        .Replacement.Text = "counsel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "Romain"
        .Replacement.Text = "Roman"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "nede"
        .Replacement.Text = "need"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "goe"
        .Replacement.Text = "go"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "foorth"
        .Replacement.Text = "forth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "oppes"
        .Replacement.Text = "ops"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "wold"
        .Replacement.Text = "would"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "theyr"
        .Replacement.Text = "their"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eade)>"
        .Replacement.Text = "ead"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ste)>"
        .Replacement.Text = "st"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(aie)>"
        .Replacement.Text = "ay"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(tee)>"
        .Replacement.Text = "ty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(bre)>"
        .Replacement.Text = "ber"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(fte)>"
        .Replacement.Text = "ft"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lawes)>"
        .Replacement.Text = "laws"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nie)>"
        .Replacement.Text = "ny"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oorth"
        .Replacement.Text = "orth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hyl"
        .Replacement.Text = "hil"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "enioi"
        .Replacement.Text = "enjoy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "citee"
        .Replacement.Text = "city"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tein"
        .Replacement.Text = "tain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "deere"
        .Replacement.Text = "dear"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ftie"
        .Replacement.Text = "fty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "onely"
        .Replacement.Text = "only"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "fewe"
        .Replacement.Text = "few"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ippes"
        .Replacement.Text = "ips"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yeere"
        .Replacement.Text = "year"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "bothe"
        .Replacement.Text = "both"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "dyuer"
        .Replacement.Text = "diver"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(etie)>"
        .Replacement.Text = "ety"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(thie)>"
        .Replacement.Text = "thy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "eua"
        .Replacement.Text = "eva"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "reson"
        .Replacement.Text = "reason"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde7()
'
' Olde7 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "thei"
        .Replacement.Text = "they"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "staied"
        .Replacement.Text = "stayed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "chaun"
        .Replacement.Text = "chan"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "chang"
        .Replacement.Text = "change"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "oied"
        .Replacement.Text = "oyed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hir"
        .Replacement.Text = "her"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "dede"
        .Replacement.Text = "deed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "som"
        .Replacement.Text = "some"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "unnes"
        .Replacement.Text = "uns"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "inue"
        .Replacement.Text = "inve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "illes"
        .Replacement.Text = "ills"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "myl"
        .Replacement.Text = "mil"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "conue"
        .Replacement.Text = "conve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ghe)>"
        .Replacement.Text = "gh"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eemde)>"
        .Replacement.Text = "eemed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rowes)>"
        .Replacement.Text = "rows"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ooke)>"
        .Replacement.Text = "ook"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eleeve)>"
        .Replacement.Text = "elieve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "whan"
        .Replacement.Text = "when"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "miself"
        .Replacement.Text = "myself"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yn"
        .Replacement.Text = "in"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yg"
        .Replacement.Text = "ig"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oure)>"
        .Replacement.Text = "our"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ooles)>"
        .Replacement.Text = "ools"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(lowes)>"
        .Replacement.Text = "lows"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(urnd)>"
        .Replacement.Text = "urned"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eedes)>"
        .Replacement.Text = "eeds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(arue)>"
        .Replacement.Text = "arve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(erue)>"
        .Replacement.Text = "erve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(uouse)>"
        .Replacement.Text = "uous"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ayre"
        .Replacement.Text = "air"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "publike"
        .Replacement.Text = "public"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "maje"
        .Replacement.Text = "may"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "arow"
        .Replacement.Text = "arrow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "uites"
        .Replacement.Text = "uits"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde8()
'
' Olde8 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "therd"
        .Replacement.Text = "third"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ignes)>"
        .Replacement.Text = "igns"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(haviour)>"
        .Replacement.Text = "havior"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(itall)>"
        .Replacement.Text = "ital"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(tuall)>"
        .Replacement.Text = "tual"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "storsions"
        .Replacement.Text = "stortions"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tunbl"
        .Replacement.Text = "tumbl"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "lness"
        .Replacement.Text = "leness"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "newes"
        .Replacement.Text = "news"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "unweldy"
        .Replacement.Text = "unwieldy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "curu"
        .Replacement.Text = "curv"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rkie)>"
        .Replacement.Text = "rky"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(bbe)>"
        .Replacement.Text = "b"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(cht)>"
        .Replacement.Text = "ched"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "zzel"
        .Replacement.Text = "zzle"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ospell"
        .Replacement.Text = "ospel"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "moov"
        .Replacement.Text = "mov"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ldes)>"
        .Replacement.Text = "lds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ldes)>"
        .Replacement.Text = "lds"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oates)>"
        .Replacement.Text = "oats"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ntie)>"
        .Replacement.Text = "nty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "peece"
        .Replacement.Text = "piece"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "pitti"
        .Replacement.Text = "piti"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(rles)>"
        .Replacement.Text = "rls"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(morall)>"
        .Replacement.Text = "moral"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rnes)>"
        .Replacement.Text = "rns"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "whereign"
        .Replacement.Text = "wherein"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "morrall"
        .Replacement.Text = "moral"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "seaze"
        .Replacement.Text = "seize"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tels"
        .Replacement.Text = "tells"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(mpe)>"
        .Replacement.Text = "mp"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "sodain"
        .Replacement.Text = "sudden"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "cloath"
        .Replacement.Text = "cloth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "heere"
        .Replacement.Text = "here"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "fier"
        .Replacement.Text = "fire"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "auo"
        .Replacement.Text = "avo"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sawce"
        .Replacement.Text = "sauce"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(eafe)>"
        .Replacement.Text = "ear"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "gowt"
        .Replacement.Text = "gout"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "untill"
        .Replacement.Text = "until"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(sme)>"
        .Replacement.Text = "sm"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lke)>"
        .Replacement.Text = "lk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(oame)>"
        .Replacement.Text = "oam"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(wle)>"
        .Replacement.Text = "wl"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "deceav"
        .Replacement.Text = "deceiv"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(igge)>"
        .Replacement.Text = "ig"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "rub"
        .Replacement.Text = "ig"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    With Selection.Find
        .Text = "rb"
        .Replacement.Text = "ig"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    With Selection.Find
        .Text = " rb"
        .Replacement.Text = "ig"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    With Selection.Find
        .Text = "(aite)>"
        .Replacement.Text = "ait"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Usuall"
        .Replacement.Text = "usual"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "coniur"
        .Replacement.Text = "conjur"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde9()
'
' Olde9 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "paie"
        .Replacement.Text = "pay"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "Millain"
        .Replacement.Text = "Milan"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "maried"
        .Replacement.Text = "married"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "neece"
        .Replacement.Text = "niece"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "folow"
        .Replacement.Text = "follow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "famouse"
        .Replacement.Text = "famous"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "limmes"
        .Replacement.Text = "limbs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "proced"
        .Replacement.Text = "proceed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ndour"
        .Replacement.Text = "ndor"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "erour"
        .Replacement.Text = "eror"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "offendor"
        .Replacement.Text = "offender"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mphes"
        .Replacement.Text = "mphs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mariag"
        .Replacement.Text = "marriag"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "quy"
        .Replacement.Text = "qui"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "gentill"
        .Replacement.Text = "gentle"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tucion"
        .Replacement.Text = "tution"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "stomes"
        .Replacement.Text = "stoms"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hertily"
        .Replacement.Text = "heartily"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tyll"
        .Replacement.Text = "till"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "bagge"
        .Replacement.Text = "bag"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "orcion"
        .Replacement.Text = "ortion"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ainct"
        .Replacement.Text = "aint"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "tinved"
        .Replacement.Text = "tinued"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yl"
        .Replacement.Text = "il"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "aunc"
        .Replacement.Text = "anc"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "cion"
        .Replacement.Text = "tion"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "saied"
        .Replacement.Text = "said"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "iust"
        .Replacement.Text = "just"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "chace"
        .Replacement.Text = "chase"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mentes"
        .Replacement.Text = "ments"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "dooing"
        .Replacement.Text = "doing"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "enuy"
        .Replacement.Text = "envy"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "succed"
        .Replacement.Text = "succeed"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "streign"
        .Replacement.Text = "strain"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mnely"
        .Replacement.Text = "mnly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "semeth"
        .Replacement.Text = "seems"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub Olde10()
'
' Olde10 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "vv"
        .Replacement.Text = "w"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "yrd"
        .Replacement.Text = "ird"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(othe)>"
        .Replacement.Text = "oth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(othe)>"
        .Replacement.Text = "oth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "o" & ChrW(772)
        .Replacement.Text = "on"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ther"
        .Replacement.Text = "there"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "flye"
        .Replacement.Text = "fly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ugg)>"
        .Replacement.Text = "ug"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ugg)>"
        .Replacement.Text = "ug"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(cte)>"
        .Replacement.Text = "ct"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(gge)>"
        .Replacement.Text = "g"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(wke)>"
        .Replacement.Text = "wk"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(dd)>"
        .Replacement.Text = "d"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rthe)>"
        .Replacement.Text = "rth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "chuse"
        .Replacement.Text = "choose"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hapneth"
        .Replacement.Text = "happeneth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "whoe"
        .Replacement.Text = "who"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " coning"
        .Replacement.Text = " cunning"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "welthe"
        .Replacement.Text = "wealth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(nge)>"
        .Replacement.Text = "ng"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "litle"
        .Replacement.Text = "little"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "fron"
        .Replacement.Text = "from"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "agreable"
        .Replacement.Text = "agreeable"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "(mbe)>"
        .Replacement.Text = "mb"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(newe)>"
        .Replacement.Text = "new"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "flyes"
        .Replacement.Text = "flies"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "faucon"
        .Replacement.Text = "falcon"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "overnement"
        .Replacement.Text = "overnment"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "creatour"
        .Replacement.Text = "creator"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "betwixe"
        .Replacement.Text = "betwixt"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "(tye)>"
        .Replacement.Text = "ty"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "autour"
        .Replacement.Text = "author"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "(wne)>"
        .Replacement.Text = "wn"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "woolf"
        .Replacement.Text = "wolf"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "errour"
        .Replacement.Text = "error"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "medowe"
        .Replacement.Text = "meadow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "naturs"
        .Replacement.Text = "natures"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "threed"
        .Replacement.Text = "thread"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "hearb"
        .Replacement.Text = "herb"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " cary"
        .Replacement.Text = " carry"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "arue"
        .Replacement.Text = "arve"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "phisitian"
        .Replacement.Text = "physician"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ravelles)>"
        .Replacement.Text = "ravels"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "allready"
        .Replacement.Text = "already"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(hte)>"
        .Replacement.Text = "ht"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "welth"
        .Replacement.Text = "wealth"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "Catell"
        .Replacement.Text = "cattle"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(eapes)>"
        .Replacement.Text = "eaps"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sparaw"
        .Replacement.Text = "sparrow"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "eue" & ChrW(772)
        .Replacement.Text = "even"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "deceve"
        .Replacement.Text = "deceive"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "moyst"
        .Replacement.Text = "moist"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting

    With Selection.Find
        .Text = "moyst"
        .Replacement.Text = "moist"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub
Sub Olde11()
'
' Olde11 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(oile)>"
        .Replacement.Text = "oil"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(uite)>"
        .Replacement.Text = "uit"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "hys"
        .Replacement.Text = "his"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(alles)>"
        .Replacement.Text = "alls"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(rawe)>"
        .Replacement.Text = "raw"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(grye)>"
        .Replacement.Text = "gry"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "fyn"
        .Replacement.Text = "fin"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "stomack"
        .Replacement.Text = "stomach"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(ckes)>"
        .Replacement.Text = "cks"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ulles)>"
        .Replacement.Text = "ulls"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(lles)>"
        .Replacement.Text = "lls"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "hye"
        .Replacement.Text = "high"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(dlye)>"
        .Replacement.Text = "dly"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(ftes)>"
        .Replacement.Text = "fts"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(she)>"
        .Replacement.Text = "sh"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "sh"
        .Replacement.Text = "she"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "sittes"
        .Replacement.Text = "sits"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mastive"
        .Replacement.Text = "mastiff"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "mastives"
        .Replacement.Text = "mastiffs"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "cotage"
        .Replacement.Text = "cottage"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Quotes and Descriptions of North’s Plays That Appeared Long Before Shakespeare Adapted Them (1-4)

Frustratingly, when Elizabethan writers often referred to plays performed by Leicester Men’s–including all of Thomas North’s plays–they never named the playwright. This is why it has taken so long to determine who wrote them. Still, many writers did do the next best thing: They often quoted the play.

To those innocent of the fact that Shakespeare often adapted North’s plays, the quotes in these next few posts may be quite surprising. For they are disturbingly close quotes, echoes and descriptions of “Shakespearean” plays long before Shakespeare, who was born in 1564, and did not start his playwrighting till 1589-90, could have written them.

1. In 1572, George Gascoigne, a fellow Leicester Men’s playwright, paraphrases and echoes Romeo and Juliet when addressing the Viscount Montagu

In 1555, North traveled with Viscount Montague to Italy and would pen an early version of Romeo and Juliet, likely all in rhyme, within a few years of his return. North’s respect for Montague explains the change in the name of the protagonist from Romeo Montecchi to Romeo Montague, and his authorship explains why we find passages that North marked in his Dial of Princes (1557) that he then used in the tragedy. Also, Arthur Brooke referred to this English play on Romeo and Juliet in 1562, so we do know such a play existed.
Then ten years later, George Gascoigne wrote a masque for Viscount Montague clearly referencing the opening of the tragedy, necessarily associating the play with North’s fellow-traveler, and confirming the language of the play was much like the extant version:

George Gascoigne, Leicester Men’s Playwright, addressed to Viscount Montagu (1572) Romeo and Juliet

“This token which the Montacutes (Montagues) did bear always, for that
They covet to be known from Capels [i.e. Capulets] where they pass,
For ancient grutch which long ago ‘twene these two houses was.
Then took me by the hand…”[1]
Romeo and Juliet on Montagues and Capulets:
Two households both alike in dignity
From ancient grudge break to new mutiny,
Where civil blood makes civil hands unclean.
From forth the fatal loins of these two foes
2. In 1579, Edmund Spenser signed a letter to Gabriel Harvey (both of whom were in Leicester’s circle and had recently attended North’s entertainments for the Queen at Kirtling Hall) with a knowing reference to The Merchant of Venice:

Chapter of Michael Blanding’s “North by Shakespeare,” explores considerable evidence that Thomas North wrote an early version of The Merchant of Venice for the Queen’s visit in September of 1578 to North’s Kirtling Hall. Thomas had needed a dinner-masque in which he could present gifts to the other noble guests and a fabulous jewel to the Queen. This is why the play includes references to and even set-up of a dinner-masque (which in the extant version is bizarrely canceled at the last minute), costumed masquers carrying a chest of jewels, and there is such focus on Portia’s ring. Also, the Princes of Morocco and Aragon would have had particular relevance to North’s French and English noble guests in 1578.

More, North was now writing Plutarch’s Lives at the time which is why we find so many seemingly incongruent borrowings from that history text in Merchant of Venice. For example, the name of the main female character– “Her name is Portia, nothing undervalued / To Cato’s daughter, BrutusPortia” (1.1.165-66) –comes from North’s “Life of Marcus Brutus,” in which we find the marginal note: “Portia, Cato’s daughter, wife unto Brutus”(1060). Other passages that link the Italian comedy to Plutarch include the story of Hercules playing dice for a woman.

The attendance of Spenser and Harvey at the 1578 Kirtling Hall entertainments helps explain why Spenser, in a 1579 letter that acknowledged he was in Harvey’s debt, signed it:

“He that is fast bound unto thee in more obligations than any merchant in Italy to any Jew there.” [2]

This describes the major plot of The Merchant of Venice, and it’s stressing of the fact that Antonio, the Italian merchant, “shall be bound.” To which Shylock responds: “Antonio shall become bound; well.”


3. In 1579, Stephen Gosson both describes an early version of The Merchant of Venice (a play he called “The Jew” ) and paraphrases one of its passages:

In School of Abuse (1579), a tract attacking plays, Stephen Gosson singles out a few exceptional dramas, including two works, “The Jew & Ptolemy, shown at the Bull.” These were likely plays performed by Leicester’s Men as they were the only troupe to be able to perform within the city. Gosson describes The Jew as portraying “the greediness of worldly choosers and bloody minds of usurers.”[3] Many scholars agree that Gosson, here, is referring to the source-play for The Merchant of Venice (aka as The Jew of Venice), and that Gosson has even summarized both the comedy’s plot (i.e. the Jewish usurer and his “bloodydesires) and subplot (the greedy, world-traveling suitors who must choose between the caskets.) Indeed, even the full title of Shakespeare’s 1600 publication of the comedy echoes Gosson’s dual description, referring to both the “the extreme cruelty of Shylock, the Jew” and “the obtaining of Portia by the choice of three chests.”

Gosson then seems to quote/paraphrase a passage in the play as he warns, just like Shylock warns, that you must resist temptations that will even reach you in the house, and you must “stop your ears” to the music enters the windows:

Gosson, after explicitly referring to the play, “The Jew” Merchant of Venice:

 
When you are grieved, pass the time with your neighbours in sober conference…
lest that laboring to
shun Scylla you light on Charybdis…
You
need not go abroad to be tempted, you shall be enticed at your own windows … keep homeAnd if you perceive yourselves in any danger at your own doorsassaulted with music in the night; close up your eyes, stop your ears, tie up your tongues; when they speak, answer not.”[4]


Thus when I shun ScyllaI fall into Charybdis (3.5.14-15).
What, are there masques? Hear you me, Jessica:
Lock up my doors, and when you hear the drum
And the vile squealing of the wry-necked fife,
Clamber not you up to the casements then…
But stop my house’s earsI mean my casements.
Let not the sound of shallow fopp’ry enter
My sober house. (2.5.29-37)

J. C. Ross, who discovered these verbal similarities, had to assume that Shakespeare was the borrower or else admit that these passages originally appeared in the source work: “It is as if Shylock has been reading Gosson, and is applying this advice to his daughter.”[5] But of course it is Gosson who had just admitted that he had seen Shylock. See more detailed treatment here.

4. In his 1584 introduction to Pan, His Syrinx, William Warner refers to an early play on Timon of Athens and clearly echoes it:

Warner:  “let the Athenian Misanthropos or man-hater bite on the stage.”

Timon of Athens: “I am Misanthropos, and hate mankind…/Is this the Athenian minon?” (4.3.54, 79)

As is clear from these examples (and as will be shown in the next few posts), plays much like those now attributed to Shakespeare existed before he began crafting plays in the late 1580s or early 1590s. And this is one of the many reasons why most Shakespeare scholars agree that Shakespeare frequently adapted old plays. It’s also why his contemporaries complained that Shakespeare got too much credit for old plays that he was adapting, and why rumors persisted, even until the 18th century, that he had adapted an older historian’s plays.


[1] George Gascoigne, A Hundreth sundrie Flowres bounde vp in one small Poesie…(London: Richard Smith, 1573), 390. See also, Roger Prior,  “Gascoigne’s Poesies as a Shakespearian Source,” Notes and Queries 245 (2000): 444-9 and Brian Gibbons, ed., Romeo and Juliet: The Arden Shakespeare (London: Methuen, 1980). Gascoigne originally wrote the masque for a 1572 wedding of Anthony Browne, the Viscount Montagu’s daughter, but it would not be published till the following year.

[2] Quoted in Charlotte Porter and Helen A. Clarke, Introduction to The Merchant of Venice (New York: Thomas Y. Crowell & Co., 1904), 104. See also James Shapiro, Shakespeare and the Jews (New York: Columbia University Press, 1996), 98.

[3] Stephen Gosson, The Schoole of Abuse, Conteining a plesaunt invective against Poets, Pipers, Plaiers, Jesters, and such like Caterpillers of a Comonwelth; Setting up the Hagge of Defiance to their mischievous exercise, overthrowing their Bulwarkes, by Prophane Writers, Naturall reason, and common experience: A discourse as pleasaunt for Gentlemen that favour learning, as profitable for all that wyll follow virtue (London: Thomas Woodcocke, 1579), 22. The “bloody minds of usurers” alludes to Shylock’s effort to extract a bloody penalty on the defaulting Antonio. In fact, Gratiano even refers to his bloody mind: “thy desires/ Are wolvish, bloody, starved and ravenous” (4.1. 137-8). Gosson’s other comment — “The greediness of worldly choosers” —refers to the covetous nature of the world-traveling suitors (“all the world desires her/ From the four corners of the earth they come” 2.7.) who had to choose correctly among gold, silver, or lead caskets in order to win the hand of Portia. The greed of the Princes of Morocco and Aragon lead them to the mistaken choice of the gold and silver caskets, respectively. The romantic local hero, Bassanio, observing that “The world is still deceived with ornament” (3.2.74), opts for the sturdy lead casket and thus wins Portia

[4] Gosson, The Schoole of Abuse, F3v-F4v

[5] J. C. Ross, “Stephen Gosson and The Merchant of Venice Revisited,” Notes and Queries 50 (2003): 36-37. See also Ramon Jimenez, The Date of The Merchant of VeniceThe Evidence for 1578; The Oxfordian, (13), 2011, 50-75; 53.

Not Just a Translator: Extraordinary Praise for Originality and Quality of North’s Writing

Nineteenth and early twentieth century scholars studying Thomas North’s translation of Plutarch’s Lives were often effusive in their praise of both the originality and quality of North’s prose. They noted that North frequently veered from the original foreign text he was translating in order to rework it into his own masterful style–punching up speeches, embellishing the images, and electrifying the narrative. The Cambridge History of English and American Literature describes North’s version of Plutarch’s Lives as a bold and original tour-de-force: “It is not Plutarch. In many respects, it is Plutarch’s antithesis. North composed a new masterpiece upon Plutarch’s theme.”[1] R. H. Carr, an editor of an early twentieth-century edition of Plutarch’s Lives, agreed about the originality and tenor of his prose: “But isolated quotations can give no adequate idea of the fluent splendour of North’s language. The whole temper of the Elizabethan age, with all its poetry, its enthusiasm, its love of adventure, its eager hero-worship, is incarnate in his pages.”[2] George Wyndham, another editor of Plutarch’s Lives, expressed even more flattering praise for North’s writing abilities: “Of good English prose there is much, but of the world’s greatest books in great English prose there are not many. Here is one, worthy to stand with Malory’s Morte d’Arthur on either side of the English Bible.”[3]

North then transferred many of the stories, images, ideas, speeches and characters from his translations directly into his own plays, and many of them still remain in Shakespeare’s adaptations. The result, as shown throughout this webpage, is that literally hundreds of passages in the Shakespeare canon can be traced back to North’s prose texts. And scholars are already aware of a small fraction of these borrowings. At least since the eighteenth-century, researchers have contended that when Shakespeare wrote his three Roman tragedies—Julius Caesar, Coriolanus,and Antony and Cleopatra and, to a lesser extent, the Greek tragedy Timon of Athens—he had North’s Plutarch’s Lives open beside him, closely following the relevant source-chapters and subsuming many of North’s passages with little change:

“Shakespeare, the first poet of all time, borrowed three plays almost wholly from North,” wrote Wyndham about the Roman plays. “Shakespeare’s obligation is apparent in almost all he has written. To measure it you must quote the bulk of the three plays.”[4]

In reality, it was North who had originally made plays out of his own chapters from Plutarch’s Lives and reused his own passages. Shakespeare then adapted these dramas. But the upshot in either case is the same: it is currently conventional that the storylines, characters, scenes, and even many of the speeches of Shakespeare’s Roman tragedies all first came from the pen of Thomas North. What is more, they noted Shakespeare seemed peculiarly attracted to the English embellishments of North — not the French, Italian, and Spanish words of the original author. In other words, the passages that ended up in the plays are the ones that North had already started reworking and augmenting in the translation.

Tucker Brooke also agreed with Wyndham’s estimate of the translator’s genius and Shakespeare’s debt. He noted that a study of North’s chapters on Mark Antony and the warrior-general Coriolanus “shows that the dramatist was satisfied in no small number of cases to incorporate whole speeches from North with the least change consistent with the production of blank verse.”[5] One of Tucker Brooke’s examples appears in the climax of Coriolanus, in which Volumnia begs her son Coriolanus not to lead his army into a vengeful attack on their home-city of Rome. It is an historical moment in the early years of the Roman republic, and her successful appeal preserves the city-state, allowing it to evolve into an empire. In a recent film version of Coriolanus (2011), starring Ralph Fiennes as the Roman general, Vanessa Redgrave plays Volumnia, and her power and gravitas help intensify the speech. But as shown in the table below, Redgrave was really delivering a monologue from North’s Plutarch’s Lives (1580), which Shakespeare would not stage until ~1607, some 27 years later:

North’s Plutarch’s LivesCoriolanus
[Volumnia:]
If we … [were] not to speak, the state of our poor bodies, and … our raiment would easily bewray to thee what life we have led at home, since thy exile … (T)hink now with thyself how much more unfortunately than all the women living we are come hither …    
If I cannot persuade thee
rather to do good unto both parties
than to overthrow and destroy the onetrust unto it—thou shalt no sooner march forward to assault thy country, but thy foot shall tread upon thy mothers womb that brought thee first into this world. (256)
Volumnia:
Should we be silent and not speak, our raiment
And state of bodies would bewray what life
We have led since thy exile. Think with thyself
How more unfortunate than all living women
Are we come hither …      
If I cannot persuade thee
Rather to show a noble grace to both parts
Than seek the end of one, thou shalt no sooner
March to assault thy country than to tread—
Trust to ’t, thou shalt not—on thy mother’s womb
That brought thee to this world. (5.3.94-97, 120-25)

After listing five such examples, Tucker Brooke concluded with a significant remark:

“[T]hese passages, all of which rank among the special treasures of Shakespearean poetry, come straight and essentially unaltered out of North…

“In the passages I have cited there is little evidence of any attempt at improvement; indeed, it may be held in regard to several of them that the palm belongs rather to North’s prose than to Shakespeare’s poetry. That this should be so is a fact worthy of all wonder and attention, for the like can be said of no other of Shakespeare’s rivals or assistants.” — Tucker Brooke, Shakespeare’s Plutarch.

This is an astonishing fact that has gotten too little attention. The passages that Shakespeare borrows from North, as numerous scholars point out, also seem peculiarly “Shakespearean” and do not differ in quality from the rest of the play. In fact, many of the borrowings are, in the words of Tucker Brooke, “among the special treasures of Shakespearean poetry.”

Another editor Felix Emmanuel Schelling also put the translator and dramatist on equal footing: “It has been well said that in North alone among his sources Shakespeare met his match.”[6]

This, in and of itself, establishes a unique literary relationship between North and Shakespeare. After all, we do not find Fyodor Dostoevsky, Émile Zola, Charlotte Brontë, or other renowned authors routinely appropriating paragraphs, again and again, from the same contemporary. Nor do we find such pilfering in the works of other Shakespeare-era literati—such as Philip Sidney, Ben Jonson, Christopher Marlowe, or John Fletcher. What is more, as we have seen, prior scholars have uncovered only a small fraction of Shakespeare’s debt to North’s translations. For when North wrote his plays, he did not confine his attention to three or four relevant chapters from his Plutarch’s Lives; he mined every part of it. He also borrowed extensively from his three other translations, allowing us to trace the influence of North’s prose works throughout the Shakespeare canon, starting with the first play and continuing to the last. Plagiarism software—the same kind of software that is the bane of cheating students—has been indispensable in helping establish the pervasiveness of these borrowings. Literally hundreds of passages in the Shakespeare plays—including many of the most famous soliloquies—can now be traced back to North’s translations.

But perhaps it is George Wyndham who most clearly recognized the genius of North and his importance to the Roman plays: While many researchers have noted the extraordinariness of North’s Plutarch, with Robert Adger Law, for example, referring to it as “one of the great monuments of English prose,”[ii] Wyndham goes further and marks it as one of the three greatest examples in the English language. Indeed, he identifies North’s extraordinary style as so thoroughly infused into the “Shakespearean” dramas that, when it comes to the Roman plays, it becomes well-nigh impossible for him to tease apart the differences in abilities and contributions of the two writers. In an analysis of the climactic scene in Coriolanus, Wyndham emphasizes how the vocabulary, rhythm, and structure of Volumnia’s moving soliloquy all belong to North:

Shakespeare has taken over North’s vocabulary, and that is much; but it is more that behind that vocabulary he should have found such an intensity of passion as would fill the sails of the highest drama. North has every one of Shakespeare’s most powerful effects in his version of the speech: ‘Trust unto it, thou shalt no sooner march forward to assault thy country, but thy foot shall tread upon thy mother’s womb, that brought thee first into this world;’ ‘Doest thou take it honourable for a nobleman to remember the wrongs and injuries done to him; ‘Thou hast not hitherto shewed thy poor mother any courtesy’: these belong to North, and they are the motors of Shakespeare’s emotion. The two speeches, dressed, the one in perfect prose, the other in perfect verse are both essentially the same under their faintly yet magically varied raiment. The dramatic tension, the main argument, the turns of pleading, even the pause and renewal of entreaty, all are in North, and are expressed by the same spoken words and the same gap of silence.[10]

In examining the origins of Antony and Cleopatra, Wyndham portrayed Shakespeare as “possessed,” “haunted,” and “spellbound” by the great translator: “Shakespeare, indeed, is saturated with North’s language, possessed by his passion. He is haunted by the story as North told it.…”[11] His marginal comment next to this analysis is “Shakespeare possessed by North.”

When Wyndham then turns to the final acts of Antony and Cleopatra, he finds some of the greatest English verse yet penned –- with “flashes of immortal speech which have given the Fourth Act of Antony and Cleopatra its place apart even in Shakespeare.”[12] But even in this, Wyndham recognizes, the work is dependent upon and follows quite naturally from the supremacy of North’s imagery and language. “I doubt if there are many pages,” wrote Wyndham about the translation, “which may rank with these last of North’s Antonius in the prose of any language.” In Wyndham’s view, North’s and Shakespeare’s accounts of the deaths of Antony and Cleopatra surpass essentially everything else written by other English literati, and they are melded at the base and connected all the way through.

As Wyndham continues to detail the debt owed to North, the two writers appear to blur together:

In all this splendour North is Amyot, and Amyot is Plutarch, while Plutarch is but the reporter of events within the recollection of men he had seen living; so that Shakespeare’s Fourth Act is based on old-world realism made dynamic by North’s incomparable prose…[Examples deleted].”

To the end of the play the poet’s fidelity is as close; and North’s achievement in narrative prose is only less signal than Shakespeare’s in dramatic verse. Every characteristic touch, even to Cleopatra’s outburst against Seleucus, is in North. Indeed, in the Fifth Act, I venture to say that Shakespeare has not transcended his original….[13]

Consider precisely what Wyndham is admitting when he first identifies the last acts of Antony and Cleopatra as among the best in Shakespeare’s canon, yet then goes on to describe the work as thoroughly soaked with North’s influence, dripping with his phrases and language. Consider what he is admitting when he says that even at the highest flights achieved in these final acts, still “Shakespeare has not transcended his original.”[14]


[1] The Cambridge History of English and American Literature in 18 Volumes, Volume IV. Prose and Poetry: Sir Thomas North to Michael Drayton, I. Translators; 6 Sir Thomas North’s Plutarch (1907–21), http://www.bartleby.com/214/0106.html.

[2] R. H. Carr, Introduction to Plutarch’s Lives of Coriolanus, Caesar, Brutus, and Antonius in North’s Translation (Oxford: Clarendon Press, 1906), xiv.

[3] George Wyndham, Introduction to Plutarch’s Lives of the Noble Grecians and Romans, Englished by Sir Thomas North (London: David Nutt, 1895), ci.

[4] Wyndham,  lxxxviii.

[5] C. F. Tucker Brooke, Shakespeare’s PlutarchThe Main Sources of “Antony and Cleopatra” and of “Coriolanus” (New York: Duffield & Company, 1909), 2:x.

[6] Felix Emmanuel Schelling, English Literature During the Lifetime of Shakespeare (New York: Henry Holt and Company, 1910), 280.

[7] Robert Adger Law, “The Text of ‘Shakespeare‘s Plutarch‘”, The Huntington Library Quarterly (1943) 6(2): 197-203.

[8] As quoted by Bernadotte Perrin, ed. Plutarch’s Themistocles and Aristides, (New York: C. Scribner’s Sons, 1901), 21.

[9] Wyndham, lxxxviii, xc.

[10] Wyndham, xcii –xciii.

[11] Wyndham, xciv.

[12] Wyndham, xcvi.

[13] Wyndham, xcviii- xcix.

[14] Wyndham, xcviii- xcix.