Como eliminar el formato de campos de formulario

Hola Monica;

"Tux" wrote:

Dale a las teclas » Ctrl+E [ para seleccionar todo el documento ] y
luego una vez este todo seleccionado dale a las telcas » Ctrl+Shift+F9

Esa era la respuesta a todo este rollo, te lo agradesco demasiado, lo que no
habia era encontrado la forma correcta de explicarte lo que me pasaba y con
eso poder solucionarlo de forma rapida.

Para implementarlo en la macro, lo voy a poner de la siguiente forma:

'[]

Sub Macro1()

Selection.WholeStory
Selection.Fields.Unlink
Selection.HomeKey Unit:=wdStory

End Sub

'[]

Ya que con el with y el ".." como me lo copiaste me genera error, no se por
que sera.

Me refiero a:

'[]

Sub Prueba_1()


With Selection

..WholeStory
..Fields.Unlink
..HomeKey Unit:=wdStory

End With



End Sub

'[]

Con eso queda solucionado este problema.

Pero en el tema de las graficas, he estado ensayando varias formas y me
presenta errores y algunos problemas.

Vale ahora ya te voy entendiendo :-) , bien pues mucho me temo que ahora
asi leyendote y pensando de que las imagenes es posible que no esten
dentro del campo o marcador ???

Las imagenes las estan añadiendo con las siguiente macro:

'[]

Sub Grafica_Marcador_X()

Dim ruta As String
Dim x As Range
Dim imagen As InlineShape

On Error Resume Next

ActiveDocument.Unprotect ("111")

With Dialogs(wdDialogInsertPicture)
If .Display <> -1 Then GoTo proteger

ruta = .Name

End With

Set x = ActiveDocument.Bookmarks("Marcador_X").Range

Do While x.InlineShapes.Count > 0
x.InlineShapes(1).Delete: Loop

Set imagen = ActiveDocument.InlineShapes.AddPicture _
(FileName:=ruta, LinkToFile:=False, _
SaveWithDocument:=True, Range:=x)

ActiveDocument.Bookmarks.Add Name:="lunes", Range:=imagen.Range

proteger:

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

Exit Sub

End Sub

'[]

Como puedes ver la imagen si queda ubicada en donde se encuentre el marcador.

Cuando utilizo el codigo:

Sub Borrar_Grafica_Marcador_X()

On Error Resume Next

ActiveDocument.Unprotect ("111")

'ActiveDocument.InlineShapes(1).Delete

With Selection

.GoTo What:=wdGoToBookmark, Name:="Marcador_X"
.InlineShapes(1).Delete

End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

End Sub

No borra la grafica que se supone se encuentra ubcado en la posicion del
marcador seleccionado, sino que el cursos se ubica en la posicion siguiente
al marcador sin eliminar nada.

Si cambio el codigo:

.GoTo What:=wdGoToBookmark, Name:="Marcador_X"
.InlineShapes(1).Delete

por:

.GoTo What:=wdGoToBookmark, Name:="Marcador_X"
.Delete

Si borra la grafica que se encuentra ubicada en el marcador seleccionado,
pero si por equivocacion se ejecuta la macro varias veces, despues que borrar
el grafico, empieza a borrar el texto que se encuentra despues del marcador,
lo que entiendo es que el cursor se para en la ubicacion del marcador y borra
lo que se encuentre despues de el.

Muchas gracias, con tu ayuda tengo casi completada la aplicacion.

No se como agradecerte.

Cordialmente,
Jorge

Hola Monica;

"Tux" wrote:

Si ya se que te pasa que por mi culpa te di un codigo que añadia imagen
sobre marcador, peroooo no de campos si con posibilidad de campos pero
no para estos en concreto , realizaba un loop para poder vaciar el
marcador de imagen y cambiar imagen perooo sobre marcadores corrientes
:-( entonces por eso no dejaba eliminar imagen porque al estar protegido
el documento pues eso :-( [ perdon :-( ] lo que no se porque lo di asi
no se bueno te paso el codigo tal cual es exacto y entonces si que
dejaran eliminar imagenes con solo desplazarnos hasta el campo y suprimir.

No tienes de que disculparte despues de toda la ayuda que me has prestado, :)
Con esa nueva macro, es sino colocar un campo de texto cualquiera y al estar
parado en el se inserta la grafica.
Como tu lo dices es correcto, no ahi necesidad de insertar marcadores, solo
se necesita estar parado en donde se requiera.

Con esto tambien queda solucionado el problema de eliminar las imagenes, ya
que se puede hacer ahi mismo sin necesidad de desbloquear la plantilla.

PD: ahora revisando, en los campos de texto no hubiera sido necesario
desproteger el documento para insertar en ellos imagenes ya que con una
macro que hubiera sido nada mas de insercion imagen, hubiera valido :-)
pero me he dado cuenta ahora :-P !! pero bueno para curarnos de males
prueba ahora a ver si ya no hace falta crear ninguna macro para
eliminar imagenes de campos formulario :-)

Con el tema de exportar las graficas de excel a word. Solo lo hago como para
estudiar las dos opciones, a ver cual presenta mas facilidad para quienes van
a utilizar estos formularios.
Como te habia explicado las graficas siempre las generan en excel, entonces
una opcion es copiarlas y pegarlas automaticamente al documento o la otra
opcion es la que he estado operando con tu ayuda, por medio de un boton e
insertando las graficas como imagenes.

Con base en el codigo que me diste para importar las graficas en excel, como
me presentaba unos problemas, yo hice el codigo siguiente:

'[]

Sub Exportar_graficas()

Dim x As Excel.Application
Dim Y As Excel.Workbook
Dim problems As Boolean

On Error Resume Next

Set x = GetObject(, "Excel.Application")

