Word - Guardar archivo .docm con el valor de un Marcador

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 18/09/2020 04:14:13

Buenas tardes amigos.

Les escribo para solicitar vuestra ayuda, ya que no consigo informacion al respecto.

Estoy realizando un documento, una Nota de entrega con una macro. El documento funciona perfecto.

Pero ademas de lo que ya hace la macro, me gustaria que al guardar el archivo agrege el valor de un determinado marcador a dicho nombre de archivo.

Es decir, el marcador es el nombre del Area a quien va dirigida la nota, o Area que realizo la solicitud.

Quedando de esta forma:

Texto fijo & Orden & Marcador.docm

Nota numero 0001 Despacho.docm

Este es mi codigo

Sub Auto_Enumerar()

Order = System.PrivateProfileString("C:\Users\Nombre de usuario\Desktop\Documentos varios\Notas Internas\Settings.Txt", "MacroSettings", "Order")

If Order = "" Then

Order = 1

Else

Order = Order + 1

End If

System.PrivateProfileString("C:\Users\Nombre de usuario\Desktop\Documentos varios\Notas Internas\Settings.txt", "MacroSettings", _

"Order") = Order

'Esta ruta es para guardar el nuevo archivo

ChangeFileOpenDirectory ("C:\Users\Nombre de usuario\Desktop\Documentos varios\Notas Internas\")

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "000#")

ActiveDocument.SaveAs FileName:="Nota Interna " & Format(Order, "000#")

With ActiveDocument

.Shapes(1).Visible = msoFalse

.PrintOut

.Shapes(1).Visible = msoTrue

End With

With ActiveDocument

.Shapes(1).Visible = msoFalse

.PrintOut

.Shapes(1).Visible = msoTrue

End With

End Sub

Agradecido de antemano por la ayuda que me puedan brindar.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 2.194

Guardar archivo .docm con el valor de un Marcador

Publicado por wordexperto.com (1190 intervenciones) el 18/09/2020 08:25:45

Hola Mauricio:
Aquí tienes un ejemplo en el que usa una macro Autonew para crear el nombre añadiendo el marcador con el número: http://www.vbaexpress.com/forum/showthread.php?53572-Using-Bookmark-name-as-part-of-a-save-file-name-VBA-Word

https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 18/09/2020 20:01:22

Estimado amigo, estoy dandole vuelta al asunto y no entiendo bien como realizar el cambio que sugiere dicha pagina.

Cambio que creo entender solo deberia ser en la linea
ActiveDocument.SaveAs FileName:="Nota Interna " & Format(Order, "000#")

Pero o me da error o no realiza ninguna adicion de texto

Si me podeis tirar un cable os agradeceria mucho

Valora esta respuesta

Comentar

Pos: 1

Val: 2.194

Guardar archivo .docm con el valor de un Marcador

Publicado por wordexperto.com (1190 intervenciones) el 19/09/2020 20:27:24

Hola Mauricio:
Recuerda que es una Macro del tipo AutoNew: https://wordexperto.com/2019/06/13/crear-automaticamente-documentos-numerados/
Dime cómo vas.

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 19/09/2020 23:30:58

Hola Pepe, gracias por escribir, ya estoy casi calvo tratando de arreglar la macro jejejeje

Casualmente esa es la macro que estoy usando, pero despues de horas y horas de buscar, poner, probar, modificar, y quitar, pareciera que el problema es directamente en mi documento.

Te explico el porque creo es ahi, he probado con una macro para verificar los marcadores, y, al correrla, me indica que si existe dicho marcador, pero, al tratar de traer el valor de dicho marcador en un MsgBox, me trae vacio, a menos que lo este haciendo mal, lo cual es muy probable jajajajaa

Esta es la macro que estoy usando para verificar si existe el marcador.

Public Sub BookmarkExists()

'https://vbaoverall.com/bookmark-object-word-vba/

    'Declarar variable de documento

    Dim oDocument As Document

    'Obtener la referencia del documento actual

    Set oDocument = ActiveDocument

    'Compruebe si existe el marcador

    If oDocument.Bookmarks.Exists("Area") = True Then

        MsgBox "El marcador Area existe"

                MsgBox " El Valor es" & Area ' Esta linea la agrege, con la intension de que me diga el valor del marcador, la verdad no estoy muy seguro de haberlo hecho bien

    Else

        MsgBox "Lo sentimos, el marcador no existe"

    End If

End Sub

A pesar de haber revisado los marcadores del archivo, lo cuales parecen estar bien, anexo el archivo para que le tires un ojo para ver si es eso, o es que no se como llamar el valor.

Agradecido de antemano por la ayuda que me puedas brindar.

