Avatar
Por favor considere registrandote
invitado
sp_LogInOut Ingresa sp_Registration Regístrate sp_MemberList Miembros
Regístrate | Olvidó su contraseña?
Búsqueda Avanzada
Alcance del Foro


Match



Opciones del Foro



La longitud mínima de la palabra de búsqueda es 3 caracteres - longitud máxima búsqueda de la palabra es 84 caracteres
sp_Feed RSS del Tema sp_TopicIcon
Preparar archivos .doc para kindle con un macro de word
Avatar
Miembro
Members
3 septiembre 2011 - 13:24
Miembro desde: 27 junio 2011
Mensajes en Foro: 2459
sp_UserOfflineSmall Desconectado

He encontrado y probado un macro que funciona con Word 2003-2007 y 2010 y que con un clic prepara cualquier archivo doc para enviarlo al kindle. El resultado es excelente, pero tiene el problema en que el justificado no es de mi gusto porque divide algunas palabras al final de línea y pone un guión. El tamaño de letra quizás sea un poco grande, pero eso sí es fácil de resolver.
¿Alguien sabría modificar el macro para que el texto quedara justificado, sin partir la palabra del final de línea?
Si es así, enviar un mensaje para que os haga llegar el macro.

[Permission to view this image is denied]

Avatar
Member
Members
3 septiembre 2011 - 19:59
Miembro desde: 19 agosto 2011
Mensajes en Foro: 206
sp_UserOfflineSmall Desconectado

De todas formas... que se supone que hace la Macro?

Avatar
Miembro
Members
3 septiembre 2011 - 20:06
Miembro desde: 27 junio 2011
Mensajes en Foro: 2459
sp_UserOfflineSmall Desconectado

¿Te parece que podría ser útil cuando te encuentras un doc que está hecho una pena? Te mando el macro, míratelo y si te parece que no merece la pena usarlo, pues lo dejamos ahí. Si vale para algo, después de corregirlo puedes ponerlo a disposición de todo al que le interese. Gracias.

Avatar
Member
Members
3 septiembre 2011 - 22:44
Miembro desde: 19 agosto 2011
Mensajes en Foro: 206
sp_UserOfflineSmall Desconectado

germanor;2442 said:
¿Te parece que podría ser útil cuando te encuentras un doc que está hecho una pena? Te mando el macro, míratelo y si te parece que no merece la pena usarlo, pues lo dejamos ahí. Si vale para algo, después de corregirlo puedes ponerlo a disposición de todo al que le interese. Gracias.

No la he mirado exhaustivamente.
simplemente he ido a colocar lo que te molestaba de la Macro.

Ya la tienes y si la ejecutas verás que te quita los guiones de las líneas.

Avatar
Member
Members
3 septiembre 2011 - 22:47
Miembro desde: 19 agosto 2011
Mensajes en Foro: 206
sp_UserOfflineSmall Desconectado

El código de la macro es el siguiente:

