Al grabar un archivo, se genere un archivo por hoja

Hola Sergio :-)

si quieres utilizarla para todos los archivos tendras que grabarla en la
plantilla [ Normal.dot ] te explico:


Cuando Abres con Alt + F11 y ves a tu izquierda dos proyectos >>

Normal

Y

Proyect(tudocumento)

pues bien desde ahi puedes operar con la programacion en la plantilla
simplemente pon tu macro en un modulo que puedes insertar ahi mismo [
despliegas el mas y veras que se puede operar igual :-) ] pues lo mismo pero
en lugar de guardarlo en


Proyect[ tudocumento)

Pues lo haces en >> Normal


Y desde ahi mismo le puedes dar a guardar que se guardara igual cierras
archivo y cuando abras cuarquier archivo lo tendras valido tu macro para
todos los archivos ;-)

comentanos cualquier duda!!!

Saludos
Monica



Sub macro_corta_hojas()

Dim y As Integer
Dim i As Integer
Dim name As String
Dim NombreC As String
Dim Nombre As String
Dim longitud As Integer

NombreC = ActiveDocument.name


longitud = Len(NombreC)
'Nombre = substr(Nombre, 0, longitud - 4)
Nombre = Left$(NombreC, longitud - 4)
y = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
i = 0

Selection.HomeKey Unit:=wdStory
While i < y

i = i + 1

name = Nombre & CStr(i)

ActiveDocument.Bookmarks("\Page").Range.Cut
With Documents.Add
.Range.Paste
.SaveAs FileName:=name,
FileFormat:=wdFormatDocumentDefault
Selection.EndKey Unit:=wdStory
Selection.TypeBackspace
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="m"

.Close
End With

Wend

ActiveDocument.SaveAs FileName:="basura.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub



Ahora sólo tengo la duda de cómo poder usar la macro en cualquier
parte... no es como en excel que se guardan en los archivos... ¿cómo
puedo generalizar un macro?

Toma para que lo veas visualmente >>

http://www.fermu.com/content/view/533/2/lang,es/

te saldran dos errores de pagina XML tu dale a aceptar :-P para poder ver el
flash :-P!!

Saludos
Monica