Attribute VB_Name = "NewMacros"
Sub PasteUnformatted()
Attribute PasteUnformatted.VB_Description = "Macro recorded 10/16/2003 by  "
Attribute PasteUnformatted.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.PasteUnformatted"
'
' PasteUnformatted Macro
' Macro recorded 10/16/2003 by
'
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
        wdInLine, DisplayAsIcon:=False
End Sub
Sub selection_replace(x, y)
    Selection.Find.Text = x
    Selection.Find.Replacement.Text = y
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub



Sub Cirilica_u_Srbobran()
Attribute Cirilica_u_Srbobran.VB_Description = "Macro recorded 2/23/2004 by  "
Attribute Cirilica_u_Srbobran.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1"
'
' Macro1 Macro
' Macro recorded 2/23/2004 by
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    selection_replace ChrW(1064), "S("
    selection_replace ChrW(1096), "s("
    selection_replace ChrW(1026), "D("
    selection_replace ChrW(1106), "d("
    selection_replace ChrW(1046), "Z("
    selection_replace ChrW(1078), "z("
    selection_replace ChrW(1063), "C("
    selection_replace ChrW(1095), "C("
    selection_replace ChrW(1035), "C{"
    selection_replace ChrW(1115), "c{"
    selection_replace ChrW(1033), "L("
    selection_replace ChrW(1113), "l("
    selection_replace ChrW(1034), "N("
    selection_replace ChrW(1114), "n("
    
    Application.Run MacroName:="CirToLat"
    
End Sub