Astuces Excel
  1. Astuces Excel
  3. VBA Word – Déplace le slider vers une nouvelle ligne au-delà de la frontière
Intereting Posts
Insertion d'un tableau dans Excel Comment puis-je cacher la valeur minimale sur l'axe des Y d'un graphique de ligne Excel sans couvrir de forme blanche? Comment parsingr les cellules et supprimer datatables sélectionnées d'excel Effacer les contenus d'un champ pendant le raclage en utilisant Excel VBA Formule Vlookup dans excel Comment écrire de la valeur à plusieurs cellules dans Excel avec DataNitro Je suis en train de concevoir une table dans angularjs avec option de filtrage multi-text pour chaque colonne comme dans excel VB Excel – Pour find des matchs Rotation du text d'en-tête dans les cellules dans les pandas Chaîne de connection dans app.config Importation de colonne supplémentaire dans sql DB, via c # ou sql ou? Principes fondamentaux de MS Excel: se référant à une cellule pour raccourcir le time de search Utilisation de WorksheetFunction.Match sur une list non commandée et pas exacte Masquer les tabs à l'aide d'une macro accéder à excel comme database en utilisant jdbc sur server distant

VBA Word – Déplace le slider vers une nouvelle ligne au-delà de la frontière

J'essaie de déplacer le slider vers une nouvelle ligne dans le document Word que je génère d'Excel à l'aide de VBA.

Je parviens à append une nouvelle ligne, mais la dernière input de text dans le document Word comporte des bordures supérieures et inférieures, chaque nouvelle ligne ajoutée rest dans ces limites. Existe-t-il un moyen de quitter cette case et d'aller au-delà de la frontière?

Le code est joint. Toute aide est très appréciée, merci! 

Option Explicit Sub CreateWordDocument() Dim wdApp As Object Dim wdDoc As Object Dim wdSelection As Object Dim wdTable As Object Dim wdRange As Object Set wdApp = CreateObject("Word.Application") wdApp.Visible = True Set wdDoc = wdApp.Documents.Add Set wdSelection = wdApp.Selection With wdSelection .Font.Name = "Calibri Light" .Font.Size = "26" .Font.Color = RGB(0, 0, 0) .TypeText Text:=("TEXT 1") .ParagraphFormat.SpaceAfter = 0 .TypeParagraph .Font.Name = "Calibri Light" .Font.Size = "11" .Font.Color = RGB(128, 128, 128) .TypeText ("Text 2") .ParagraphFormat.SpaceAfter = 0 .TypeParagraph .TypeParagraph .Font.Name = "Calibri Light" .Font.Size = "11" .Font.Color = RGB(128, 128, 128) .TypeText ("Text 3") With .ParagraphFormat .Alignment = 1 .Borders(-1).LineStyle = 1 .Borders(-1).LineWidth = 2 .Borders(-3).LineStyle = 1 .Borders(-3).LineWidth = 2 End With .TypeParagraph ' !!! This line must be modified End With End Sub

Ce n'est pas très élégant, mais vous pouvez reporter les limites jusqu'à plus tard: 

 Sub CreateWordDocument() Dim wdApp As Object Dim wdDoc As Object Dim wdSelection As Object Dim wdTable As Object Dim wdRange As Object Set wdApp = CreateObject("Word.Application") wdApp.Visible = True Set wdDoc = wdApp.Documents.Add Set wdSelection = wdApp.Selection With wdSelection .Font.Name = "Calibri Light" .Font.Size = "26" .Font.Color = RGB(0, 0, 0) .TypeText Text:=("TEXT 1") .ParagraphFormat.SpaceAfter = 0 .TypeParagraph .Font.Name = "Calibri Light" .Font.Size = "11" .Font.Color = RGB(128, 128, 128) .TypeText ("Text 2") .ParagraphFormat.SpaceAfter = 0 .TypeParagraph .TypeParagraph .Font.Name = "Calibri Light" .Font.Size = "11" .Font.Color = RGB(128, 128, 128) .TypeText ("Text 3") .TypeParagraph ' !!! This line must be modified End With With wdDoc.Paragraphs(4) With .Format .Alignment = 1 .Borders(-1).LineStyle = 1 .Borders(-1).LineWidth = 2 .Borders(-3).LineStyle = 1 .Borders(-3).LineWidth = 2 End With End With End Sub

J'espère que cela pourra aider.