::
|
|
|
: 29.12.2011 : 333
|
: 12, 2013 18:45 pm : . |
|
|
Horrible bosses.2011.BDRip-AVC_track5_rus.srt, . m , u . , , . - , ? , , ? ? ? ? , Cargo , , . |
|
|
|
|
|
Karsh
: 17.03.2012 : 325 :
|
: 12, 2013 22:52 pm |
|
|
, , , , .
? |
|
|
|
|
|
: 29.12.2011 : 333
|
|
|
|
Karsh
: 17.03.2012 : 325 :
|
: 13, 2013 1:00 am |
|
|
. , . , , , .
. , , "" "" "" ""
P.S. , ) |
|
|
|
|
|
: 29.12.2011 : 333
|
: 13, 2013 23:02 pm |
|
|
Karsh
, ? ? |
|
|
|
|
|
: 11.04.2012 : 120
|
|
|
|
kiros
: 30.09.2008 : 1093 :
|
: 14, 2013 6:49 am |
|
|
Word'.
: |
Sub changeLatToRus()
'
Dim i As Integer
Dim sLat As Variant
Dim sRus As Variant
Dim rDoc As Range
Set rDoc = ActiveDocument.Range
'
sLat = Array("e", "y", "u", "o", "p", "a", "k", "x", "c", _
"E", "T", "O", "P", "A", "H", "K", "X", "C", "B", "M")
sRus = Array("", "", "", "", "", "", "", "", "", _
"", "", "", "", "", "", "", "", "", "", "")
Application.ScreenUpdating = False '
With rDoc.Find
'
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = False
.Format = True
.MatchCase = True
For i = LBound(sLat) To UBound(sRus)
.Text = sLat(i)
.Replacement.Text = sRus(i)
.Execute Replace:=wdReplaceAll
Next i
End With
Application.ScreenUpdating = True '
End Sub |
|
|
|
|
|
|
: 29.12.2011 : 333
|
: 14, 2013 23:33 pm |
|
|
. , , .
. idx+sub. (. ). |
|
|
|
|
|
: 11.04.2012 : 120
|
: 15, 2013 11:23 am |
|
|
FineReader . |
|
|
|
|
|
: 29.12.2011 : 333
|
: 15, 2013 21:44 pm |
|
|
, . |
|
|
|
|
|
| |