FAQ WordConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 289, dernière mise à jour : 30 mars 2017 

 
OuvrirSommairePAO (Mise en page et mise en forme)PAO (Mise en page et mise en forme) VBA

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

vba
Sélectionnez

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'adapter le chemin
    With WordDoc.Sections(1)
        .Headers(wdHeaderFooterPrimary).Range.Text = "Le titre"
        .Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
        .Footers(wdHeaderFooterPrimary).PageNumbers.Add
    End With
 
Créé le 22 octobre 2006  par SilkyRoad

Que ce soit pour un signet ou pour un autre objet, vous devez travailler avec l'objet sélection pour pouvoir mettre du texte en gras.

 
Sélectionnez

ActiveDocument.Bookmarks(1).range.Select
With Selection
    .text = "Mon Texte"
    .Font.Bold = True
End With

Dans le code ci-avant, en plus de mettre du texte dans le signet, on le met en gras.

Créé le 20 janvier 2008  par Lebeau Olivier

Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

vba
Sélectionnez

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add
    WordApp.Visible = True
 
    With WordDoc.PageSetup
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .TopMargin = CentimetersToPoints(1.5)
        .BottomMargin = CentimetersToPoints(2)
    End With
 
Créé le 22 octobre 2006  par SilkyRoad

Le code suivant crée l'en-tête, centre le texte et le met en gras

 
Sélectionnez
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "En-tête"
With ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
    .Bold = True
    .ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
Créé le 6 février 2004  par bidou

On utilise pour cela l'objet PageSetup de document. Par exemple

 
Sélectionnez

With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = True
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
End With
Créé le 4 février 2004  par bidou

Avec ce code, vous pouvez choisir le mode de soulignement d'une sélection.

 
Sélectionnez

Selection.Font.Underline = wdUnderlineWavyHeavy

Liste des soulignements possibles.

  • wdUnderlineDash ++ Tirets.
  • wdUnderlineDashHeavy ++ Tirets épais.
  • wdUnderlineDashLong ++ Tirets longs.
  • wdUnderlineDashLongHeavy ++ Tirets longs épais.
  • wdUnderlineDotDash ++ Alternance de points et de tirets.
  • wdUnderlineDotDashHeavy ++ Alternance de points gras et de tirets gras.
  • wdUnderlineDotDotDash ++ Alternance de points et de points-tirets.
  • wdUnderlineDotDotDashHeavy ++ Alternance de points et de points-tirets épais.
  • wdUnderlineDotted ++ Points.
  • wdUnderlineDottedHeavy ++ Points épais.
  • wdUnderlineDouble ++ Double ligne.
  • wdUnderlineNone ++ Aucun soulignement.
  • wdUnderlineSingle ++ Trait simple. Valeur par défaut.
  • wdUnderlineThick ++ Trait épais simple.
  • wdUnderlineWavy ++ Trait ondulé simple.
  • wdUnderlineWavyDouble ++ Double trait ondulé.
  • wdUnderlineWavyHeavy ++ Trait ondulé épais.
  • wdUnderlineWords ++ Soulignement des mots individuels.
Créé le 25 avril 2007  par Lebeau Olivier
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.