1
Abra Microsoft Word.
2 Haga clic en " Herramientas ", "Macro " y luego haga clic en " Visual Basic " . Ahora se encuentra en el editor de VB .
3
clic en "Insertar ", "Módulo " . Ahora se encuentra en un módulo de código de programación
4
Escriba o copie y pegue los siguientes procedimientos Sub en el módulo de código : .
Public Function BinaryToDecimal (Binary As String ) As Long
Dim n As Long
s As Integer
Para s = 1 To Len (Binary )
n = n + ( Mid ( Binary , Len (Binary ) - s + 1 , 1 ) * ( 2 ^ _
( s - 1 ) ))
Siguiente s
BinaryToDecimal = n
< p > End Function