Macro para Selecionar Hojas

Pues algo se podra hacer...
Voy a ver..
Como quieres llamar a los documentos en plan:
archivo0001.doc archivo0002.doc?

Un saludo., no prometo nada!
Iago.

Tengo un pequeño problema...
Hay algo que indique se ha pasado una pagina? Algo que se repita al final? o
al inicio?
Es que no se seleccionar solo lo que se ve en una hoja, puedo seleccionar
cada vez 40 lineas por ejemplo...pero si hay una imagen entonces una hoja
seria menos de 40. Entiendes?
Alguien sabe como seleccionar de forma automatica, lo que se ve en esa hoja?
Un saludo.
Iago.

Jejejejejejejeje...pero como me gusta esto...
Donde pone nombredec ves como llamo al archivo
he puesto "doc" tu puedes poner lo que quieras..
Si tienes alguna duda me dices...a mi me ha funcionado sin problemas.
Un saludin! y dime como te ha ido!!
Iago.




Sub Paginar()
'
' Macro4 Macro
' Macro grabada el 10/04/2004 por Iago
'
Dim nombredoc, ceros As String
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
Selection.HomeKey Unit:=wdStory
For i = 1 To 1000
Selection.MoveDown Unit:=wdWindow, Extend:=wdExtend
Selection.Cut
Documents.Add DocumentType:=wdNewBlankDocument
Selection.Paste
Selection.TypeBackspace
If i < 10 Then
ceros = "000"
ElseIf i < 100 And i >= 10 Then
ceros = "00"
End If
nombredoc = "doc" + ceros & i & ".doc"
ActiveDocument.SaveAs FileName:=nombredoc, FileFormat:=wdFormatDocument,
_
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
False
ActiveDocument.Close
Next i
End Sub

Muchas gracias... me has salvado la vida. Ya me estaba
volviendo loco de tanto copiar y pegar.

Pero me gustaría saber si existe alguna instrucción que
me diga cuantas hojas contiene el documento, para no
tener que estar escribiendo el numero de hojas cada vez
que se genere una combinación de correspondencia
diferente.
La solución que le di por el momento fue que preguntara
por medio de un InputBox el numero total de hojas.

Muchisimas gracias

Jejejejejejejeje...pero como me gusta esto...
Donde pone nombredec ves como llamo al archivo
he puesto "doc" tu puedes poner lo que quieras..
Si tienes alguna duda me dices...a mi me ha funcionado

sin problemas.

Un saludin! y dime como te ha ido!!
Iago.




Sub Paginar()
'
' Macro4 Macro
' Macro grabada el 10/04/2004 por Iago
'
Dim nombredoc, ceros As String
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.Zoom.PageFit =

wdPageFitFullPage

Selection.HomeKey Unit:=wdStory
For i = 1 To 1000
Selection.MoveDown Unit:=wdWindow, Extend:=wdExtend
Selection.Cut
Documents.Add DocumentType:=wdNewBlankDocument
Selection.Paste
Selection.TypeBackspace
If i < 10 Then
ceros = "000"
ElseIf i < 100 And i >= 10 Then
ceros = "00"
End If
nombredoc = "doc" + ceros & i & ".doc"
ActiveDocument.SaveAs FileName:=nombredoc,

FileFormat:=wdFormatDocument,

_
LockComments:=False, Password:="",

AddToRecentFiles:=True,

WritePassword _
:="", ReadOnlyRecommended:=False,

EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False,

SaveFormsData:=False,

SaveAsAOCELetter:= _
False
ActiveDocument.Close
Next i
End Sub


.

Te lo he puesto directamente en el bucle For.
Por cierto, por si te interesa asociar una combinacion de teclas a cada
macro puedes hacerlo mediante:
Herramientas/Personalizar/Teclado/Categoria:Macros
Seleccionas el macro y tecleas la combinacion, y el te dira si la
combinacion ya existe o esta libre.
Me alegro de que te funcione.
Un saludo.
Iago.


Sub Paginar()
'
' Macro grabada el 10/04/2004 por Iago
'
Dim nombredoc, ceros As String
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
Selection.HomeKey Unit:=wdStory
For i = 1 To Selection.Information(wdNumberOfPagesInDocument)
Selection.MoveDown Unit:=wdWindow, Extend:=wdExtend
Selection.Cut
Documents.Add DocumentType:=wdNewBlankDocument
Selection.Paste
Selection.TypeBackspace
If i < 10 Then
ceros = "000"
ElseIf i < 100 And i >= 10 Then
ceros = "00"
End If
nombredoc = "doc" + ceros & i & ".doc"
ActiveDocument.SaveAs FileName:=nombredoc, FileFormat:=wdFormatDocument,
_
LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
False
ActiveDocument.Close
Next i
End Sub