User:Cthaeh

I guess I'll create this page so the link to my name isn't red anymore...

I'm really thankful for the work the translators (and editors) have done so that I am able to read these light novels; so I figured the best way to show my appreciation would be to do edits. I'm currently slowly reading and editing Toaru Majustu no Index to convert the older chapters to the past tense. I plan to do a consistency edit through all of the Index volumes once I've finished reading the main series and the extra stories. I also try to help out a little with some of the other new and ongoing translations.

Italics Macro

Converting Microsoft Word text formatted as italics into the wiki format came up in a discussion. So I copied a visual basic macro from the internet and modified it to add the two single quotes around text that is italicized in Microsoft Word. Just go to Tools -> Macros -> Create New Macro, then paste the following code into visual basic window that pops up, and then save. Go back to Word, open macros again, and hit run on the new macro.

(Nov 25, 2012) Updated macro to better deal with italics that go to the end of a line (previously would put the closing single quotes on the next line), or italics that contain blank lines. Hopefully there aren't any other edge cases / bugs I'm missing.

Sub convert_italics()

Dim oRange As Range

With Selection
.HomeKey (wdStory)
.Find.ClearFormatting
End With
With Selection.Find
.Text = ""
.Font.Italic = True
.Forward = True
.Wrap = wdFindStop
Do While .Execute
Set oRange = Selection.Range
With oRange
'remove the italic
.Font.Italic = False

If Len(.Text) > 1 Then
If Right(.Text, 1) = vbCr Then
.Text = "''" & Left(.Text, Len(.Text) - 1) & "''" & Right(.Text, 1)
Else
.Text = "''" & .Text & "''"
End If
Else
.Text = .Text & ""
End If

End With
Loop
End With

Set oRange = Nothing
Selection.Find.ClearFormatting
Selection.HomeKey (wdStory)
MsgBox "Finished."

End Sub