Re: [Tyndale STEP - Translations] Re: [Tyndale STEP - Translations] Macro for hid...

Hi

 

I thought I'd followed your instructions, but obviously have done something wrong somewhere, cos it keeps sending error messages when I try to use the macro

 

Kate 

2009/10/26 Tyndale STEP Project <TyndaleSTEP@gmail.com>

Hi, David

 

You say to install the macro "click on the attachment", but I don't have an attachment

 

Kate

2009/10/23 Tyndale STEP Project <TyndaleSTEP@gmail.com>

Selection.Copy
Selection.MoveRight Unit:=wdCharacter, Count:=1
With Selection.Font
.Hidden = True
.ColorIndex = wdBlue
End With
Selection.TypeText Text:="<"
Selection.TypeParagraph
With Selection.Font
.Hidden = True
.SmallCaps = True
.AllCaps = False
.ColorIndex = wdBlue
End With
Selection.TypeText Text:="esv"
With Selection.Font
.Hidden = True
.SmallCaps = False
.AllCaps = False
.ColorIndex = wdBlue
End With
Selection.TypeText Text:=": (Hebrew) "
With Selection.Font
.Bold = True
.Hidden = True
.ColorIndex = wdBlue
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
.Hidden = True
.ColorIndex = wdBlue
End With
Selection.TypeText Text:=" "
Selection.TypeParagraph

Selection.TypeText Text:="|ie: "
With Selection.Font
.Bold = True
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
End With
Selection.TypeText Text:=" "
Selection.TypeParagraph

Selection.TypeText Text:="|or: "
With Selection.Font
.Bold = True
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
End With
Selection.TypeText Text:=" "
Selection.TypeParagraph

Selection.TypeText Text:="|lit: "
With Selection.Font
.Bold = True
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
End With
Selection.TypeText Text:=" "
Selection.TypeParagraph

Selection.TypeText Text:="|poss: "
With Selection.Font
.Bold = True
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
End With
Selection.TypeText Text:=" ( ) "
Selection.TypeParagraph

Selection.TypeText Text:="|prob: "
With Selection.Font
.Bold = True
End With
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
With Selection.Font
.Bold = False
End With
Selection.TypeText Text:=" ( ) "
Selection.TypeParagraph

Selection.TypeText Text:=">"
Dear Galen  & Kate

To use the macro, you just highlight a word and click on Ctrl-q (ie q for quick)
It does all the work for you.

The instructions look daunting, but just step through one at a time - it should work easily.
If you get stuck, just tell me.


To install this macro:

* open the attachment
* click on menu "Edit", then "Select all"
* click on menu "Edit", then "Copy"
* open Word
* click on menu "Tools", "Macro", "Macros"
* in "Macro name:" type "ESV" and click on "Create"
* click on menu "Edit" then "Paste"
* click on menu "File" then "Close"

To make the macro work with a keystroke:

* open Word
* click on menu "Tools", "Customize"
* click on "Keyboard"
* put the cursor in "Press new shortcut key" and press Ctrl-q
* in "Categories" click on "Macros" (near the end of the list)
* in "Macros", click on "ESV"
* click on "Assign" then "Close" and "close"

That's it.
Now highlight a word and click Ctrl-q

David IB

--
Posted By Tyndale STEP Project to Tyndale STEP - Translations on 10/23/2009 03:11:00 PM

--
Posted By Tyndale STEP Project to Tyndale STEP - Translations on 10/26/2009 05:25:00 AM