¿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! Laughing

 

 

 

Espero sea de vuestra utilidad Wink

 

Besos…. Mónica [Tux]  Kiss

 

 


'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 = ""<br />             Case Is <= 2<br />                 x = "A"<br />                 FC = FC - 26<br />             Case Else<br />                 x = "B"<br />                 FC = FC - 52<br />         End Select<br />         LCT = LC / 26<br />        Select Case LCT<br />             Case 0 To 1<br />                 y = ""<br />             Case Is <= 2<br />                 y = "A"<br />               LC = LC - 26<br />             Case Else<br />                y = "B"<br />                LC = LC - 52<br />        End Select<br />        <br />    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}