Macros para Word y Excel
Publicado por Antoni Masana (12 intervenciones) el 12/08/2010 11:28:30
Estoy modificando una macro de Word que hizo otra persona, he conseguido que funcione y ahora estoy analizando lo que hace la MACRO para saber más.
El problema esta en que no encuentro información de los diferentes comandos o lineas de comandos
--------------------------------------------------------------------------------
Set mirange = Selection.Range
mirange.Start = Selection.Range.End
If x = cuenta Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Else
With Selection.Find
.Text = "IDXCLIENTE"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
idcliente2 = Selection.Text
mirange.End = Selection.Start
Selection.Start = mirange.Start
Selection.End = mirange.End
End If
Selection.Copy
------------------------------------------------------------
Este trozo de la macro copia el texto desde la posición del cursor hasta el texto IDXCLIENT excluyendolo.
Pero que significa o hace esto . . .
Set mirange = Selection.Range
mirange.Start = Selection.Range.End
Y esto . . .
Selection.Find.Execute
idcliente2 = Selection.Text
mirange.End = Selection.Start
Selection.Start = mirange.Start
Selection.End = mirange.End
No pido que nadie me lo explique, lo que deseo es encontrar un tutorial o manual o como se llame que explique como programar una macro en Visual Basic para Word y Excel.
La ayuda del Office se puede llamar de todo menos ayuda por que no me ayuda.
Gracias a todos.
El problema esta en que no encuentro información de los diferentes comandos o lineas de comandos
--------------------------------------------------------------------------------
Set mirange = Selection.Range
mirange.Start = Selection.Range.End
If x = cuenta Then
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Else
With Selection.Find
.Text = "IDXCLIENTE"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
idcliente2 = Selection.Text
mirange.End = Selection.Start
Selection.Start = mirange.Start
Selection.End = mirange.End
End If
Selection.Copy
------------------------------------------------------------
Este trozo de la macro copia el texto desde la posición del cursor hasta el texto IDXCLIENT excluyendolo.
Pero que significa o hace esto . . .
Set mirange = Selection.Range
mirange.Start = Selection.Range.End
Y esto . . .
Selection.Find.Execute
idcliente2 = Selection.Text
mirange.End = Selection.Start
Selection.Start = mirange.Start
Selection.End = mirange.End
No pido que nadie me lo explique, lo que deseo es encontrar un tutorial o manual o como se llame que explique como programar una macro en Visual Basic para Word y Excel.
La ayuda del Office se puede llamar de todo menos ayuda por que no me ayuda.
Gracias a todos.
Valora esta pregunta
0