Home |
Search |
Today's Posts |
#10
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
"Transpose" macro Hebrew / right-to-left text
http://www.gmayor.com/installing_macro.htm
-- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Peter T. Daniels wrote: Wow -- I don't think anyone's bothered to fix the _case_ where it's involved in a transposition before! And Ctrl-T is the Hanging Indent shortcut -- which I always do with either the Ruler or the Paragraph Format tool, since anything automatic would have to be adjusted anyway,so it will have its own perfectly intuitive command! Thanks! Now to relocate the install-macro instructions ... On Oct 11, 2:02 am, "Graham Mayor" wrote:. As for transposing two selected characters, that macro would work, but I suspect the following refinement might suit the task better Sub Transpose() Dim sText As String sText = Selection.Range.Text If Len(sText) 2 Then MsgBox "You must select 2 characters!", _ vbCritical, "Transpose Characters" Exit Sub End If If Selection.Range.Characters(1).Case = 1 _ And Selection.Range.Characters(2).Case = 0 Then Selection.TypeText UCase(Mid(sText, 2, 1)) & _ LCase(Mid(sText, 1, 1)) Else Selection.TypeText Mid(sText, 2, 1) & _ Mid(sText, 1, 1) End If End Sub -- Graham Mayor - Word MVP My web sitewww.gmayor.com Word MVP web sitehttp://word.mvps.org |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Right-to-left (Hebrew) tables in English Word? | Tables | |||
Right-to-left (Hebrew) tables in English Word? | Page Layout | |||
Typing Hebrew in Word 2000 from Right to Left | Microsoft Word Help | |||
Typing Hebrew from right to left in Word 2000 | Microsoft Word Help | |||
Word 2000: need to expand the header to the left; left text margi. | Page Layout |