Trucos Office:
Dato curioso en Word:
Pon en un documento nuevo de Word:
=rand(1,1)
Después presiona enter y obtendrás un dato que muy posiblemente no conocías.
Copiar dibujos sin utilizar copiar y pegar en una hoja de word:
Para copiar dibujos o imágenes de forma rápida sin utilizar los comandos copiar y pegar en la hoja de word...sólo debes seleccionar la imagen y luego apretar ctrl y arrastrar el dibujo donde quieras hacer una copia. (la flecha aparecerá con un signo al ladito).
Validar datos con Excel:
Se puede validar la captura de datos en excel, tanto como de Texto, numeros , etc., dentro de esto se puede validar la longitud minima/maxima o valor en caso de ser numerico, ademas permite el despliegue de datos de una lista (por celda(s)
ir a Datos
Validacion
y ahi validas que celda(s) (previa seleccion), el tipo de dato, su longitud o valores minimos o maximos, y si es una lista se define ahi el Rango Fuente para que asi se despliegue, se puede o no mostrar un mensaje de error si asi lo deseas en verdad es muy interesante esto, si deseas el codigo para realizar esta tarea de manera "automatica" escribeme a espada-94@hotmail.com
Inserta automáticamente el mismo dibujo en todas las páginas de Word:
Si deseas, por diseño o requisito, que aparezca una misma imagen en todas las páginas que vayas creando en un documento de Word y quieres evitarte el estar acomodando todo y no quede igual, he aquí un buen truco para hacerlo fácilmente
1.- En tu documento de Word agrega un cuadro de texto en la posición donde deseas insertar el dibujo o la imagen.
2.- Inserta la imagen que desees en él.
3.- En la barra de dibujo haz clic en el botón: Dibujo.
4.- Escoge el menú de: Ordenar.
5.- Haz clic en la opción: Detrás del texto.
6.- Selecciona el dibujo y dirígete al menú: Insertar.
7.- Elige Autotexto en el submenú: Autotexto.
8.- Escribe un nombre corto, ejemplo: "zxc".
9.- Da clic en el botón: Agregar.
10.- Cuando termines de escribir en esa página y pases a la siguiente solo teclea el texto agregado (en el ejemplo "zxc") y pulsa la tecla: F3.
Cada vez que repitas esta operación en una nueva página se añadirá el dibujo con las propiedades que le has asignado.
Active x no puede crear el objeto:
Solucionar el error de Access "active x no puede crear el objeto", al importar por ejemplo Hojas de calculo
Esto es debido a que el archivo DAO360.dll no esta correctamente registrado. Para ello hacemos Click sobre él y vamos a "abrir con", a continuación vamos a examinar y lo abrimos con Regsvr32.exe, que esta en WindowsSystem32. Finalmente aceptamos y ya queda registrado y solucionado el problema.
Rafael Ramos. Tineo.Asturias
Aumentar o Disminuir tamaño de letra de forma rápida:
Selecciona el texto que deseas aumentar o disminuir el tamaño de la letra. Luego realiza las combinaciones:
ctrl shift '>' para aumentar el tamaño de la letra
ctrl '<' para disminuir el tamaño de la letra.
NOTA: shit = mayúsculas... que no es lo mismo que el 'bloq. mayus'.
Convertir numeros a letras:
Esta función convierte números a letras en Excel
Para cualquier duda, escriban a hernandezhdza@hotmail.com'Funciones para convertir de números a letras
'Llamada : Letras(Número)
Function Unidades(num, UNO)
Dim U
Dim Cad
U = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE")
Cad = ""
If num = 1 Then
If UNO = 1 Then
Cad = Cad & "UNO"
Else
Cad = Cad & "UN"
End If
Else
Cad = Cad & U(num - 1)
End If
Unidades = Cad
End Function
Function Decenas(num1, res)
Dim D1
D1 = Array("ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", _
"DIECIOCHO", "DIECINUEVE")
D2 = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", _
"SETENTA", "OCHENTA", "NOVENTA")
If num1 > 10 And num1 2 Then
If res > 0 Then
Cad1 = Cad1 & " Y "
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
Else
If res = 0 Then
Cad1 = Cad1 & "E"
Else
Cad1 = Cad1 & "I"
Cad1 = Cad1 & Unidades(num1 Mod 10, 0)
End If
End If
End If
Decenas = Cad1
End Function
Function Cientos(num2)
num3 = num2 100
Select Case num3
Case 1
If num2 = 100 Then
cad2 = "CIEN "
Else
cad2 = "CIENTO "
End If
Case 5
cad2 = "QUINIENTOS "
Case 7
cad2 = "SETECIENTOS "
Case 9
cad2 = "NOVECIENTOS "
Case Else
cad2 = Unidades(num3, 0) & "CIENTOS "
End Select
num2 = num2 Mod 100
If num2 > 0 Then
If num2 = 100) Then
cad3 = Cientos(num4)
Else
If (num4 >= 10) Then
cad3 = Decenas(num4, num4 Mod 10)
Else
cad3 = Unidades(num4, 0)
End If
End If
cad3 = cad3 & " MIL "
Miles = cad3
End Function
Function Millones(cant)
If cant = 1 Then
ter = " "
Else
ter = "ES "
End If
If (cant >= 1000) Then
cantl = cantl & Miles(cant 1000)
cant = cant Mod 1000
End If
If cant > 0 Then
If cant >= 100 Then
cantl = cantl & Cientos(cant)
Else
If cant >= 10 Then
cantl = cantl & Decenas(cant, cant Mod 10)
Else
cantl = cantl & Unidades(cant, 0)
End If
End If
End If
Millones = cantl & " MILLON" & ter
End Function
Function decimales(numero As Single) As Integer
Dim iaux As Integer
iaux = numero - Application.Round(numero, 2)
decimales = iaux
End Function
Function letras(cantm As Variant) As String
Dim cants1 As String, num1 As Variant, num2 As Variant
num1 = cantm 1000000
num2 = cantm - (num1 * 1000000)
cents = (num2 * 100) Mod 100
If cents = 0 Then
cents1 = "00"
Else
cents1 = Format(cents)
End If
cantm = cantm - (cents / 100)
If cantm >= 1000000 Then
cantlm = Millones(cantm 1000000)
cantm = cantm Mod 1000000
End If
If cantm > 0 Then
If (cantm >= 1000) Then
cantlm = cantlm & Miles(cantm 1000)
cantm = cantm Mod 1000
End If
End If
If cantm > 0 Then
If cantm >= 100 Then
cantlm = cantlm & Cientos(cantm)
Else
If cantm >= 10 Then
cantlm = cantlm & Decenas(cantm, cantm Mod 10)
Else
cantlm = cantlm & Unidades(cantm, 1)
End If
End If
End If
letras = cantlm & " PESOS " & cents1 & "/100 M.N."
End Function
Sub prueba()
Dim res As String, num As Single
num = 50899697.51
res = letras(num)
End Sub
Migrar una base de datos de una version de Access a otra:
Veremos el ejemplo con Access 2000. Es posible realizar la conversión de bases de datos de versiones antiguas a Access 2000, ya que, tarde o temprano será necesario migrar esas bases de datos que tenemos desde hace tiempo en el trabajo.
Para ello, abrimos Access 2000, y nos dirigimos a Herramientas/Utilidades de bases de datos/Convertir base de datos/Versión actual de base de datos.
Aparecerá un diálogo de conversión, en el que podremos seleccionar el formato de la base de datos antigua, la cual deseamos actualizar. Cuando esté seleccionada, hacemos click en Convertir.
Finalizamos dandole un nombre y terminando la conversión.
Creditos de excel:
Al principio oprime las siguientes teclas:
CTRL I
Aparecera un cuadro en cual tendras que escribir lo siguiente:
x2000..l2000
Despues de eso te mandara a una columna y a una fila con un numero grande Oprime el tabulador (tecla que esta arriba de la opcion de mayusculas) y luego manten oprimida la tecla SHIFT. Manteniendola oprimida selecciona la opcion de graficas... y listo tendras los creditos de excel.
Numera facturas automáticamente:
Si usamos Excel para hacer facturas, pedidos o documentos que deben numerarse automáticamente, conviene saber que existen plantillas ya preparadas para conseguir la autonumeración.
Se trata de las plantillas de Excel Informe de gastos, Factura y Pedido. Pueden usarse seleccionándolas en Archivo•Nuevo•Soluciones de hoja de cálculo.
Al usarlas por primera vez deben personalizarse, indicando los datos relativos a nuestra empresa. Para ello usaremos el botón Personalizar o cambiaremos a la pestaña Personalizar.
Si queremos que la numeración automática de las facturas o pedidos empiece por 1 no hace falta indicar nada en la personalización. La plantilla ya ofrece una barra de herramientas con un botón que agrega automáticamente números de seguimiento secuenciales cada vez que un usuario asigne un número automático a un nuevo formulario basado en la plantilla. Pero si la numeración automática requiere mayor control, en la personalización podemos indicar la ruta a un fichero de texto que actuará como contador, lo cual permitirá reiniciar numeraciones o empezarlas en un número concreto. El fichero contador debe tener el mismo nombre que la plantilla.
Estas plantillas pueden almacenar la información introducida en las hojas basadas en ellas en otro fichero (en el caso de Facturas llamado BDFACTUR.XLS), que va disponiendo la información en forma de lista o base de datos. Esta función también se facilita mediante uno de los iconos de la barra de herramientas de la plantilla.
Por último, hay que tener en consideración que, para que todo lo anterior esté disponible, debe tenerse instalado el complemento Herramientas de plantilla, que se carga mediante la opción de menú Herramientas•Complementos.
Bloquear macros (dar carácter privado):
Es posible ocultar algunas Macros para que no aparezcan en la ventana de Macros, y que por tanto no puedan ser accedidas por usuarios.
Para ello solo debemos incluir la palabra Private anteponiendolo en la definición de la macro (cabecera de la macro). Por ejemplo: Private Sub Imprimir () ...........
Almacenar un documento Word en una tabla Access:
Para almacenar un documento Word en una tabla Access, y poder editarlo directamente desde Access, podemos hacer lo siguiente:
En la estructura de tabla creamos un campo de tipo Objeto OLE.
Creamos un formulario para la tabla creada e insertamos los campos que necesitemos, incluyendo el de tipo Objeto OLE.
Cuando estemos rellenando el formulario, y lleguemos al campo donde queremos insertar el documento Word, seleccionamos el menú insertar/Objeto y elegimos la opción Documento de Microsoft Word (nos dará la opción de crear uno nuevo o insertar uno existente)
Macros autoejecutables (al abrir o cerrar una planilla de Excel):
Para que una macro se ejecute automáticamente al abrir una planilla de Excel basta con que su nombre sea Auto_open. Del mismo modo, para que se ejecute al cerrar una planilla, debe llamarse Auto_close
Desplazarse entre planillas con el teclado en Excel:
Para desplazarse por las planillas abiertas en Excel con el teclado tal como hacemos en Windows pulsando simultáneamente Alt y Tab, tan solo debemos hacerlo pulsando simultáneamente las teclas Ctrl y F6 (válido en otros programas Office)
