Wikipedia

Gebruiker:Chavâl/Tennissers (m)

Sub VervangMannen() ' ' VervangMannen Macro ' Macro recorded maandag 10 december 2012 by Vinkje83 ' Versie 21 september 2015 18:45 ' 

   Dim saveAF As Boolean

   saveAF = Options.AutoFormatAsYouTypeReplaceQuotes
   Options.AutoFormatAsYouTypeReplaceQuotes = False

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting

   With Selection.Find
       .Text = "í­"
       .Replacement.Text = "í"
       .Forward = True
       .Wrap = wdFindStop
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
       .Text = "(tennista)"
       .Replacement.Text = "(tennis)"
       .Execute Replace:=wdReplaceAll

       .Text = "(Tennisspielerin)"
       .Replacement.Text = "(tennis)"
       .Execute Replace:=wdReplaceAll

       .Text = "(Tennis player)"
       .Replacement.Text = "(tennis)"
       .Execute Replace:=wdReplaceAll

       .Text = "(tennisser)]"
       .Replacement.Text = "(tennis)]"
       .Execute Replace:=wdReplaceAll

       .Text = "(tennisster)]"
       .Replacement.Text = "(tennis)]"
       .Execute Replace:=wdReplaceAll

       .Text = "(tennissspeler)]"
       .Replacement.Text = "(tennis)]"
       .Execute Replace:=wdReplaceAll

       .Text = "(tennissspeelster)]"
       .Replacement.Text = "(tennis)]"
       .Execute Replace:=wdReplaceAll

       .Text = "}} [["
       .Replacement.Text = "}} [["
       .Execute Replace:=wdReplaceAll
   End With

   With Selection.Find
       .Text = "Aisam-Ul-Haq Qureshi"
       .Replacement.Text = "Aisam-ul-Haq Qureshi"
       .Execute Replace:=wdReplaceAll

       .Text = "Aleksandr Nedovyesov"
       .Replacement.Text = "Oleksandr Nedovjesov"
       .Execute Replace:=wdReplaceAll

       .Text = "Albert Costa"
       .Replacement.Text = "Albert Costa"
       .Execute Replace:=wdReplaceAll

       .Text = "Albert Costa (tennis)"
       .Replacement.Text = "Albert Costa" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Albert Costa (tennis)|"
       .Replacement.Text = "[[Albert Costa (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Albert Ramos"
       .Replacement.Text = "Albert Ramos Viñolas"
       .Execute Replace:=wdReplaceAll

       .Text = "Albert Ramos-Viñolas"
       .Replacement.Text = "Albert Ramos Viñolas"
       .Execute Replace:=wdReplaceAll

       .Text = "Alejandro González (tennis)"
       .Replacement.Text = "Alejandro González" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Alejandro González (tennis)|"
       .Replacement.Text = "[[Alejandro González (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Alex Bogomolov, Jr."
       .Replacement.Text = "Alex Bogomolov jr."
       .Execute Replace:=wdReplaceAll

       .Text = "Alex Bogomolov Jr."
       .Replacement.Text = "Alex Bogomolov jr."
       .Execute Replace:=wdReplaceAll

       .Text = "Alex Calatrava"
       .Replacement.Text = "Álex Calatrava"
       .Execute Replace:=wdReplaceAll

       .Text = "Alex Corretja"
       .Replacement.Text = "Àlex Corretja"
       .Execute Replace:=wdReplaceAll

       .Text = "Alex O’Brien"
       .Replacement.Text = "Alex O'Brien"
       .Execute Replace:=wdReplaceAll

       .Text = "Alexander Kudryavtsev"
       .Replacement.Text = "Aleksandr Koedrjavtsev" 
       .Execute Replace:=wdReplaceAll

       .Text = "Amer Delic"
       .Replacement.Text = "Amer Delić" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andre Sa"
       .Replacement.Text = "André Sá"
       .Execute Replace:=wdReplaceAll

       .Text = "Andreas Beck (tennis)"
       .Replacement.Text = "Andreas Beck"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Andreas Beck (tennis)|"
       .Replacement.Text = "[[Andreas Beck (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Andrey Kuznetsov"
       .Replacement.Text = "Andrej Koeznetsov"
       .Execute Replace:=wdReplaceAll

       .Text = "Andrey Kuznetsov (tennis)"
       .Replacement.Text = "Andrej Koeznetsov" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andreij Koeznetsov"
       .Replacement.Text = "Andrej Koeznetsov"
       .Execute Replace:=wdReplaceAll

       .Text = "Andrei Medvedev"
       .Replacement.Text = "Andrej Medvedev"
       .Execute Replace:=wdReplaceAll

       .Text = "Andreï Medvedev"
       .Replacement.Text = "Andrej Medvedev" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrei Olhovskiy"
       .Replacement.Text = "Andrej Olchovski"
       .Execute Replace:=wdReplaceAll

       .Text = "Andreï Olhovskiy"
       .Replacement.Text = "Andrej Olchovski" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrej Ol'chovskij"
       .Replacement.Text = "Andrej Olchovski" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrei Tsjesnokov"
       .Replacement.Text = "Andrej Tsjesnokov"
       .Execute Replace:=wdReplaceAll

       .Text = "Andres Schneiter"
       .Replacement.Text = "Andrés Schneiter" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrew Whittington (tennis)"
       .Replacement.Text = "Andrew Whittington" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrey Golubev"
       .Replacement.Text = "Andrej Goloebev"
       .Execute Replace:=wdReplaceAll

       .Text = "Andrey Kuznetsov"
       .Replacement.Text = "Andreij Koeznetsov"
       .Execute Replace:=wdReplaceAll

       .Text = "Andrey Kuznetsov (tennis)"
       .Replacement.Text = "Andreij Koeznetsov" 
       .Execute Replace:=wdReplaceAll

       .Text = "Andrij Medvedev"
       .Replacement.Text = "Andrej Medvedev" 
       .Execute Replace:=wdReplaceAll

       .Text = "Anthony Ross"
       .Replacement.Text = "Anthony Ross" 
       .Execute Replace:=wdReplaceAll

       .Text = "Arnaud di Pasquale"
       .Replacement.Text = "Arnaud Di Pasquale"
       .Execute Replace:=wdReplaceAll

       .Text = "Barry Cowan (tennis)"
       .Replacement.Text = "Barry Cowan"
       .Execute Replace:=wdReplaceAll

       .Text = "Benoit Paire"
       .Replacement.Text = "Benoît Paire"
       .Execute Replace:=wdReplaceAll

       .Text = "Billy Martin"
       .Replacement.Text = "Billy Martin"
       .Execute Replace:=wdReplaceAll

       .Text = "Billy Martin (tennisser)"
       .Replacement.Text = "Billy Martin" 
       .Execute Replace:=wdReplaceAll

       .Text = "Brad Pearce (tennis)"
       .Replacement.Text = "Brad Pearce" 
       .Execute Replace:=wdReplaceAll

       .Text = "Brian Macphie"
       .Replacement.Text = "Brian MacPhie"
       .Execute Replace:=wdReplaceAll

       .Text = "Carlos Costa (tennis)"
       .Replacement.Text = "Carlos Costa" 
       .Execute Replace:=wdReplaceAll

       .Text = "Chris Guccione (tennis)"
       .Replacement.Text = "Chris Guccione" 
       .Execute Replace:=wdReplaceAll

       .Text = "Daniel Gimeno-Traver"
       .Replacement.Text = "Daniel Gimeno Traver"
       .Execute Replace:=wdReplaceAll

       .Text = "David Adams"
       .Replacement.Text = "David Adams"
       .Execute Replace:=wdReplaceAll

       .Text = "David Adams (tennis)"
       .Replacement.Text = "David Adams"
       .Execute Replace:=wdReplaceAll

       .Text = "[[David Adams (tennis)|"
       .Replacement.Text = "[[David Adams (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "David Macpherson"
       .Replacement.Text = "David Macpherson"
       .Execute Replace:=wdReplaceAll

       .Text = "David Macpherson (tennis)"
       .Replacement.Text = "David Macpherson"
       .Execute Replace:=wdReplaceAll

       .Text = "David Sánchez"
       .Replacement.Text = "David Sánchez"
       .Execute Replace:=wdReplaceAll

       .Text = "David Sánchez (tennis)"
       .Replacement.Text = "David Sánchez" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[David Sánchez (tennis)|"
       .Replacement.Text = "[[David Sánchez (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "David Skoch"
       .Replacement.Text = "David Škoch"
       .Execute Replace:=wdReplaceAll

       .Text = "Dennis Van Scheppingen"
       .Replacement.Text = "Dennis van Scheppingen" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Dick Stockton (tennis)"
       .Replacement.Text = "[[Dick Stockton"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Diego Perez"
       .Replacement.Text = "[[Diego Pérez"
       .Execute Replace:=wdReplaceAll

       .Text = "Diego Pérez"
       .Replacement.Text = "Diego Pérez"
       .Execute Replace:=wdReplaceAll

       .Text = "Diego Pérez (tennis)"
       .Replacement.Text = "Diego Pérez" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Diego Pérez (tennis)|"
       .Replacement.Text = "[[Diego Pérez (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Dmitri Toursounov"
       .Replacement.Text = "Dmitri Toersoenov" 
       .Execute Replace:=wdReplaceAll

       .Text = "Dmitry Tursunov"
       .Replacement.Text = "Dmitri Toersoenov"
       .Execute Replace:=wdReplaceAll

       .Text = "Donald Young"
       .Replacement.Text = "Donald Young"
       .Execute Replace:=wdReplaceAll

       .Text = "Donald Young (tennis)"
       .Replacement.Text = "Donald Young"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Donald Young (tennis)|"
       .Replacement.Text = "[[Donald Young (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Dustin Brown (tennis)"
       .Replacement.Text = "Dustin Brown"
       .Execute Replace:=wdReplaceAll

       .Text = "Edouard Roger-Vasselin"
       .Replacement.Text = "Édouard Roger-Vasselin"
       .Execute Replace:=wdReplaceAll

       .Text = "Eric Roberson (tennis)"
       .Replacement.Text = "Eric Roberson" 
       .Execute Replace:=wdReplaceAll

       .Text = "Ernest Gulbis"
       .Replacement.Text = "Ernests Gulbis"
       .Execute Replace:=wdReplaceAll

       .Text = "Evgenij Kafel'nikov"
       .Replacement.Text = "Jevgeni Kafelnikov" 
       .Execute Replace:=wdReplaceAll

       .Text = "Feliciano Lopez"
       .Replacement.Text = "Feliciano López"
       .Execute Replace:=wdReplaceAll

       .Text = "Felix Mantilla"
       .Replacement.Text = "Félix Mantilla"
       .Execute Replace:=wdReplaceAll

       .Text = "Filip Polasek"
       .Replacement.Text = "Filip Polášek"
       .Execute Replace:=wdReplaceAll

       .Text = "Francis Tiafoe"
       .Replacement.Text = "Frances Tiafoe"
       .Execute Replace:=wdReplaceAll

       .Text = "Francisco González (tennis)"
       .Replacement.Text = "Francisco González" 
       .Execute Replace:=wdReplaceAll

       .Text = "Frank Moser (tennis)"
       .Replacement.Text = "Frank Moser"
       .Execute Replace:=wdReplaceAll

       .Text = "Frantisek Cermak"
       .Replacement.Text = "František " & ChrW(268) & "ermák"
       .Execute Replace:=wdReplaceAll

       .Text = "Frédéric Vitoux"
       .Replacement.Text = "Frédéric Vitoux"
       .Execute Replace:=wdReplaceAll

       .Text = "Frédéric Vitoux (tennis)"
       .Replacement.Text = "Frédéric Vitoux" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Frédéric Vitoux (tennis)|"
       .Replacement.Text = "[[Frédéric Vitoux (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Gael Monfils"
       .Replacement.Text = "Gaël Monfils"
       .Execute Replace:=wdReplaceAll

       .Text = "Gareth Williams"
       .Replacement.Text = "Gareth Williams"
       .Execute Replace:=wdReplaceAll

       .Text = "Gareth Williams (tennis)"
       .Replacement.Text = "Gareth Williams" 
       .Execute Replace:=wdReplaceAll

       .Text = "Gastao Elias"
       .Replacement.Text = "Gastão Elias"
       .Execute Replace:=wdReplaceAll

       .Text = "Gaston Etlis"
       .Replacement.Text = "Gastón Etlis"
       .Execute Replace:=wdReplaceAll

       .Text = "Gaston Gaudio"
       .Replacement.Text = "Gastón Gaudio"
       .Execute Replace:=wdReplaceAll

       .Text = "Goran Ivaniševic"
       .Replacement.Text = "Goran Ivaniševi" & ChrW(263) & ""
       .Execute Replace:=wdReplaceAll

       .Text = "Guillermo García-López"
       .Replacement.Text = "Guillermo García López"
       .Execute Replace:=wdReplaceAll

       .Text = "Guillermo Pérez-Roldán"
       .Replacement.Text = "Guillermo Pérez Roldán"
       .Execute Replace:=wdReplaceAll

       .Text = "Hendrik-Jan Davids"
       .Replacement.Text = "Hendrik Jan Davids" 
       .Execute Replace:=wdReplaceAll

       .Text = "Igor Andreev"
       .Replacement.Text = "Igor Andrejev"
       .Execute Replace:=wdReplaceAll

       .Text = "Igor Kunitsyn"
       .Replacement.Text = "Igor Koenitsyn"
       .Execute Replace:=wdReplaceAll

       .Text = "Ilija Bozoljac"
       .Replacement.Text = "Ilia Bozoljac"
       .Execute Replace:=wdReplaceAll

       .Text = "Illya Marchenko"
       .Replacement.Text = "Illja Martsjenko"
       .Execute Replace:=wdReplaceAll

       .Text = "Ion Tiriac"
       .Replacement.Text = "Ion Țiriac"
       .Execute Replace:=wdReplaceAll

       .Text = "Ivan Ljubicic"
       .Replacement.Text = "Ivan Ljubi" & ChrW(269) & "i" & ChrW(263) & ""
       .Execute Replace:=wdReplaceAll

       .Text = "Ivo Karlovic"
       .Replacement.Text = "Ivo Karlovi" & ChrW(263) & ""
       .Execute Replace:=wdReplaceAll

       .Text = "Izak Van der Merwe"
       .Replacement.Text = "Izak van der Merwe" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jairo Velasco, Jr."
       .Replacement.Text = "Jairo Velasco Jr." 
       .Execute Replace:=wdReplaceAll

       .Text = "James Blake"
       .Replacement.Text = "James Blake"
       .Execute Replace:=wdReplaceAll

       .Text = "James Blake (tennis)"
       .Replacement.Text = "James Blake" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[James Blake (tennis)|"
       .Replacement.Text = "[[James Blake (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "James Duckworth (tennis)"
       .Replacement.Text = "James Duckworth" 
       .Execute Replace:=wdReplaceAll

       .Text = "James Murray"
       .Replacement.Text = "Jamie Murray"
       .Execute Replace:=wdReplaceAll

       .Text = "James Murray (tennis)"
       .Replacement.Text = "Jamie Murray" 
       .Execute Replace:=wdReplaceAll

       .Text = "James Ward (tennis)"
       .Replacement.Text = "James Ward"
       .Execute Replace:=wdReplaceAll

       .Text = "Jamie Baker (tennis)"
       .Replacement.Text = "Jamie Baker" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jan Minar"
       .Replacement.Text = "Jan Minář" 
       .Execute Replace:=wdReplaceAll

       .Text = "Janko Tipsarevic"
       .Replacement.Text = "Janko Tipsarevi" & ChrW(263)
       .Execute Replace:=wdReplaceAll

       .Text = "Jaroslav Levinsky"
       .Replacement.Text = "Jaroslav Levinský"
       .Execute Replace:=wdReplaceAll

       .Text = "Jean-Francois Bachelot"
       .Replacement.Text = "Jean-François Bachelot" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jeff Brown (tennis)"
       .Replacement.Text = "Jeff Brown" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jerome Golmard"
       .Replacement.Text = "Jérôme Golmard"
       .Execute Replace:=wdReplaceAll

       .Text = "Jim Thomas (tennis)"
       .Replacement.Text = "Jim Thomas"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Jim Thomas (tennis)|"
       .Replacement.Text = "[[Jim Thomas (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Jimmy Wang (tennis)"
       .Replacement.Text = "Jimmy Wang" 
       .Execute Replace:=wdReplaceAll

       .Text = "Wang Yeu-tzuoo"
       .Replacement.Text = "Jimmy Wang" 
       .Execute Replace:=wdReplaceAll

       .Text = "Ji" & ChrW(345) & "í Novák"
       .Replacement.Text = "Ji" & ChrW(345) & "í Novák"
       .Execute Replace:=wdReplaceAll

       .Text = "Jiri Novak"
       .Replacement.Text = "Ji" & ChrW(345) & "í Novák"
       .Execute Replace:=wdReplaceAll

       .Text = "Ji" & ChrW(345) & "í Novák (tennis)"
       .Replacement.Text = "Ji" & ChrW(345) & "í Novák" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jiri Novak (tennis)"
       .Replacement.Text = "Ji" & ChrW(345) & "í Novák" 
       .Execute Replace:=wdReplaceAll

       .Text = "Ji" & ChrW(345) & "í Van" & ChrW(283) & "k (tennis)"
       .Replacement.Text = "Ji" & ChrW(345) & "í Van" & ChrW(283) & "k" 
       .Execute Replace:=wdReplaceAll

       .Text = "Ji" & ChrW(345) & "í Van" & ChrW(283) & "k (tennisser)"
       .Replacement.Text = "Ji" & ChrW(345) & "í Van" & ChrW(283) & "k"
       .Execute Replace:=wdReplaceAll

       .Text = "Johan van Herck"
       .Replacement.Text = "Johan Van Herck"
       .Execute Replace:=wdReplaceAll

       .Text = "John Austin"
       .Replacement.Text = "John Austin"
       .Execute Replace:=wdReplaceAll

       .Text = "John Austin (tennis)"
       .Replacement.Text = "John Austin" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[John Austin (tennis)|"
       .Replacement.Text = "[[John Austin (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "John Cooper"
       .Replacement.Text = "John Cooper"
       .Execute Replace:=wdReplaceAll

       .Text = "John Cooper (tennis)"
       .Replacement.Text = "John Cooper"
       .Execute Replace:=wdReplaceAll

       .Text = "[[John Cooper (tennis)|"
       .Replacement.Text = "[[John Cooper (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "John Fitzgerald"
       .Replacement.Text = "John Fitzgerald"
       .Execute Replace:=wdReplaceAll

       .Text = "John Fitzgerald (tennis)"
       .Replacement.Text = "John Fitzgerald"
       .Execute Replace:=wdReplaceAll

       .Text = "[[John Fitzgerald (tennis)|"
       .Replacement.Text = "[[John Fitzgerald (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "John-Laffnie De Jager"
       .Replacement.Text = "John-Laffnie de Jager" 
       .Execute Replace:=wdReplaceAll

       .Text = "John Lloyd"
       .Replacement.Text = "John Lloyd"
       .Execute Replace:=wdReplaceAll

       .Text = "John Lloyd (tennis)"
       .Replacement.Text = "John Lloyd" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[John Lloyd (tennis)|"
       .Replacement.Text = "[[John Lloyd (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Jonathan Stark (tennis)"
       .Replacement.Text = "Jonathan Stark" 
       .Execute Replace:=wdReplaceAll

       .Text = "Jordan Thompson (tennis)"
       .Replacement.Text = "Jordan Thompson" 
       .Execute Replace:=wdReplaceAll

       .Text = "Juan Martin del Potro"
       .Replacement.Text = "Juan Martín del Potro"
       .Execute Replace:=wdReplaceAll

       .Text = "Juan Monaco"
       .Replacement.Text = "Juan Mónaco"
       .Execute Replace:=wdReplaceAll

       .Text = "Juan Sebastian Cabal"
       .Replacement.Text = "Juan Sebastián Cabal"
       .Execute Replace:=wdReplaceAll

       .Text = "Jurgen Zopp"
       .Replacement.Text = "Jürgen Zopp"
       .Execute Replace:=wdReplaceAll

       .Text = "Karel Nová" & ChrW(269) & "ek (tennisser)"
       .Replacement.Text = "[[Karel Nová" & ChrW(269) & _
           "ek (tennisser)|]]"
       .Execute Replace:=wdReplaceAll

       .Text = "Karel Nová" & ChrW(269) & "ek (tennis)"
       .Replacement.Text = "[[Karel Nová" & ChrW(269) & _
           "ek (tennisser)|]]" 
       .Execute Replace:=wdReplaceAll

       .Text = "Kelly Jones"
       .Replacement.Text = "Kelly Jones"
       .Execute Replace:=wdReplaceAll

       .Text = "Kelly Jones (tennis)"
       .Replacement.Text = "Kelly Jones" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Kelly Jones (tennis)|"
       .Replacement.Text = "[[Kelly Jones (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Kevin Anderson"
       .Replacement.Text = "Kevin Anderson"
       .Execute Replace:=wdReplaceAll

       .Text = "Kevin Anderson (tennis)"
       .Replacement.Text = "Kevin Anderson"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Kevin Anderson (tennis)|"
       .Replacement.Text = "[[Kevin Anderson (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Lars Burgsmuller"
       .Replacement.Text = "Lars Burgsmüller"
       .Execute Replace:=wdReplaceAll

       .Text = "Leos Friedl"
       .Replacement.Text = "Leoš Friedl"
       .Execute Replace:=wdReplaceAll

       .Text = "Lionnel Barthez"
       .Replacement.Text = "Lionel Barthez" 
       .Execute Replace:=wdReplaceAll

       .Text = "Lucas Arnold"
       .Replacement.Text = "Lucas Arnold"
       .Execute Replace:=wdReplaceAll

       .Text = "Marc Lopez"
       .Replacement.Text = "Marc López"
       .Execute Replace:=wdReplaceAll

       .Text = "Marcel Granollers-Pujol"
       .Replacement.Text = "Marcel Granollers"
       .Execute Replace:=wdReplaceAll

       .Text = "Marin Cilic"
       .Replacement.Text = "Marin " & ChrW(268) & "ili" & ChrW(263) & ""
       .Execute Replace:=wdReplaceAll

       .Text = "Mario Ancic"
       .Replacement.Text = "Mario An" & ChrW(269) & "i" & ChrW(263) & ""
       .Execute Replace:=wdReplaceAll

       .Text = "Marius Barnard (tennis)"
       .Replacement.Text = "Marius Barnard"
       .Execute Replace:=wdReplaceAll

       .Text = "Mark Knowles"
       .Replacement.Text = "Mark Knowles"
       .Execute Replace:=wdReplaceAll

       .Text = "Mark Knowles (tennis)"
       .Replacement.Text = "Mark Knowles" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Mark Knowles (tennis)|"
       .Replacement.Text = "[[Mark Knowles (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Martín García"
       .Replacement.Text = "Martín García"
       .Execute Replace:=wdReplaceAll

       .Text = "Martin Garcia"
       .Replacement.Text = "Martín García"
       .Execute Replace:=wdReplaceAll

       .Text = "Martín García (tennis)"
       .Replacement.Text = "Martín García"
       .Execute Replace:=wdReplaceAll

       .Text = "Martin Garcia (tennis)"
       .Replacement.Text = "Martín García"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Martin Garcia (tennis)|"
       .Replacement.Text = "[[Martín García (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Martín Rodríguez (tennis)"
       .Replacement.Text = "Martín Rodríguez"
       .Execute Replace:=wdReplaceAll

       .Text = "Maks Mirnyi"
       .Replacement.Text = "Maks Mirni"
       .Execute Replace:=wdReplaceAll

       .Text = "Max Mirnyi"
       .Replacement.Text = "Maks Mirni"
       .Execute Replace:=wdReplaceAll

       .Text = "Max Mirny"
       .Replacement.Text = "Maks Mirni"
       .Execute Replace:=wdReplaceAll

       .Text = "Michael Hill (tennis)"
       .Replacement.Text = "Michael Hill"
       .Execute Replace:=wdReplaceAll

       .Text = "Michael Russell"
       .Replacement.Text = "Michael Russell"
       .Execute Replace:=wdReplaceAll

       .Text = "Michael Russell (tennis)"
       .Replacement.Text = "Michael Russell"
       .Execute Replace:=wdReplaceAll

       .Text = "[[Michael Russell (tennis)|"
       .Replacement.Text = "[[Michael Russell (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Michael Venus (tennis)"
       .Replacement.Text = "Michael Venus"
       .Execute Replace:=wdReplaceAll

       .Text = "Michal Przysi" & ChrW(281) & ChrW(380) & "ny"
       .Replacement.Text = "Micha" & ChrW(322) & " Przysi" & ChrW(281) & _
           ChrW(380) & "ny"
       .Execute Replace:=wdReplaceAll

       .Text = "Mike Bauer (tennis)"
       .Replacement.Text = "Mike Bauer" 
       .Execute Replace:=wdReplaceAll

       .Text = "Mikhail Kukushkin"
       .Replacement.Text = "Michail Koekoesjkin"
       .Execute Replace:=wdReplaceAll

       .Text = "Mikhail Youzhny"
       .Replacement.Text = "Michail Joezjny"
       .Execute Replace:=wdReplaceAll

       .Text = "Miloslav Me" & ChrW(269) & "í" & ChrW(345) & ", Jr."
       .Replacement.Text = "Miloslav Me" & ChrW(269) & "í" & ChrW(345) & _
           " jr."
       .Execute Replace:=wdReplaceAll

       .Text = "Miloslav Me" & ChrW(269) & "í" & ChrW(345) & " Jr."
       .Replacement.Text = "Miloslav Me" & ChrW(269) & "í" & ChrW(345) & _
           " jr."
       .Execute Replace:=wdReplaceAll

       .Text = "Nebojsa Djordjevic"
       .Replacement.Text = "Nebojša Đorđević" 
       .Execute Replace:=wdReplaceAll

       .Text = "Nenad Zimonjic"
       .Replacement.Text = "Nenad Zimonji" & ChrW(263) &""
       .Execute Replace:=wdReplaceAll

       .Text = "Nicolas Escude"
       .Replacement.Text = "Nicolas Escudé"
       .Execute Replace:=wdReplaceAll

       .Text = "Nikolay Davydenko"
       .Replacement.Text = "Nikolaj Davydenko"
       .Execute Replace:=wdReplaceAll

       .Text = "Novak Djokovic"
       .Replacement.Text = "Novak " & ChrW(272) & "okovi" & ChrW(263)
       .Execute Replace:=wdReplaceAll

       .Text = "Oliver Graydon"
       .Replacement.Text = "Graydon Oliver" 
       .Execute Replace:=wdReplaceAll

       .Text = "Olivier Delaitre"
       .Replacement.Text = "Olivier Delaître"
       .Execute Replace:=wdReplaceAll

       .Text = "scar Ortiz (tennis)"
       .Replacement.Text = "scar Ortiz"
       .Execute Replace:=wdReplaceAll

       .Text = "Oscar Ortiz"
       .Replacement.Text = "Óscar Ortiz" 
       .Execute Replace:=wdReplaceAll

       .Text = "Pablo Andujar"
       .Replacement.Text = "Pablo Andújar"
       .Execute Replace:=wdReplaceAll

       .Text = "Pablo Carreño-Busta"
       .Replacement.Text = "Pablo Carreño Busta"
       .Execute Replace:=wdReplaceAll

       .Text = "Patrick Mcenroe"
       .Replacement.Text = "Patrick McEnroe" 
       .Execute Replace:=wdReplaceAll

       .Text = "Paul Hanley (tennis)"
       .Replacement.Text = "Paul Hanley"
       .Execute Replace:=wdReplaceAll

       .Text = "Pavel Vizner"
       .Replacement.Text = "Pavel Vízner"
       .Execute Replace:=wdReplaceAll

       .Text = "Petr Pala"
       .Replacement.Text = "Petr Pála"
       .Execute Replace:=wdReplaceAll

       .Text = "Pieter Norval"
       .Replacement.Text = "Piet Norval" 
       .Execute Replace:=wdReplaceAll

       .Text = "Radek Stepanek"
       .Replacement.Text = "Radek Št" & ChrW(283) & "pánek"
       .Execute Replace:=wdReplaceAll

       .Text = "Radek Štepánek"
       .Replacement.Text = "Radek Št" & ChrW(283) & "pánek"
       .Execute Replace:=wdReplaceAll

       .Text = "Rafaël Nadal"
       .Replacement.Text = "Rafael Nadal"
       .Execute Replace:=wdReplaceAll

       .Text = "Rainer Schuettler"
       .Replacement.Text = "Rainer Schüttler"
       .Execute Replace:=wdReplaceAll

       .Text = "Robby Koenig"
       .Replacement.Text = "Robbie Koenig" 
       .Execute Replace:=wdReplaceAll

       .Text = "Roberto Bautista-Agut"
       .Replacement.Text = "Roberto Bautista Agut"
       .Execute Replace:=wdReplaceAll

       .Text = "Roger Smith"
       .Replacement.Text = "Roger Smith"
       .Execute Replace:=wdReplaceAll

       .Text = "Roger Smith (tennis)"
       .Replacement.Text = "Roger Smith" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Roger Smith (tennis)|"
       .Replacement.Text = "[[Roger Smith (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Roger Taylor"
       .Replacement.Text = "Roger Taylor"
       .Execute Replace:=wdReplaceAll

       .Text = "Roger Taylor (tennis)"
       .Replacement.Text = "Roger Taylor" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Roger Taylor (tennis)|"
       .Replacement.Text = "[[Roger Taylor (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Ruben Ramirez Hidalgo"
       .Replacement.Text = "Rubén Ramírez Hidalgo"
       .Execute Replace:=wdReplaceAll

       .Text = "Ryan Harrison (tennis)"
       .Replacement.Text = "Ryan Harrison"
       .Execute Replace:=wdReplaceAll

       .Text = "Sam Groth"
       .Replacement.Text = "Samuel Groth" 
       .Execute Replace:=wdReplaceAll

       .Text = "Sam Thompson (tennis)"
       .Replacement.Text = "Sam Thompson" 
       .Execute Replace:=wdReplaceAll

       .Text = "Santiago González (tennis)"
       .Replacement.Text = "Santiago González"
       .Execute Replace:=wdReplaceAll

       .Text = "Schlomo Glickstein"
       .Replacement.Text = "Shlomo Glickstein" 
       .Execute Replace:=wdReplaceAll

       .Text = "Scott Davis"
       .Replacement.Text = "Scott Davis"
       .Execute Replace:=wdReplaceAll

       .Text = "Scott Davis (tennis)"
       .Replacement.Text = "Scott Davis" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Scott Davis (tennis)|"
       .Replacement.Text = "[[Scott Davis (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Sebastien Lareau"
       .Replacement.Text = "Sébastien Lareau"
       .Execute Replace:=wdReplaceAll

       .Text = "Slava Dosedel"
       .Replacement.Text = "Ctislav Dosed" & ChrW(283) & "l"
       .Execute Replace:=wdReplaceAll

       .Text = "Stan Wawrinka"
       .Replacement.Text = "Stanislas Wawrinka"
       .Execute Replace:=wdReplaceAll

       .Text = "Stefan Kruger"
       .Replacement.Text = "Stefan Kruger"
       .Execute Replace:=wdReplaceAll

       .Text = "Stefan Kruger (tennis)"
       .Replacement.Text = "Stefan Kruger" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Stefan Kruger (tennis)|"
       .Replacement.Text = "[[Stefan Kruger (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "Stephane Simian"
       .Replacement.Text = "Stéphane Simian"
       .Execute Replace:=wdReplaceAll

       .Text = "Stephen Huss (tennis)"
       .Replacement.Text = "Stephen Huss"
       .Execute Replace:=wdReplaceAll

       .Text = "Steve Johnson"
       .Replacement.Text = "Steve Johnson"
       .Execute Replace:=wdReplaceAll

       .Text = "Steve Johnson (tennis)"
       .Replacement.Text = "Steve Johnson" 
       .Execute Replace:=wdReplaceAll

       .Text = "[[Steve Johnson (tennis)|"
       .Replacement.Text = "[[Steve Johnson (tennisser)|"
       .Execute Replace:=wdReplaceAll

       .Text = "T. J. Middleton"
       .Replacement.Text = "T.J. Middleton" 
       .Execute Replace:=wdReplaceAll

       .Text = "T.J.Middleton"
       .Replacement.Text = "T.J. Middleton" 
       .Execute Replace:=wdReplaceAll

       .Text = "Teimuraz Gabashvili"
       .Replacement.Text = "Tejmoeraz Gabasjvili"
       .Execute Replace:=wdReplaceAll

       .Text = "Teymuraz Gabashvili"
       .Replacement.Text = "Tejmoeraz Gabasjvili"
       .Execute Replace:=wdReplaceAll

       .Text = "Tim Puetz"
       .Replacement.Text = "Tim Pütz" 
       .Execute Replace:=wdReplaceAll

       .Text = "Tomas Berdych"
       .Replacement.Text = "Tomáš Berdych"
       .Execute Replace:=wdReplaceAll

       .Text = "Tomas Carbonell"
       .Replacement.Text = "Tomás Carbonell"
       .Execute Replace:=wdReplaceAll

       .Text = "Tomas Cibulec"
       .Replacement.Text = "Tomáš Cibulec"
       .Execute Replace:=wdReplaceAll

       .Text = "Travis Parrot"
       .Replacement.Text = "Travis Parrott" 
       .Execute Replace:=wdReplaceAll

       .Text = "Treat Conrad Huey"
       .Replacement.Text = "Treat Huey"
       .Execute Replace:=wdReplaceAll

       .Text = "Victor H" & ChrW(462) & "nescu"
       .Replacement.Text = "Victor H" & ChrW(259) & "nescu"
       .Execute Replace:=wdReplaceAll

       .Text = "Victor Pecci"
       .Replacement.Text = "Victor Pecci"
       .Execute Replace:=wdReplaceAll

       .Text = "Víctor Pecci"
       .Replacement.Text = "Victor Pecci"
       .Execute Replace:=wdReplaceAll

       .Text = "Victor Troicki"
       .Replacement.Text = "Viktor Troicki" 
       .Execute Replace:=wdReplaceAll

       .Text = "Vince Spadea"
       .Replacement.Text = "Vincent Spadea"
       .Execute Replace:=wdReplaceAll

       .Text = "Wayne Arthurs (tennis)"
       .Replacement.Text = "Wayne Arthurs" 
       .Execute Replace:=wdReplaceAll

       .Text = "Yevgeny Kafelnikov"
       .Replacement.Text = "Jevgeni Kafelnikov"
       .Execute Replace:=wdReplaceAll

       .Text = "Zhang Ze (tennis)"
       .Replacement.Text = "Zhang Ze" 
       .Execute Replace:=wdReplaceAll
   End With

   Selection.Find.Text = "{{nowrap|"
   Options.AutoFormatAsYouTypeReplaceQuotes = saveAF

End Sub

AO16 bewerken

Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
1    Novak Đoković 6 6 6  
   Chung Hyeon 3 2 4     1    Novak Đoković 6 6 7  
WC    Quentin Halys 6 64 6 7   WC    Quentin Halys 1 2 63  
   Ivan Dodig 4 7 4 5       1    Novak Đoković 6 7 7  
   Filip Krajinović 2 1 0r       28    Andreas Seppi 1 5 66  
   Denis Kudla 6 6 0        Denis Kudla 5 4 4
   Tejmoeraz Gabasjvili 6 64 4 610   28    Andreas Seppi 7 6 6  
28    Andreas Seppi 3 7 6 7       1    Novak Đoković 6 61 6 4 6
22    Ivo Karlović 64 4 1r       14    Gilles Simon 3 7 4 6 3
   Federico Delbonis 7 6 2        Federico Delbonis 7 3 63 7 6  
   Jiří Veselý 68 6 6 4 4   Q    Renzo Olivo 65 6 7 5 2  
Q    Renzo Olivo 7 2 1 6 6          Federico Delbonis 3 2 1
   Jevgeni Donskoj 6 3 6 6       14    Gilles Simon 6 6 6  
   Iñigo Cervantes 4 6 1 4        Jevgeni Donskoj 3 7 61 6 5
   Vasek Pospisil 7 3 2 4   14    Gilles Simon 6 5 7 4 7  
14    Gilles Simon 64 6 6 6  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
9    Jo-Wilfried Tsonga 6 4 6 6  
   Marcos Baghdatis 4 6 4 2     9    Jo-Wilfried Tsonga 7 6 6  
WC    Omar Jasika 6 3 6 6   WC    Omar Jasika 5 1 4  
   Illja Martsjenko 4 6 0 4       9    Jo-Wilfried Tsonga 6 7 7  
   Pablo Andújar 7 4 65 2       Q    Pierre-Hugues Herbert 4 67 64  
Q    Pierre-Hug. Herbert 5 6 7 6     Q    Pierre-Hug. Herbert 6 6 6
WC    Noah Rubin 7 7 7   WC    Noah Rubin 3 4 0  
17    Benoît Paire 64 66 65       9    Jo-Wilfried Tsonga 4 2 4
26    Guillermo García 6 6 6       7    Kei Nishikori 6 6 6
   Paul-Henri Mathieu 4 4 4     26    Guillermo García 4 6 7 6  
   Víctor Estrella Burgos 4 61 6 2   Q    Daniel Brands 6 1 60 3  
Q    Daniel Brands 6 7 4 6       26    Guillermo García López 5 6 3 4
   Austin Krajicek 6 6 6       7    Kei Nishikori 7 2 6 6  
Q    Wu Di 4 1 3        Austin Krajicek 3 65 3
   Philipp Kohlschreiber 4 3 3   7    Kei Nishikori 6 7 6  
7    Kei Nishikori 6 6 6  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
3    Roger Federer 6 6 6  
   Nikoloz Basilasjvili 2 1 2     3    Roger Federer 6 7 6  
   Ričardas Berankis 1 6 4 2      Alexandr Dolgopolov 3 5 1  
   Alexandr Dolgopolov 6 6 3 6       3    Roger Federer 6 3 6 6  
Q    Jozef Kovalík 4 61 5       27    Grigor Dimitrov 4 6 1 4  
Q    Marco Trungelliti 6 7 7     Q    Marco Trungelliti 3 6 2 5
   Paolo Lorenzi 3 68 3   27    Grigor Dimitrov 6 4 6 7  
27    Grigor Dimitrov 6 7 6       3    Roger Federer 6 6 6
19    Dominic Thiem 6 7 4 7       15    David Goffin 2 1 4
   Leonardo Mayer 2 66 6 60     19    Dominic Thiem 6 6 6  
PR    Julien Benneteau 3 7 3 61      Nicolás Almagro 3 1 3  
   Nicolás Almagro 6 65 6 7       19    Dominic Thiem 1 6 62 5
   Kyle Edmund 6 64 6 3 1       15    David Goffin 6 3 7 7  
   Damir Džumhur 1 7 4 6 6        Damir Džumhur 4 6 4 2
   Serhi Stachovsky 6 3 4 4   15    David Goffin 6 0 6 6  
15    David Goffin 3 6 6 6  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
12    Marin Čilić 64 7 6 6  
   Thiemo de Bakker 7 5 2 4     12    Marin Čilić 6 6 7  
   Albert Ramos 6 6 6      Albert Ramos Viñolas 4 3 64  
   Borna Ćorić 2 2 3       12    Marin Čilić 4 65 5  
   Dušan Lajović 65 4 6 6 0       24    Roberto Bautista 6 7 7  
   Sam Querrey 7 6 4 2 0r        Dušan Lajović 6 2 6 2 1
   Martin Kližan 2 3 6 6 2   24    Roberto Bautista 4 6 4 6 6  
24    Roberto Bautista 6 6 4 2 6       24    Roberto Bautista Agut 6 4 3 6 3
29    Nick Kyrgios 6 7 6       6    Tomáš Berdych 4 6 6 1 6
   Pablo Carreño Busta 2 5 2     29    Nick Kyrgios 6 7 7  
WC    Yoshihito Nishioka 65 1 4      Pablo Cuevas 4 5 62  
   Pablo Cuevas 7 6 6       29    Nick Kyrgios 3 4 6 4
   Robin Haase 63 4 4       6    Tomáš Berdych 6 6 1 6  
Q    Mirza Bašić 7 6 6     Q    Mirza Bašić 4 0 3
   Yuki Bhambri 5 1 2   6    Tomáš Berdych 6 6 6  
6    Tomáš Berdych 7 6 6  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
5    Rafael Nadal 66 6 6 64 2  
   Fernando Verdasco 7 4 3 7 6        Fernando Verdasco 6 3 3 64  
   Benjamin Becker 1 3 6 2      Dudi Sela 4 6 6 7  
   Dudi Sela 6 6 2 6          Dudi Sela 5 6 1 64  
Q    Ryan Harrison 5 4 4          Andrej Koeznetsov 7 3 6 7  
   Andrej Koeznetsov 7 6 6        Andrej Koeznetsov 6 7 7
   Ernests Gulbis 5 6 7 3 11   30    Jérémy Chardy 4 65 65  
30    Jérémy Chardy 7 2 65 6 13          Andrej Koeznetsov 5 6 3 64
23    Gaël Monfils 6 6 6       23    Gaël Monfils 7 3 6 7
Q    Yuichi Sugita 1 3 2     23    Gaël Monfils 7 6 6  
   Marco Cecchinato 6 2 2 2      Nicolas Mahut 5 4 1  
   Nicolas Mahut 4 6 6 6       23    Gaël Monfils 7 6 6
Q    Stéphane Robert 6 6 6       Q    Stéphane Robert 5 3 2  
LL    Bjorn Fratangelo 2 2 2     Q    Stéphane Robert 6 66 4 7 7
   Rajeev Ram 7 64 6 3      Rajeev Ram 1 7 6 5 5  
11    Kevin Anderson 64 7 3 0r  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
13    Milos Raonic 6 6 6  
   Lucas Pouille 1 4 4     13    Milos Raonic 7 7 7  
   Malek Jaziri 5 6 6 67 6      Tommy Robredo 66 65 5  
   Tommy Robredo 7 3 4 7 8       13    Milos Raonic 6 6 6  
   Daniel Gimeno Traver 1 6 3 2       21    Viktor Troicki 2 3 4  
Q    Tim Smyczek 6 3 6 6     Q    Tim Smyczek 4 65 64
   Daniel Muñoz 6 6 1 64 3   21    Viktor Troicki 6 7 7  
21    Viktor Troicki 4 4 6 7 6       13    Milos Raonic 6 6 5 4 6
25    Jack Sock 6 3 0 6 6       4    Stanislas Wawrinka 4 3 7 6 3
Q    Taylor Harry Fritz 4 6 6 3 4     25    Jack Sock 66 65 3  
   Taro Daniel 62 5 7 7 1      Lukáš Rosol 7 7 6  
   Lukáš Rosol 7 7 5 65 6          Lukáš Rosol 2 3 63
Q    Tatsuma Ito 4 3 7 2       4    Stanislas Wawrinka 6 6 7  
Q    Radek Štěpánek 6 6 65 6     Q    Radek Štěpánek 2 3 4
PR    Dmitri Toersoenov 62 3 0r   4    Stanislas Wawrinka 6 6 6  
4    Stanislas Wawrinka 7 6 0  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
8    David Ferrer 6 6 6  
Q    Peter Gojowczyk 4 4 2     8    David Ferrer 6 6 6  
WC    James Duckworth 65 2 4   WC    Lleyton Hewitt 2 4 4  
WC    Lleyton Hewitt 7 6 6       8    David Ferrer 6 6 6  
   Thomaz Bellucci 6 6 6       31    Steve Johnson 1 4 4  
WC    Jordan Thompson 2 3 2        Thomaz Bellucci 3 2 2
   Aljaž Bedene 3 4 63   31    Steve Johnson 6 6 6  
31    Steve Johnson 6 6 7       8    David Ferrer 6 6 6
18    Feliciano López 6 6 6       10    John Isner 4 4 5
Q    Daniel Evans 1 0 4     18    Feliciano López 7 64 7 68 6  
   Steve Darcis 6 6 3 5 1      Guido Pella 62 7 63 7 4  
   Guido Pella 2 3 6 7 6       18    Feliciano López 7 65 2 4
WC    Matthew Ebden 2 6 1 4       10    John Isner 68 7 6 6  
   Marcel Granollers 6 4 6 6        Marcel Granollers 3 66 62
   Jerzy Janowicz 3 67 3   10    John Isner 6 7 7  
10    John Isner 6 7 6  
Eerste ronde   Tweede ronde   Derde ronde   Vierde ronde
16    Bernard Tomic 64 6 6 6  
   Denis Istomin 7 4 4 4     16    Bernard Tomic 6 6 65 7  
   Simone Bolelli 7 7 62 7      Simone Bolelli 4 2 7 5  
PR    Brian Baker 66 63 7 65       16    Bernard Tomic 6 7 6  
   John Millman 3 5 7 5          John Millman 4 64 2  
   Diego Schwartzman 6 7 62 0r        John Millman 4 6 6 4 7
   Gilles Müller 7 7 65 7      Gilles Müller 6 4 2 6 5  
20    Fabio Fognini 66 67 7 61       16    Bernard Tomic 4 4 64
32    João Sousa 6 6 6       2    Andy Murray 6 6 7
   Michail Koekoesjkin 3 4 3     32    João Sousa 6 7 3 6  
   Santiago Giraldo 6 1 6 6      Santiago Giraldo 3 5 6 1  
   Donald Young 4 6 3 2       32    João Sousa 2 6 2 2
   Adrian Mannarino 66 4 6 3       2    Andy Murray 6 3 6 6  
   Samuel Groth 7 6 3 6        Samuel Groth 0 4 1
   Alexander Zverev 1 2 3   2    Andy Murray 6 6 6  
2    Andy Murray 6 6 6  
Overgenomen van "https://nl.wikipedia.org/w/index.php?title=Gebruiker:Chavâl/Tennissers_(m)&oldid=64407633"