On your toes

You know how it is when there are no line breaks in long Japanese claims. Here’s a macro that adds gray highlighting at the end of each likely element (と、). It will save you some eye strain.

 

Sub gray_to()
Selection.Find.ClearFormatting
With Selection.Find
.Text = “と、”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute
Selection.Range.HighlightColorIndex = wdGray25
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s