If Err Then
problems = True
Set x = New Excel.Application
End If

On Error GoTo 0

Set Y = x.Workbooks.Open _
("D:\Pruebas\Ejemplo.xls")
'With Y.Sheets("hoja1")
'.Shapes("Chart 1").Copy ' Esta linea la elmine, ya que no funcionaba bien
con ella

Sheets("Generacion").Select
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = True

'End With ' Esta linea la elmine, ya que no funcionaba bien con ella
With Selection


.GoTo What:=wdGoToBookmark, Name:="Grafica_Marcador_X"

Selection.PasteAndFormat Type:=wdChartPicture

'.PasteAndFormat (wdPasteDefault) ' Esta linea la elmine,

End With

Y.Close SaveChanges:=False
x.Quit

Set Y = Nothing:
Set x = Nothing

'[]

Le hice algunas modificaciones bastante burdas a el codigo que me diste,
pero todo con la intencion de lograr lo que necesitaba.
Funciona correctamente, pero veo que en ocasiones a parecer deja abierta la
hoja de texto de excel y presenta problema y fallas, no se por que sera.

De nuevo muchas gracias,

Cordialmente,
Jorge

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Jorge :-)

Sheets("Generacion").Select
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = True

Bien te dara problemas porque al declarar una variable como intancia de
excel y otra para la aplicacion o abertura de libro , en esas lineas
faltaria añadirle dicha variable sino funcionara descuanjeringado todo :-P

Le hice algunas modificaciones bastante burdas a el codigo que me diste,
pero todo con la intencion de lograr lo que necesitaba.
Funciona correctamente, pero veo que en ocasiones a parecer deja abierta la
hoja de texto de excel y presenta problema y fallas, no se por que sera.

De nuevo muchas gracias,

Cordialmente,
Jorge

Si a ti te funcionan y funcionan bien entonces no es burdo al contrario
es bueno porque te funciona ;-) !! bien pues dejame que me mire esto
mañnaa por la tarde asi con mas detenimiento y ya te comento mañana a la
noche ok? :-) !!

Si ves que me despisto porque llevo muchas cosas entre manos tu dame un
toque eh? :-) que yo miro los hilos que salen en las news como nuevos y
lo vere ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola otra vez;

"Tux" wrote:

Si a ti te funcionan y funcionan bien entonces no es burdo al contrario
es bueno porque te funciona ;-) !! bien pues dejame que me mire esto
mañnaa por la tarde asi con mas detenimiento y ya te comento mañana a la
noche ok? :-) !!

Si ves que me despisto porque llevo muchas cosas entre manos tu dame un
toque eh? :-) que yo miro los hilos que salen en las news como nuevos y
lo vere ok? :-)

Claro, no te molesto mas. Creo que me entiendes la idea de lo que necesito y
he estado intentando hacer. La idea de exportar las graficas desde excel
directamente es evitar el trabajo de copiar desde excel, editarlas e
insertarlas, sino hacerlo de forma directa. Puede ser en campos de texto, de
modo que se pueden borrar facilmente como la ultima macro que me pasaste o
insertando las imagenes en un marcador directamente desde excel como en un
principio. Lo que importa es que se puedan insertar en lugares especificos y
que se tenga la posibilidad de eliminarlas si se necesita.

Cuando tengas un rato, le hechas un ojo y me dices que le puedo corregir
para que no me vaya a presentar los posibles problemas que me puedas pueden
ocurrir.

Saludos,
Jorge

www.fermu.com

Hola Jorge :-)

Claro, no te molesto mas. Creo que me entiendes la idea de lo que necesito y
he estado intentando hacer. La idea de exportar las graficas desde excel
directamente es evitar el trabajo de copiar desde excel, editarlas e
insertarlas, sino hacerlo de forma directa. Puede ser en campos de texto, de
modo que se pueden borrar facilmente como la ultima macro que me pasaste o
insertando las imagenes en un marcador directamente desde excel como en un
principio. Lo que importa es que se puedan insertar en lugares especificos y
que se tenga la posibilidad de eliminarlas si se necesita.

Cuando tengas un rato, le hechas un ojo y me dices que le puedo corregir
para que no me vaya a presentar los posibles problemas que me puedas pueden
ocurrir.

Saludos,
Jorge

Bien prueba la siguiente macro a ver si esta resulta mejor :-) , te he
añadido codigo en comentario para por si quisieras ver el libro :-)
bueno prueba y nos comentas :-) !!

Saludos
Monica

__Codigo nuevo ____

'[]

Sub Exportar_graficas()

Dim x As Excel.Application
Dim Y As Excel.Workbook
Dim problems As Boolean

On Error Resume Next

Set x = GetObject(, "Excel.Application")

If Err Then
problems = True
Set x = New Excel.Application
End If

On Error GoTo 0

Set Y = x.Workbooks.Open _
("C:\Pruebas\Ejemplo.xls")
'x.Visible = True '(en caso querer ver el libro)

With Y

.Sheets("Generacion").Select
.ActiveSheet.ChartObjects("Gráfico 1").Activate
.ActiveChart.ChartArea.Select
.ActiveChart.ChartArea.Copy

End With

On Error Resume Next
ActiveDocument.Unprotect ("111")

With Selection

.GoTo What:=wdGoToBookmark, Name:="Grafica_Marcador_X"

.MoveLeft Unit:=wdCharacter, Count:=1
.MoveRight Unit:=wdCharacter, Count:=1
.PasteAndFormat Type:=wdChartPicture

End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

Selection.MoveLeft Unit:=wdCharacter, Count:=1

'si quieres ver el libro tendrias que suprimir _
las siguientes lineas y dejar la de arriba _
visible en true

Y.Close SaveChanges:=False
x.Quit

Set Y = Nothing:Set x = Nothing

End Sub

'[]