Attribute VB_Name = "bblimport"

' This macro converts an IEEE-style BBL-file to Word format.
' User instructions :
'   Start WORD and open the file (e.g. publicat.bbl).
'   Run this macro.
'   Check for remaining backslashes (\).
'   If necessary, manually make the last changes.
'   Copy the result to your document.
'
' The macro will automatically remove double spaces, double paragraph
' marks, convert ~'s to non-break spaces, \'e to é, \"u to ü, `` and '' ' to the corresponding smart quotes, etc. It will also reconstruct
' subscripts and superscripts.
' There is no guarantee at all that this macro will not make any
' mistakes in certain circumstances. In fact, I guarantee that it WILL.
' Many LaTeX commands (e.g. \infty) are not converted automatically by
' this macro and should be manually converted by the user afterwards.
' Feel free to modify this macro according to you own needs.
'
' Herbert De Smet, 25 Januari 95
' Adapted for Office 97 during Februari 1999
' Adapted for Office 2000 in February 2003
'
Public Sub MAIN()
Attribute MAIN.VB_Description = "Converts BBL list to Word formatted list"
Attribute MAIN.VB_ProcData.VB_Invoke_Func = "Normal.bblimport.MAIN"
WordBasic.ScreenUpdating (0)
WordBasic.StartOfDocument
WordBasic.EndOfLine 1
WordBasic.WW6_EditClear
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="^p", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\\bibitem\{*\}", Replace:="^p0. ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.WW6_EditClear
WordBasic.EditReplace Find:="\\begin\{*\}", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\\end\{*\}", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="~", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="``", Replace:=Chr(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="''", Replace:=Chr(34), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="--", Replace:="-", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\newblock", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\times", Replace:="×", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\'e", Replace:="é", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\`e", Replace:="è", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\" + Chr(34) + "u", Replace:="ü", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\&", Replace:="&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\%", Replace:="%", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplaceFont Italic:=1
WordBasic.EditReplace Find:="\{\\em *\}", Replace:="^&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=1, Wrap:=1
WordBasic.EditReplaceClearFormatting
WordBasic.EditReplaceFont Superscript:=1
WordBasic.EditReplace Find:="$^^*$", Replace:="^&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=1, Wrap:=1
WordBasic.EditReplaceClearFormatting
WordBasic.EditReplaceFont Subscript:=1
WordBasic.EditReplace Find:="$_*$", Replace:="^&", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=1, Wrap:=1
WordBasic.EditReplaceClearFormatting
WordBasic.EditReplace Find:="{", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="}", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="$_", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="$^", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="[!\\]$", Replace:="^&_", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="$_", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="\$", Replace:="$", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" \em", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EndOfDocument 1
WordBasic.FormatNumber Before:="[", Type:=0, After:="]", StartAt:="1", Alignment:=0, Indent:="1.0 cm", Space:="0 cm", Hang:=1
WordBasic.FormatParagraph After:="6 pt", Tab:="0"
End Sub