De controle op ontbrekende aanhalingstekens

David is een schrijver en hij maakt gebruik van Word spelling, stijl en grammatica checkers veel. Soms vindt hij dat Woord de suggesties, voor het corrigeren van de grammatica, zijn slecht en hij heeft geleerd om ze te negeren. Een ding dat hij moeite heeft met het gebruik van aanhalingstekens om de dialoog. Word niet herkennen als David heeft opgehouden een aanhalingsteken aan het einde of begin van een zin. Hij herinnert zich met behulp van een tekstverwerkingsprogramma jaar geleden dat groene aanhalingstekens links op uw document naar een vermiste aanhalingsteken te geven. Hij vraagt ​​zich af of Word kan worden gemaakt om ontbrekende aanhalingstekens herkennen.

Er is geen manier om dit te doen native binnen Word. De reden waarschijnlijk komt neer op het feit dat het bijna onmogelijk is om te bepalen waar een offerte moet beginnen en eindigen. Bijvoorbeeld, als u een paragraaf die vier zinnen bevat en u een aanhalingsteken te plaatsen ergens binnen die paragraaf, hoe wordt Word om te bepalen of dat merk duidt het begin of einde van een offerte? Als het is het begin, hoe zou Woord weten of het einde merk moet worden aan het einde van de zin, het einde van de tweede zin, of het einde van de paragraaf? (Het zelfde raadsel treedt op als de offerte is het einde citaat, maar de plaatsing verbijstering strekt zich uit tot de plaats links van de rechter.)

Combineer dit mogelijke verwarring met het feit dat het sluiten aanhalingsteken niet eens zou kunnen worden in de huidige paragraaf-het zou kunnen zijn aan het einde van een later paragraaf wanneer het dialoogvenster daadwerkelijk wordt gemarkeerd eindigt.

Je zou echter het ontwikkelen van een macro dat ten minste enkele elementaire controle zou doen voor u. De volgende macro springt naar het begin van het document en zoekt naar de eerste aanhalingsteken. Het onderzoekt vervolgens alles van dat karakter aan het einde van de paragraaf. Als u gebruik maakt van niet-smart quotes, controleert het eigenlijk om te zien of er een even aantal aanhalingstekens. Als u met behulp van slimme aanhalingstekens, dan wordt gecontroleerd om te zien of er een einde citaat voor elk beginnend offerte. Als een van beide voorwaarde vals blijkt te zijn, dan is de tekst is gemarkeerd.

Sub MarkUnevenQuotes ()
Dim sRaw als Koord
Dim iNorm As Integer
Dim iSmart As Integer
Dim J As Long

Selection.HomeKey Unit: = wdStory
Application.ScreenUpdating = False
Selection.Find.ClearFormatting
Met Selection.Find
.Text = "" ""
.Replacement.Text = ""
.forward = True
.Wrap = WdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute

Terwijl Selection.Find.Found
Selection.MoveDown Unit: = wdParagraph, Count: = 1, Extend: = wdExtend
Selection.MoveLeft Unit: = wdCharacter, Count: = 1, Extend: = wdExtend
sRaw = Selection.Text
iNorm = 0
iSmart = 0
Voor J = 1 To Len (sRaw)
Als Mid (sRaw, J, 1) = Chr (34) Dan
Als iNorm> 0 Then
iNorm = iNorm - 1
Anders
iNorm = iNorm + 1
End If
End If
Als Mid (sRaw, J, 1) = Chr (147) Dan
iSmart = iSmart + 1
End If
Als Mid (sRaw, J, 1) = Chr (148) Dan
iSmart = iSmart - 1
End If
Volgende J
Als iNorm> 0 Of iSmart> 0 Then
Selection.Range.HighlightColorIndex = wdYellow
End If
Selection.Collapse Richting: = wdCollapseEnd
Selection.Find.Execute
Zich begeven
Selection.HomeKey Unit: = wdStory
Application.ScreenUpdating = True
End Sub

Wanneer de macro wordt uitgevoerd, wat je uiteindelijk met een bos van tekst selecties gemarkeerd als ze moeten visueel worden gecontroleerd. De macro zal echter vinden eindigend citaten die buiten de paragraaf waarin de eerste notering plaatsvindt.

WordTips is uw bron voor kosteneffectieve Microsoft Word training. (Microsoft Word is de meest populaire tekstverwerker in de wereld.) Deze tip (13.293) is van toepassing op Microsoft Word 2007, 2010 en 2013.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com