_Nota-de-egresos-Internos.rar(42,9 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 2.194

Guardar archivo .docm con el valor de un Marcador

Publicado por wordexperto.com (1190 intervenciones) el 20/09/2020 11:08:44

Los marcadores existen, Mauricio. Puedes suprimir esta parte del código.
Creo que el nombre Auto_enumerar no lo reconoce como macro automática. Cambia a AutoNew.
No puedo hacer más pruebas porque todo el código hace referencia a localizaciones de tu equipo. Asegúrate de que la ruta y el nombre de la plantilla sean correctos y existan.
No te preocupes por el pelo, ya lo perderás. Ojalá que tarde mucho.
https://wordexperto.com/2019/06/13/crear-automaticamente-documentos-numerados/

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 20/09/2020 14:20:53

Hola Pepe, gracias por responder y por tu paciencia.

Tengo unos 25 años o mas que no programo, y encuentro algo ilogico que el nombre de llamado de una macro impida que se ejecuten las instrucciones que alberga, pero como yo soy nuevo en le mundo de las Macros realice los cambios segun tu recomendacion, y sigue sin agregar el valor del marcador "Area" al nombre del nuevo archivo,

El archivo "plantilla", por lo poco que se y entiendo esta bien, y la macro se ejecuta a la perfeccion generando un nuevo archivo con el nuevo nombre y correlativo, Ejemplo, Nota interna 0001, Nota interna 0002, y asi sucesivamente en la medida en que se ejecute el archivo que uso como "plantilla".

El problema esta en que dentro del nombre del nuevo archivo, no logro agregar el valor del marcador Area, el cual varia en funcion de lo que se seleccione en la lista desplegable, ejemplo Despacho, Soporte, Linea de Produccion, etc.

Tambien pense que el problema estaba en la lista desplegable, asi que cree un nuevo marcador con otro nombre para verificar, y aun asi no realiza la adicion dentro del nombre del nuevo archivo.

Asi que aun no descubro como recuperar el valor de dicho marcador, e insertarlo dentro del nombre del nuevo archivo

En realidad pense que seria mas facil...

Valora esta respuesta

Comentar

Pos: 1

Val: 2.194

Guardar archivo .docm con el valor de un Marcador

Publicado por wordexperto.com (1190 intervenciones) el 20/09/2020 15:48:50

Yo tengo mucha menos experiencia en programación, Mauricio. Mira si el problema fuera este: https://docs.microsoft.com/es-es/office/vba/api/word.bookmark

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 20/09/2020 22:24:01

Pepe, creo que me entendiste mal, yo NO programo desde hace mas de 25 años, y tengo haciendo macros en word desde hace como un mes, tal vez menos tiempo, asi que ando medio perdido.

En fin..., El asunto es que ya resolvi el dilema, la respuesta, la encontre en un foro americano.

He aqui el link https://www.office-forums.com/threads/use-bookmark-as-filename-in-save-as-dialog.1861321/

De todos modos dejo la solucion para esas almas atormentadas, que al igual que yo, buscan en la red una respuesta a estas dudas que nos atormentan.

Nivel de dificultad: mega ultra Extremo... Jajajajajajaja

En el codigo del primer mensaje

Buscar:

ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "000#")

Agregar antes de:

ValorArea = ActiveDocument.Bookmarks("Area").Range.Text

Buscar:

ActiveDocument.SaveAs FileName:="Nota Interna " & Format(Order, "000#")

Reemplazar por:

ActiveDocument.SaveAs FileName:="Nota Interna " & Format(Order, "000#") & " " & ValorArea

Listo!!

Eso es todo, como veran era una soquetada, pero bueno...

Agradecido Pepe por tu ayuda.

Solo me queda la duda del porque me falla cuando lo guardo en PDF

Si doy con la solucion lo coloco aqui.

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 20/09/2020 23:32:39

Se me paso dejar la imagen de como funciona la macro.

Archivos

Espero que todo esto le sirva a alguien.

Ahora vamos por el formato PDF al guardar

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 21/09/2020 01:16:24

Hice las modificaciones pertinentes, pero a pesar de que los formatos .doc, docx, y .pdf son creados correctamente (Nombre de archivo y tipo de formato), al momento de abrirlos generan un error o no abre ninguno de los documentos.

Asi que he optado por una solucion salomonica y practica, borrar todo el projecto automaticamente al momento de generar el nuevo documento, guardandose este automaticamente en el formato que ya funcionaba, es decir .docm (formato de word para macros - El cual ya no tiene macros), y santo remedio, no sera la solucion mas elegante, pero funciona perfecto.

Aqui os dejo el codigo por si alguien lo necesita. http://www.vbaexpress.com/kb/getarticle.php?kb_id=64

Link de donde lo extraje:

Option Explicit

Public Sub BorrarTodoVBA()

    Dim vbComp As Object

    For Each vbComp In ActiveDocument.VBProject.VBComponents

        With vbComp

            If .Type = 100 Then

                .CodeModule.DeleteLines 1, .CodeModule.CountOfLines

            Else

                ActiveDocument.VBProject.VBComponents.Remove vbComp

            End If

        End With

    Next vbComp

End Sub

Gracias Pepe, un fuerte abrazo.

Nos veremos en la proxima duda.

Tema solucionado

Valora esta respuesta

Comentar

Pos: 1

Val: 2.194

Guardar archivo .docm con el valor de un Marcador

Publicado por wordexperto.com (1190 intervenciones) el 21/09/2020 08:32:03

Gracias a ti y lamento no haberte sido más útil. Tal vez, en la próxima duda.
Un abrazo.
https://www.youtube.com/channel/UCxgRcbeR2q4PpE1Pgft74Iw

Valora esta respuesta

Comentar

Pos: 3

Val: 32

Guardar archivo .docm con el valor de un Marcador

Publicado por Mauricio (11 intervenciones) el 21/09/2020 21:32:56

Tranquilo Pepe.

De todos modos agradecidopor la ayuda.

Valora esta respuesta

Comentar

Tabla pegada al salto de página

Sombreados en tablas de contenido