Ok if you dont know what a macro is - read no futher - if you do you will know what to do with it
Put cursor on the Start of the Header line you wish to tag as a headword
----SCRIPT--BEGIN----
Sub AddHeadword()'' AddHeadword Macro'' Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Copy Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeText Text:="[[@Headword:" Selection.PasteAndFormat (wdPasteDefault) Selection.MoveUp Unit:=wdLine, Count:=1 Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.EndKey Unit:=wdLine Selection.TypeText Text:="]]" Selection.ClearFormatting WordBasic.ClearAllFormatting Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLineEnd Sub
----SCRIPT--END----
-- the only Caveat is it creates a headword for the whole line, but for concordances/dictionaries this is to be expected.. ..and sometimes adds a space between @Headword: and the milestone text, but that is easy removed by a global search and replace for "Headword: ' remember to add space after the colon
If you know what a macro is you will know what to do with it :P
If you can inprove it please do - they are not my strong point
Never Deprive Anyone of Hope.. It Might Be ALL They Have