*****
[SIZE="1"]Sub Times()
'
' ??????505 ??????
' ?????? ??????? 14.01.2008 Neu
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^s-^s"
.Replacement.Text = "^s^=^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " - "
.Replacement.Text = " ^= "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ".,"
.Replacement.Text = ".."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^+"
.Replacement.Text = "^="
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^= "
.Replacement.Text = "^p^=^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Font.Color = wdColorAutomatic
Selection.Font.Size = 26
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.5)
.BottomMargin = CentimetersToPoints(1.5)
.LeftMargin = CentimetersToPoints(0.5)
.RightMargin = CentimetersToPoints(0.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
With ActiveDocument
.AutoHyphenation = True
.HyphenateCaps = False
.HyphenationZone = CentimetersToPoints(0.75)
.ConsecutiveHyphensLimit = 0
End With
With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = True
.HyphenationZone = CentimetersToPoints(0.75)
.ConsecutiveHyphensLimit = 0
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub[/SIZE]
*****

Avatar
Miembro
Members
5 septiembre 2011 - 10:39
Miembro desde: 27 junio 2011
Mensajes en Foro: 2459
sp_UserOfflineSmall Desconectado

Después de las modificaciones que ha hecho yulyul, queda perfecto.

[Permission to view this image is denied]

Avatar
Member
Members
7 septiembre 2011 - 22:43
Miembro desde: 19 agosto 2011
Mensajes en Foro: 206
sp_UserOfflineSmall Desconectado

Me atrevería a decir que con este código (un poco más cortito), también sale bien:

*****
[SIZE="1"]Sub Times()
'
' ??????505 ??????
' ?????? ??????? 14.01.2008 Neu
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^s-^s"
.Replacement.Text = "^s^=^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " - "
.Replacement.Text = " ^= "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ".,"
.Replacement.Text = ".."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^+"
.Replacement.Text = "^="
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^= "
.Replacement.Text = "^p^=^s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Font.Color = wdColorAutomatic
Selection.Font.Size = 26
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.5)
.BottomMargin = CentimetersToPoints(1.5)
.LeftMargin = CentimetersToPoints(0.5)
.RightMargin = CentimetersToPoints(0.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = True
.HyphenationZone = CentimetersToPoints(0.75)
.ConsecutiveHyphensLimit = 0
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub[/SIZE]
*****

Avatar
Member
Members
7 septiembre 2011 - 22:45
Miembro desde: 19 agosto 2011
Mensajes en Foro: 206
sp_UserOfflineSmall Desconectado

germanor;2549 said:
Después de las modificaciones que ha hecho yulyul, queda perfecto.

:-DDD

Pero todo el trabajo duro lo hizo germanor!!!
Hay que agradecerle a él.

Avatar
Member
Members
27 enero 2012 - 20:03
Miembro desde: 18 julio 2011
Mensajes en Foro: 330
sp_UserOfflineSmall Desconectado

He probado el marco y ya tengo mi problema resuelto, ha quedado perfecto, muchísimas gracias!

Avatar
Miembro
Members
3 mayo 2012 - 09:37
Miembro desde: 3 febrero 2012
Mensajes en Foro: 10154
sp_UserOfflineSmall Desconectado

echadme una manica porfa que nunca he usado un macro...y tengo los apuntes para metermelos en kindle y estudiarmelos....*snif* *carita de pena*
como lo aplico en word 2003?

Avatar
Miembro
Members
3 mayo 2012 - 10:32
Miembro desde: 27 junio 2011
Mensajes en Foro: 2459
sp_UserOfflineSmall Desconectado

No recuerdo muy bien cómo se hace con word 2003, pero en herramientas tiene que estar la opción macros. En el cuadro de diálogo tienes que pulsar crear macro (no grabar), darle nombre y pegar el código que tenemos un poco más arriba.

Avatar
Miembro
Members
3 mayo 2012 - 10:40
Miembro desde: 3 febrero 2012
Mensajes en Foro: 10154
sp_UserOfflineSmall Desconectado

germanor;45027 said:
No recuerdo muy bien cómo se hace con word 2003, pero en herramientas tiene que estar la opción macros. En el cuadro de diálogo tienes que pulsar crear macro (no grabar), darle nombre y pegar el código que tenemos un poco más arriba.

mil gracias!!
con eso lo he conseguido!!! weeeeee

Lo pongo aquí por si alguien más lo necesita:

Herramientas
Macro
Editor de Visual Basic
Pegar elcódigo y guardar
Luego se puede aplicar a cualquier documentos nuevo en Herramientas, Macro,Macros, ejecutar.

(Ahora solo me queda hacerlo con los demás y meterlos al Kindle!! :D)

Avatar
Member
Members
3 mayo 2012 - 11:32
Miembro desde: 15 marzo 2012
Mensajes en Foro: 383
sp_UserOfflineSmall Desconectado

Muchas gracias por la macro, nunca se sabe cuando puede hacer falta y, por si acaso, ya está guardada :dg:

Avatar
Miembro
Members
3 mayo 2012 - 13:04
Miembro desde: 28 noviembre 2011
Mensajes en Foro: 1538
sp_UserOfflineSmall Desconectado

Gracias. Me servirá.

Avatar
Miembro
Members
3 mayo 2012 - 13:49
Miembro desde: 3 diciembre 2011
Mensajes en Foro: 13555
sp_UserOfflineSmall Desconectado

** you do not have permission to see this link **puse unas capturas de pantalla de cómo aplicar una macro en Word 2007, por si os sirve de algo.

Avatar
Miembro
Members
4 mayo 2012 - 09:17
Miembro desde: 3 febrero 2012
Mensajes en Foro: 10154
sp_UserOfflineSmall Desconectado

Bueeeeno
hasta le he hecho un indice molón con hipervinculos a los capitulos
lo tengo preparado, solo me queda meterlo en el kindle a ver si ha quedado potito ?

Avatar
Member
Members
5 mayo 2012 - 08:19
Miembro desde: 22 diciembre 2011
Mensajes en Foro: 55
sp_UserOfflineSmall Desconectado

Interesante.
Gracias a ** you do not have permission to see this link **

Zona Horaria del Foro: UTC 2
Mayor número de usuarios conectados simultáneamente: 173
Conectados ahora mismo:
Invitado(s) 1
Viendo esta página:
1 Invitado(s)
Los Mejores Foreros:
PhotoniKO: 13555
Me!: 10154
swappen: 5998
Chandrian: 5932
mlila: 4704
P-ludus: 3945
germanor: 2459
Artemisa: 2068
Estadísticas de usuarios:
Foreros Invitados: 16
Miembros: 29553
Moderadores: 1
Administradores: 1
Estadísticas del Foro:
Grupos:7
Foros:44
Temas:12395
Mensajes:169389
Moderadores: miguelgaton: 0
Administradores: Admin: 6