aPRE txt E CONVERTE IN pdf CON WORD

APRE UN FILE DI TESTO E LO CONVERTE In word E POI In pdf

Imports Microsoft.Office.Interop


Public Class Form1


Dim wrdApp As Word.Application
Dim wrdDoc As Word._Document



Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim wrdSelection As Word.Selection
Dim wrdMailMerge As Word.MailMerge
Dim wrdMergeFields As Word.MailMergeFields
Dim wdStory = 6
Dim wdExtend = 1



' Create an instance of Word and make it visible.

wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

' Add a new document.


wrdDoc = wrdApp.Documents.Add("Z:\Stipendi\03Stipendi\Pre99xxm\PRE9918M.txt")
'wrdDoc = wrdApp.Documents.Open("Z:\Stipendi\03Stipendi\Pre99xxm\PRE9918M.txt")

' Vai all-inizio pagina

wrdApp.Selection.HomeKey(Unit:=wdStory)
' seleziona fino alla fine

wrdApp.Selection.EndKey(Unit:=wdStory, Extend:=wdExtend)

wrdDoc.Select()

wrdApp.WordBasic.TogglePortrait(TAB:=3, PaperSize:=0, TopMargin:="2.35", _
BottomMargin:="2.35", LeftMargin:="2", RightMargin:="2.5", Gutter:="0", _
PageWidth:="29.7", PageHeight:="21", Orientation:=1, FirstPage:=0, _
OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
HeaderDistance:="1.25", FooterDistance:="1.25", SectionStart:=2, _
OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
StartingNum:=1, FromText:=0, CountBy:=0, NumMode:=0, _
TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=41, LinesPage:= _
39, CharPitch:=220, LinePitch:=360, DocFontName:="+Corpo", DocFontSize:= _
11, PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, SectionType:=1, _
FolioPrint:=0, ReverseFolio:=0, FolioPages:=1)
wrdApp.Selection.Font.Name = "Lucida Console"
wrdApp.Selection.Font.Size = 7
wrdApp.Selection.PageSetup.RightMargin = (1) ' CentimetersToPoints
wrdApp.ActiveWindow.ActivePane.LargeScroll(Down:=-1)
wrdApp.Selection.PageSetup.LeftMargin = (1) ' CentimetersToPoints

' pdf

wrdApp.ActiveDocument.ExportAsFixedFormat(OutputFileName:= _
"C:\PROVA\PRE99902.pdf", ExportFormat:= _
17, OpenAfterExport:=False, OptimizeFor:= _
0, Range:=0, From:=1, To:=1, _
Item:=0, IncludeDocProps:=False, KeepIRM:=False, _
CreateBookmarks:=1, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False)

' Close the original form document.

' wrdDoc.Saved = True

wrdDoc.Close(False)

' Release References.

wrdSelection = Nothing
wrdMailMerge = Nothing
wrdMergeFields = Nothing
wrdDoc = Nothing
wrdApp = Nothing

' Clean up temp file.

'System.IO.File.Delete("C:\DataDoc.doc")



End Sub



End Class