☰

Buscando una macro para aumentar un número en 1 en un documento de Word

tag-icon • tag-icon microsoft-word vba microsoft-word-2010
Buscando una macro para aumentar un número en 1 en un documento de Word

Tengo un documento de Word al que otros usuarios pueden acceder y modificar (en la misma computadora).

En la parte superior de ese documento hay una línea que dice "Versión # XXX".

Lo que me gustaría es poder ejecutar una macro que aumentara XXX en 1 y guardara el documento.

¿Es eso posible? ¿Cómo?

Respuesta1

Podría crear una propiedad de documento llamada (digamos) Revisión. Luego debería poder mostrarlo en un campo y su código puede leerlo y escribirlo a través de:

myDocument.CustomDocumentProperties("Revision").Value

Respuesta2

En caso de que alguien alguna vez esté interesado, aquí está la respuesta que encontré.

1/ Insertar un campo (CTRL+F9) como "{ DOCVARIABLE VNUM }"

2/ Crea una macro con el siguiente código:

    Sub IncrementVersion()

    On Error Resume Next
    With ActiveDocument
        .Variables.Add ("VNUM")
        On Error GoTo 0
        If IsNumeric(.Variables("VNUM")) = False Then
            .Variables("VNUM") = 1
        Else
            If .Saved = False Then
                .Variables("VNUM") = .Variables("VNUM") + 1
                Else
                    If MsgBox("No changes", vbOKCancel) = vbCancel Then
                    Exit Sub
                    Else
                    'nothing
                End If
            End If
        End If
        .Fields.Update
        .Save
        .Close
    End With
    End Sub

Funciona bien para lo que estaba buscando.

información relacionada