Last week's newsletter explained how to make your own typographical fractions in Microsoft Word. You can read about the technique here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1709983687<\/p>\n
But if your document is full of plain-text fractions, like these--<\/p>\n
1\/3 2\/3 5\/8<\/p>\n
--why not let a macro do the work? I owe my thanks to Wordmeister Steve Hudson for the idea. Steve would probably take a more elegant approach, but this macro will definitely work. Enjoy! If you don't know how to use macros like this one, you can learn how here.<\/a><\/p>\n And now, the macro:<\/p>\n <\/span><\/p>\n What's basically going on here is that Word uses a wildcard search to find all numbers that have a slash between them:<\/p>\n Find What: ([0-9]@)\/([0-9]@)<\/p>\n Then it replaces those numbers with *themselves* surrounded by arbitrary codes denoting superscript (|sp|) and subscript (|sb|). It also replaces the slashes with the fraction bar character, Unicode number 8260:<\/p>\n Replace With: \"|sp|1|sp|\" + ChrW(8260) + \"|sb|2|sb|\"<\/p>\n (If you were doing this by hand, you could insert the fraction bar into your document using Insert > Symbol [as explained in last week's newsletter], then copying it, and then pasting it into the Replace dialog's \"Replace With\" box. The result would look something like this: |sp|1|sp|\/|sb|2|sb|)<\/p>\n Finally, the macro uses parentheses to group the numbers so that after they and their surrounding codes are found, the numbers can be replaced by *themselves,* properly formatted and without the codes, using the \"Find What Expression\" wildcard:<\/p>\n Find What: |sp|([0-9]@)|sp|<\/p>\n Replace With: 1 [formatted as superscript]<\/p>\n Find What: |sb|([0-9]@)|sb|<\/p>\n Replace With: 1 [formatted as subscript]<\/p>\n You can learn more about wildcard searches here:<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1705963026<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1706069286<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1706167662<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1706267069<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1706365638<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1706458823<\/p>\n<\/p>\n _________________________________________<\/p>\n READERS WRITE<\/p>\n Gentle reader, I've run into a fairly serious problem that I'm hoping you may have some ideas about. The problem is that QuarkXPress doesn't import Unicode characters--the old 256 are all it will deal with. Several people have asked me if there's a way to find and replace Unicode characters in Word with other lower-level characters that Quark could deal with. For example, if you type a, b, c in Quark and then format it with a Greek font, you get alpha, beta, gamma. Maybe a similar approach could be taken with Unicode characters, if you could figure out what to replace them with in Word (and actually do the replacing) before importing the Word document into Quark. I don't know--this looks like an almost insurmountable problem to me. If you are successfully importing Unicode characters into QuarkXPress, especially using XPress Tag files, I'd love to hear from you. Please write to me here: mailto:editor [at symbol] editorium.com<\/p>\n Sage Rountree (srountree@dukeupress.edu) wrote:<\/p>\n \"When we insert notes to compositor and authors in electronic manuscript files, we want those inserts to be bold and in either angle brackets (for coding and notes to compositor) or curly brackets (for queries to authors). Sometimes, our freelance copyeditors neglect to toggle on the bold for these queries, and we go through and manually convert them to boldface. (By manually, I mean we search for the opening bracket, highlight, and toggle--a big waste of time.)<\/p>\n'THE MACRO STARTS HERE\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nWith Selection.Find\n.Text = \"([0-9]@)\/([0-9]@)\"\n.Replacement.Text = \"|sp|1|sp|\" + ChrW(8260) + \"|sb|2|sb|\"\n.Forward = True\n.Wrap = wdFindContinue\n.Format = False\n.MatchCase = False\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = True\nEnd With\nSelection.Find.Execute Replace:=wdReplaceAll\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nWith Selection.Find.Replacement.Font\n.Superscript = True\n.Subscript = False\nEnd With\nWith Selection.Find\n.Text = \"|sp|([0-9]@)|sp|\"\n.Replacement.Text = \"1\"\n.Forward = True\n.Wrap = wdFindContinue\n.Format = True\n.MatchCase = False\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = True\nEnd With\nSelection.Find.Execute Replace:=wdReplaceAll\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nWith Selection.Find.Replacement.Font\n.Superscript = False\n.Subscript = True\nEnd With\nWith Selection.Find\n.Text = \"|sb|([0-9]@)|sb|\"\n.Replacement.Text = \"1\"\n.Forward = True\n.Wrap = wdFindContinue\n.Format = True\n.MatchCase = False\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = True\nEnd With\nSelection.Find.Execute Replace:=wdReplaceAll\n'THE MACRO ENDS HERE\n<\/pre>\n