1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| Sub traitement_complet_fichier_txt_résultat_de_cde_dir()
On Error GoTo Plouf
Dim Fic, Chemin, Chemincomplet, Message As String 'Déclaration des variables références fichier et chemin
Dim pAra As Paragraph 'Déclaration de la variable pAra pour référence à l'entité paragraphe
Dim LongPar As Integer 'longueur du paragraphe
' Ouverture du fichier texte issu de la cde Dos : "DIR"
' pour récupération des paramètres chemin et nom de fichier
On Error GoTo Plouf1
Dialogs(wdDialogFileOpen).Show 'équivalent de la cde Fichier -> ouvrir
Fic = ActiveDocument.Name ' récupération du nom de fichier dans une variable
Chemin = ActiveDocument.Path ' récupération du chemin dans une variable
Chemincomplet = Chemin + "\" + Fic
' ouverture du fichier avec modifs du code dos (code 850) et mise au format A3 en mode paysage.
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=Chemincomplet, ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=850
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape 'xxx
.TopMargin = CentimetersToPoints(1) 'anciennement 2.5
.BottomMargin = CentimetersToPoints(1) 'anciennement 2.5
.LeftMargin = CentimetersToPoints(1) 'anciennement 2.35
.RightMargin = CentimetersToPoints(1) 'anciennement 2.35
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(42) 'anciennement 29.7
.PageHeight = CentimetersToPoints(29.7) 'anciennement 42
.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
' Sauvegarde en format word du fichier ainsi créé
ActiveDocument.SaveAs FileName:="liste.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
' Positionnement du curseur en début de fichier
Selection.HomeKey Unit:=wdStory ' Positionnement en début de fichier
..........
FIN:
MsgBox ("C'est FINI !")
End Sub |
Partager