Gebruiker:Chavâl/Tennissers (m)

Uit Wikipedia, de vrije encyclopedie

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 | brontekst bewerken]

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