|
¿Alguna vez has precisado saber en que posición estás en una tabla de Word? Pues en este artículo os ofrecemos una macro con la que podrás saber, en que numero de columna y en que número de fila esta ubicado el cursor dentro de una tabla efectuada con este procesador de textos.
COMO
PODEMOS SABER EN UNA TABLA DE WORD EL NUMERO Y LA LETRA DE LA CELDA EN LA QUE
ESTAMOS
El código esta basado en el alfabeto latino, que también se denomina
Alfabeto romano, se constituye de 26
letras y es el mas usado en el mundo hoy día .
Aquí os dejo un código necesario cuando trabajamos con Tablas en Word , es
una modificación un tanto diferente que he realizado de una macro original ofrecida por Microsoft
en una plantilla de soporte para Microsoft Windows 97 la plantilla [ MACROS8.DOT] .
He de anotar un inciso, el código Original que muestra dicha plantilla , tiene pequeños errores en lel mismo
[solo errores de transposición de letras en una declaración de variable y equivocación
en el “códigocar del msg1 “, pero por lo demás correcto :-P ] y espero no
haberme equivocado yo también si es así , ruegos y preguntas en esta Web a la
atención de Fermu, jejejejejje! 
Espero sea de vuestra utilidad 
Besos…. Mónica [Tux] 
'Teneis que Insertarla en un modulo nuevo :
'Alt+F11 > menu Insertar > modulo
'Y aplicarle
un boton en la barra de herramientas, puesto que para que funcione con
'un boton de Active x haria falta modelar codigo :-))
Sub TableCellHelper1()
'Macro original ofrecida por Microsoft en MACROS8.DOT _
y Modificada por Monica-Tux
Dim FC, LC, FR, LR
Dim FCT, LCT
Dim x, y
Dim Msg1, msg2
If Application.Documents.Count Then
If Selection.Information(wdWithInTable) Then
FC = Selection.Information(wdStartOfRangeColumnNumber)
LC = Selection.Information(wdEndOfRangeColumnNumber)
FR = Selection.Information(wdStartOfRangeRowNumber)
LR = Selection.Information(wdEndOfRangeRowNumber)
FCT = FC / 26
Select Case FCT
Case 0 To 1
x = ""
Case Is <= 2
x = "A"
FC = FC - 26
Case Else
x = "B"
FC = FC - 52
End Select
LCT = LC / 26
Select Case LCT
Case 0 To 1
y = ""
Case Is <= 2
y = "A"
LC = LC - 26
Case Else
y = "B"
LC = LC - 52
End Select
Msg1 = "Estas en la celda: " & Chr(10) & Chr(10) & _
x & Chr$(Val(FC) + 64) & FR
msg2 = "Has seleccionado el rango " & x & Chr(Val(FC) + 64) & _
FR & ":" & y & Chr(Val(LC) + 64) & LR
If FC = LC And FR = LR Then
MsgBox Msg1 & " ", vbOKOnly, "Indicador de Fila-Columna"
Else
MsgBox msg2, vbOKOnly, "Seleccion de rango"
End If
Else
MsgBox "ahh!! :-P, ni seleccionaste ni te posicionaste en celda ", _
vbOKOnly, "Situate en Celda"
End If
End If
Exit Sub
End Sub
En nuestra sección de descargas teneis un documento de Word, ya hecho, en el que podeis ver comodamente el efecto de esta macro.
{jos_sb_discuss:6}
Trackback(0)
 |
TrackBack URI para esta entrada
RSS feed Comments