Título: ayuda con macros enumeracion en word Publicado por: polloconrabia en 10 Mayo 2016, 23:31 pm tome este codigo de una web para insertar numeracion en cada pagina de word , pero solo esta enumerando 001 en cada pagina y no incrementa , podria ver si me ayudan con este codigo.
*previamente cree un marcador de nombre Order porque el codigol lo pedia asi como un archivo de texto Settings ubicado en la D: * la idea era colocarlo en el encabezado del documento de word y que al hacerlo se aumentaria automaticamente como cuando se utiliza de forma normal insertar numeracion * el codigo lo coloque en un boton de un form con el evento click * si alguien tiene una idea diferente de como enumerar las paginas, es bienvenido .. y si pueden ayudarme a que el formato no pase 5 digitos estaria agreadecido ---- Order = System.PrivateProfileString("D:\Settings.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("D:\Settings.txt", "MacroSettings", _ "Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#") ActiveDocument.SaveAs FileName:="path" & Format(Order, "000#") --- |