Google+  

Página 1 de 2 12 ÚltimoÚltimo
Resultados 1 al 10 de 17

Tema: Preparar archivos .doc para kindle con un macro de word

  1. #1
    Fecha de Ingreso
    27 jun, 11
    Ubicación
    barcelona
    Mensajes
    2.549
    Dar gracias
    2.225
    Gracias Recibidas: 2.949

    Preparar archivos .doc para kindle con un macro de word

    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.

    Última edición por germanor; 03/09/2011 a las 17:02
    El paraíso lo prefiero por el clima; el infierno por la compañía.
    Mark Twain


    Para colaborar con el foro sólo tienes que marcar este link »» http://www.amazon.es/?tag=forokd-21
    como favorito en tu navegador habitual.

  2. Los siguientes 6 usuarios le agradecieron a germanor por Post util:

    Aritzne (03/05/2012),gandarin (05/05/2012),jurásica (06/05/2012),Me! (29/02/2012),Mk078 (03/05/2012),sentoben (03/05/2012)

  3. #2
    Avatar de yulyul
    yulyul está desconectado [email protected] Mi eReader: 1 Kindle 3 Wifi + 2 k4 touch
    Autores Favoritos: Rothfuss, P., JRR Tolkien, Michael Ende,...
    Libros Favoritos: el nombre del viento, el señor de los anillos, los pilares de la tierra, ... Buscarlo en amazon.es
    Último Leído: El jardín olvidado Buscarlo en amazon.es
    Leyendo: El principe de la niebla Buscarlo en amazon.es
    Fecha de Ingreso
    19 ago, 11
    Ubicación
    Castellón
    Mensajes
    233
    Dar gracias
    30
    Gracias Recibidas: 90

    Re: Preparar archivos .doc para kindle con un macro de word

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

  4. Los siguientes usuarios le agradecieron a yulyul por Post util:

    germanor (03/09/2011)

  5. #3
    Fecha de Ingreso
    27 jun, 11
    Ubicación
    barcelona
    Mensajes
    2.549
    Dar gracias
    2.225
    Gracias Recibidas: 2.949

    Re: Preparar archivos .doc para kindle con un macro de word

    ¿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.
    El paraíso lo prefiero por el clima; el infierno por la compañía.
    Mark Twain


    Para colaborar con el foro sólo tienes que marcar este link »» http://www.amazon.es/?tag=forokd-21
    como favorito en tu navegador habitual.

  6. Los siguientes usuarios le agradecieron a germanor por Post util:

    yulyul (08/09/2011)

  7. #4
    Avatar de yulyul
    yulyul está desconectado [email protected] Mi eReader: 1 Kindle 3 Wifi + 2 k4 touch
    Autores Favoritos: Rothfuss, P., JRR Tolkien, Michael Ende,...
    Libros Favoritos: el nombre del viento, el señor de los anillos, los pilares de la tierra, ... Buscarlo en amazon.es
    Último Leído: El jardín olvidado Buscarlo en amazon.es
    Leyendo: El principe de la niebla Buscarlo en amazon.es
    Fecha de Ingreso
    19 ago, 11
    Ubicación
    Castellón
    Mensajes
    233
    Dar gracias
    30
    Gracias Recibidas: 90

    Re: Preparar archivos .doc para kindle con un macro de word

    Cita Iniciado por germanor Ver Mensaje
    ¿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.

  8. Los siguientes usuarios le agradecieron a yulyul por Post util:

    gandarin (05/05/2012)

  9. #5
    Avatar de yulyul
    yulyul está desconectado [email protected] Mi eReader: 1 Kindle 3 Wifi + 2 k4 touch
    Autores Favoritos: Rothfuss, P., JRR Tolkien, Michael Ende,...
    Libros Favoritos: el nombre del viento, el señor de los anillos, los pilares de la tierra, ... Buscarlo en amazon.es
    Último Leído: El jardín olvidado Buscarlo en amazon.es
    Leyendo: El principe de la niebla Buscarlo en amazon.es
    Fecha de Ingreso
    19 ago, 11
    Ubicación
    Castellón
    Mensajes
    233
    Dar gracias
    30
    Gracias Recibidas: 90

    Re: Preparar archivos .doc para kindle con un macro de word

    El código de la macro es el siguiente:

    *****
    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

    *****

  10. Los siguientes 6 usuarios le agradecieron a yulyul por Post util:

    Aritzne (03/05/2012),germanor (04/09/2011),jurásica (06/05/2012),Klendix (10/09/2011),Mk078 (03/05/2012),sentoben (03/05/2012)

  11. #6
    Fecha de Ingreso
    27 jun, 11
    Ubicación
    barcelona
    Mensajes
    2.549
    Dar gracias
    2.225
    Gracias Recibidas: 2.949

    Re: Preparar archivos .doc para kindle con un macro de word

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

    El paraíso lo prefiero por el clima; el infierno por la compañía.
    Mark Twain


    Para colaborar con el foro sólo tienes que marcar este link »» http://www.amazon.es/?tag=forokd-21
    como favorito en tu navegador habitual.

  12. Los siguientes usuarios le agradecieron a germanor por Post util:

    gandarin (05/05/2012)

  13. #7
    Avatar de yulyul
    yulyul está desconectado [email protected] Mi eReader: 1 Kindle 3 Wifi + 2 k4 touch
    Autores Favoritos: Rothfuss, P., JRR Tolkien, Michael Ende,...
    Libros Favoritos: el nombre del viento, el señor de los anillos, los pilares de la tierra, ... Buscarlo en amazon.es
    Último Leído: El jardín olvidado Buscarlo en amazon.es
    Leyendo: El principe de la niebla Buscarlo en amazon.es
    Fecha de Ingreso
    19 ago, 11
    Ubicación
    Castellón
    Mensajes
    233
    Dar gracias
    30
    Gracias Recibidas: 90

    Re: Preparar archivos .doc para kindle con un macro de word

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

    *****
    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

    *****

  14. Los siguientes 5 usuarios le agradecieron a yulyul por Post util:

    Aritzne (03/05/2012),gandarin (05/05/2012),Klendix (10/09/2011),Me! (29/02/2012),sentoben (03/05/2012)

  15. #8
    Avatar de yulyul
    yulyul está desconectado [email protected] Mi eReader: 1 Kindle 3 Wifi + 2 k4 touch
    Autores Favoritos: Rothfuss, P., JRR Tolkien, Michael Ende,...
    Libros Favoritos: el nombre del viento, el señor de los anillos, los pilares de la tierra, ... Buscarlo en amazon.es
    Último Leído: El jardín olvidado Buscarlo en amazon.es
    Leyendo: El principe de la niebla Buscarlo en amazon.es
    Fecha de Ingreso
    19 ago, 11
    Ubicación
    Castellón
    Mensajes
    233
    Dar gracias
    30
    Gracias Recibidas: 90

    Re: Preparar archivos .doc para kindle con un macro de word

    Cita Iniciado por germanor Ver Mensaje
    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.

  16. Los siguientes usuarios le agradecieron a yulyul por Post util:

    gandarin (05/05/2012)

  17. #9
    la_terminal está desconectado [email protected] Mi eReader: Kindle Paperwhite
    Autores Favoritos: Ken Follet; Arturo Pérez-Reverte; Paulo Coelho
    Libros Favoritos: La sombra del viento; Canción de Hielo y Fuego; Los Miserables Buscarlo en amazon.es
    Último Leído: Wilt Buscarlo en amazon.es
    Leyendo: La cruz de ceniza Buscarlo en amazon.es
    Fecha de Ingreso
    18 jul, 11
    Ubicación
    Santander
    Mensajes
    336
    Dar gracias
    446
    Gracias Recibidas: 224

    Re: Preparar archivos .doc para kindle con un macro de word

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

  18. #10
    Avatar de Me!
    Me! está desconectado [email protected] Mi eReader: kindle4
    Autores Favoritos: Asimov, Pratchett, Tolkien, King, Somoza, Sanderson
    Último Leído: Higiene del asesino Buscarlo en amazon.es
    Leyendo: (La rueda del tiempo 05) Cielo en llamas Buscarlo en amazon.es
    Fecha de Ingreso
    03 feb, 12
    Ubicación
    Quién sabe
    Mensajes
    10.299
    Dar gracias
    8.440
    Gracias Recibidas: 11.115

    Re: Preparar archivos .doc para kindle con un macro de word

    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?
    TEDD Y TODD: UNIVERSO TRUJILLO
    Padezco de 'ansia viva'(c)PhotoniKO 2012 Minipuntos: 2
    Pon un mod en tu vida judme!
    Lema del Foro: 'Don't Worry, Beer Happy'
    Mi recuento 2012, 2013,2014//Pendientes de lectura

    Para colaborar con el foro sólo tienes que marcar este link »» http://www.amazon.es/?tag=forokd-21
    como favorito en tu navegador habitual

Página 1 de 2 12 ÚltimoÚltimo

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  
Google Hablamos de: amazon.es Código o Cupón Descuentos para Kindle, Ofertas Kindle, Kindle Amazon, kindle paperwhite, kindle 4, Opiniones Kindle, Reseña Kindle, Comentarios Kindle, Análisis Kindle, Tutorial Kindle, ayuda venta segunda mano funda kindle precio kindle manual kindle autores lectores ebook formatos epub pdf

Site Map | Ofertas Hogar | Juguetes Juegos | Ofertas Deporte | Offerte Video Giochi | Offerte Giocatto | Mejores Precios | Mejores Móviles Calidad Precio | Mejor Ebook