Word 2010 Macro to automatically save current txt file as pdf file

   
Here’s a word 2010 macro I created for my self which does the following things:

1. select all

2. Change font size to 24

3. Change page Margins to narrow

4. Save the current file as pdf (change current file name from .txt to .pdf, and save to the same directory)

5. put the marco to the quick access toolbar

The marco:

Sub MacroGenerateKindlePdf()
'
' MacroGenerateKindlePdf Macro
'
'
    Selection.WholeStory
    Selection.Font.Size = 24
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = InchesToPoints(0.5)
        .BottomMargin = InchesToPoints(0.5)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(8.5)
        .PageHeight = InchesToPoints(11)
        .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
        .LayoutMode = wdLayoutModeDefault
    End With
   
    Dim name As String
    name = ActiveDocument.name
    name = ActiveDocument.Path + "\" + Strings.Replace(name, ".txt", ".pdf")
   
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        name, _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
       
    SendKeys ("{HOME}")
   
End Sub

How to convert Chinese txt to pdf and view it in Kindle

With the following blog, it appeared Chinese txt files can be read in Kindle.

http://lifeofxdage.blogspot.com/2011/03/how-to-get-your-kindle-3-to-show.html 

But I got into some warning when trying to read a Chinese txt file and went through only a few pages out of a few thousand pages.

So I fall back to making txt as pdf files.

This is what I normally do:

a. Separate a big txt file to a few files each about 300k size.  300k size of Chinese txt files are about 1000 pages when converted later.  The reason doing that is because my Kindle 3 performs badly when pdf file has too many pages.  I wrote a small program to do that, or you can do it via Microsoft Word.

b. Opening one of the txt file in Microsoft Word 2010, by drag and drop the txt file to an opened word.  It will ask to convert the txt by auto determining its encoding.  e.g. Chinese Simplified (GB2312), click OK.

c. Select all, make font size 24, page layout, margin narrow

d. Save as pdf file

Then you’ll have a pdf file which can be downloaded to Kindle.