Classe Selection (Word VBA)

La classe Selection représente la sélection en cours dans une fenêtre ou un volet.

Les procédures principales de la classe Selection sont Copy, Delete et Select

Set

Pour utiliser une variable de classe Selection, elle doit d'abord être instanciée, par exemple

Dim slc as Selection
Set slc = Selection

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Selection : Application.Selection, Pane.Selection et Window.Selection

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Format with its procedures Borders, ClearCharacterAllFormatting, ClearCharacterDirectFormatting, ClearCharacterStyle, ClearFormatting, ClearParagraphAllFormatting, ClearParagraphDirectFormatting, ClearParagraphStyle, CopyFormat, FitTextWidth, Font, FormattedText, Information, InsertStyleSeparator, PageSetup, ParagraphFormat, PasteAndFormat, PasteFormat, ReadingModeGrowFont, ReadingModeShrinkFont, SelectCurrentColor, SelectCurrentFont, SelectCurrentSpacing et Style
Sort with its procedures Sort, SortAscending, SortByHeadings et SortDescending

Méthodes

Les méthodes principales de la classe Selection sont

Copy - Copie la sélection spécifiée dans le Presse-papiers.

Selection.Copy

Delete - Supprime le nombre de caractères ou de mots spécifié.

Dim lngDelete As Long
lngDelete = Selection.Delete()

Select - Sélectionne le texte spécifié.

Selection.Select

Autre Méthodes

Collapse - Réduit une sélection à la position de début ou de fin.

Selection.Collapse

ConvertToTable - Convertit le texte d'une plage à un tableau.

Dim tblConvertToTable As Table
Set tblConvertToTable = Selection.ConvertToTable()

EndKey - Cette méthode déplace ou étend la sélection vers la fin de l'unité précisée.

Dim lngEndKey As Long
lngEndKey = Selection.EndKey()

EndOf - Déplace ou étend l'emplacement du caractère de fin d'une plage ou d'une sélection vers la fin de l'unité de texte spécifiée la plus proche.

Dim lngEndOf As Long
lngEndOf = Selection.EndOf()

GoTo - Déplace le point d’insertion vers le caractère qui précède immédiatement l’élément spécifié et renvoie un objet Range (à l’exception de la constante wdGoToGrammaticalError, wdGoToProofreadingErrorou wdGoToSpellingError ).

Dim rngGoTo As Range
Set rngGoTo = Selection.GoTo()

HomeKey - Déplace ou étend la sélection vers le début de l’unité précisée.

Dim lngHomeKey As Long
lngHomeKey = Selection.HomeKey()

InsertCaption - Insère une légende immédiatement avant ou après la sélection spécifiée.

Dim strLabel As String: strLabel =  
Selection.InsertCaption Label:=strLabel

InsertCrossReference - Insère un renvoi correspondant à un titre, un signet, une note de bas de page, une note de fin, ou à un élément disposant d'une étiquette de légende (comme une équation, une figure ou un tableau).

Dim strReferenceItem As String: strReferenceItem =  
Selection.InsertCrossReference ReferenceType:=wdRefTypeBookmark, ReferenceKind:=wdContentText, ReferenceItem:=strReferenceItem

InsertDateTime - Insère la date et/ou l'heure courante sous forme de texte ou de champ TIME.

Selection.InsertDateTime

InsertFile - Insère tout ou partie du fichier spécifié.

Dim strFileName As String: strFileName =  
Selection.InsertFile FileName:=strFileName

InsertFormula - Insère dans la sélection un champ = (Formula) qui contient une formule.

Selection.InsertFormula

InsertSymbol - Insère un symbole à la place de la sélection spécifiée.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
Selection.InsertSymbol CharacterNumber:=lngCharacterNumber

InsertXML - Insère les données XML spécifiées dans le document à l'endroit du curseur, remplaçant ainsi tout texte sélectionné.

Dim strXML As String: strXML =  
Selection.InsertXML XML:=strXML

Move - Réduit la sélection spécifiée à sa position de début ou de fin, puis déplace l'objet réduit du nombre d'unités indiqué.

Dim lngMove As Long
lngMove = Selection.Move()

MoveDown - Déplace la sélection vers le bas et renvoie la distance de déplacement sous la forme d’un nombre d’unités.

Dim lngMoveDown As Long
lngMoveDown = Selection.MoveDown()

MoveEnd - Déplace le caractère de fin d'une plage ou d'une sélection.

Dim lngMoveEnd As Long
lngMoveEnd = Selection.MoveEnd()

MoveEndUntil - Déplace la position de fin de la sélection spécifiée jusqu'à ce qu'un des caractères indiqués soit trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveEndUntil As Long
lngMoveEndUntil = Selection.MoveEndUntil(Cset:=strCset)

MoveEndWhile - Déplace la position du caractère de fin d'une sélection tant que l'un des caractères spécifiés est trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveEndWhile As Long
lngMoveEndWhile = Selection.MoveEndWhile(Cset:=strCset)

MoveLeft - Déplace la sélection vers la gauche et renvoie la distance de déplacement sous la forme d'un nombre d'unités.

Dim lngMoveLeft As Long
lngMoveLeft = Selection.MoveLeft()

MoveRight - Déplace la sélection vers la droite et renvoie la distance de déplacement sous la forme d'un nombre d'unités.

Dim lngMoveRight As Long
lngMoveRight = Selection.MoveRight()

MoveStart - Déplace la position de début de la sélection spécifiée.

Dim lngMoveStart As Long
lngMoveStart = Selection.MoveStart()

MoveStartUntil - Déplace la position de début de la sélection spécifiée jusqu'à ce que l'un des caractères indiqués soit trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveStartUntil As Long
lngMoveStartUntil = Selection.MoveStartUntil(Cset:=strCset)

MoveStartWhile - Déplace la position de début de la sélection spécifiée tant que l'un des caractères spécifiés est trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveStartWhile As Long
lngMoveStartWhile = Selection.MoveStartWhile(Cset:=strCset)

MoveUntil - Déplace la sélection spécifiée jusqu'à ce que l'un des caractères indiqués soit trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveUntil As Long
lngMoveUntil = Selection.MoveUntil(Cset:=strCset)

MoveUp - Déplace la sélection vers le bas et renvoie la distance de déplacement exprimée sous la forme d'un nombre d'unités.

Dim lngMoveUp As Long
lngMoveUp = Selection.MoveUp()

MoveWhile - Déplace la sélection spécifiée tant que l'un des caractères indiqués est trouvé dans le document.

Dim strCset As String: strCset =  
Dim lngMoveWhile As Long
lngMoveWhile = Selection.MoveWhile(Cset:=strCset)

Next - Renvoie un objet Range qui représente l’unité suivante par rapport à la sélection spécifiée.

Dim rngNext As Range
Set rngNext = Selection.Next()

PasteExcelTable - Colle et met en forme un tableau Microsoft Excel.

Selection.PasteExcelTable LinkedToExcel:=True, WordFormatting:=True, RTF:=True

PasteSpecial - Insère le contenu du Presse-papiers.

Selection.PasteSpecial

Previous - Déplace le texte sélectionné du nombre d’unités spécifié et renvoie un objet Range relatif à la sélection réduite.

Dim rngPrevious As Range
Set rngPrevious = Selection.Previous()

SetRange - Définit l'emplacement du caractère de début et celui du caractère de fin pour la sélection.

Dim lngStart As Long: lngStart = 
Dim lngEnd As Long: lngEnd =  
Selection.SetRange Start:=lngStart, End:=lngEnd

StartOf - Déplace ou étend la position de début de la plage spécifiée ou la sélection au début de l'unité de texte spécifiée le plus proche.

Dim lngStartOf As Long
lngStartOf = Selection.StartOf()

Propriétés

Active True si la sélection dans la fenêtre spécifiée ou le volet est active.

Dim booActive As Boolean
booActive = Selection.Active

BookmarkID Renvoie le numéro du signet qui englobe le début de la sélection spécifiée.

Dim lngBookmarkID As Long
lngBookmarkID = Selection.BookmarkID

Bookmarks Renvoie une collection Bookmarks qui représente tous les signets contenus dans un document, une plage ou une sélection.

Dim bkmsBookmarks As Bookmarks
Set bkmsBookmarks = Selection.Bookmarks

Cells Renvoie une collection Cells qui représente les cellules de tableau d’une sélection.

Dim cllsCells As Cells
Set cllsCells = Selection.Cells

Characters Renvoie une collection Characters qui représente les caractères contenus dans un document, une plage ou une sélection.

Dim chrsCharacters As Characters
Set chrsCharacters = Selection.Characters

ChildShapeRange Renvoie une collection ShapeRange représentant les formes enfants contenues dans une sélection.

Dim sreChildShapeRange As ShapeRange
Set sreChildShapeRange = Selection.ChildShapeRange

Columns Renvoie une collection Columns qui représente toutes les colonnes d’une sélection.

Dim clmsColumns As Columns
Set clmsColumns = Selection.Columns

ColumnSelectMode Cette propriété a la valeur True si le mode sélection de colonne est activé.

Selection.ColumnSelectMode = True

Comments Renvoie une collection Comments qui représente tous les commentaires du document spécifié.

Dim cmmsComments As Comments
Set cmmsComments = Selection.Comments

Document Renvoie un objet document associé à la sélection spécifiée.

Dim docDocument As Document
Set docDocument = Selection.Document

Editors Renvoie un objet Editors qui représente tous les utilisateurs autorisés à modifier une sélection dans un document.

Dim edtsEditors As Editors
Set edtsEditors = Selection.Editors

End Cette propriété renvoie ou définit la position du caractère de fin d'une sélection.

Selection.End =

EndnoteOptions Renvoie un objet EndnoteOptions qui représente les notes de fin d'une sélection.

Dim eosEndnoteOptions As EndnoteOptions
Set eosEndnoteOptions = Selection.EndnoteOptions

Endnotes Renvoie une collection Endnotes qui représente toutes les notes de fin contenues dans une sélection.

Dim endsEndnotes As Endnotes
Set endsEndnotes = Selection.Endnotes

EnhMetaFileBits Renvoie une valeur de type Variant qui représente une image de la façon dont une sélection ou une plage de texte s’affiche.

Dim varEnhMetaFileBits As Variant
varEnhMetaFileBits = Selection.EnhMetaFileBits

ExtendMode True si le mode extension est actif.

Selection.ExtendMode = True

Fields Renvoie une collection Fields en lecture seule qui représente tous les champs contenus dans la sélection.

Dim fldsFields As Fields
Set fldsFields = Selection.Fields

Find Renvoie un objet Find qui contient les critères spécifiés pour une recherche.

Dim fndFind As Find
Set fndFind = Selection.Find

Flags Cette propriété renvoie ou définit les propriétés de la sélection.

Selection.Flags = wdSelActive

FootnoteOptions Renvoie un objet FootnoteOptions qui représente les notes de bas de page dans une sélection.

Dim fosFootnoteOptions As FootnoteOptions
Set fosFootnoteOptions = Selection.FootnoteOptions

Footnotes Renvoie une collection Footnotes qui représente toutes les notes de bas de page d’une plage, d’une sélection ou d’un document.

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = Selection.Footnotes

FormFields Renvoie une collection FormFields qui représente tous les champs de formulaire contenus dans la sélection.

Dim ffsFormFields As FormFields
Set ffsFormFields = Selection.FormFields

Frames Renvoie une collection frames qui représente tous les cadres contenus dans une sélection.

Dim frmsFrames As Frames
Set frmsFrames = Selection.Frames

HasChildShapeRange True si la sélection contienne des formes enfants.

Dim booHasChildShapeRange As Boolean
booHasChildShapeRange = Selection.HasChildShapeRange

HeaderFooter Renvoie un objet HeaderFooter pour la sélection spécifiée.

Dim hfrHeaderFooter As HeaderFooter
Set hfrHeaderFooter = Selection.HeaderFooter

HTMLDivisions Renvoie un objet HTMLDivisions qui représente une division HTML dans un document Web.

Dim htmsHTMLDivisions As HTMLDivisions
Set htmsHTMLDivisions = Selection.HTMLDivisions

Hyperlinks Renvoie une collection Hyperlinks qui représente tous les liens hypertexte de la sélection spécifiée.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = Selection.Hyperlinks

InlineShapes Renvoie une collection InlineShapes qui représente tous les objets InlineShape dans une sélection.

Dim issInlineShapes As InlineShapes
Set issInlineShapes = Selection.InlineShapes

IPAtEndOfLine True si le point d'insertion se trouve à la fin d'une ligne qui est renvoyé à la ligne suivante.

Dim booIPAtEndOfLine As Boolean
booIPAtEndOfLine = Selection.IPAtEndOfLine

IsEndOfRowMark True si la sélection ou la plage est réduite et se trouve à la marque de fin de ligne dans une table.

Dim booIsEndOfRowMark As Boolean
booIsEndOfRowMark = Selection.IsEndOfRowMark

LanguageDetected Cette propriété renvoie ou définit un type Boolean qui indique si Microsoft Word a détecté la langue du texte sélectionné.

Selection.LanguageDetected = True

LanguageID Renvoie ou définit la langue de l’objet spécifié.

Selection.LanguageID = wdAfrikaans

LanguageIDFarEast Renvoie ou définit une langue d'Asie orientale pour l'objet spécifié.

Selection.LanguageIDFarEast = wdAfrikaans

LanguageIDOther Renvoie ou définit la langue de l'objet spécifié.

Selection.LanguageIDOther = wdAfrikaans

NoProofing True si le vérificateur d'orthographe et de grammaire ignore le texte spécifié.

Selection.NoProofing =

OMaths Renvoie une collection OMaths qui représente les objets OMath dans la sélection actuelle.

Dim omsOMaths As OMaths
Set omsOMaths = Selection.OMaths

Orientation Cette propriété renvoie ou définit l'orientation du texte dans une sélection lorsque la fonctionnalité Orientation du texte est activée.

Selection.Orientation = wdTextOrientationDownward

Paragraphs Renvoie une collection paragraphs qui représente tous les paragraphes de la sélection spécifiée.

Dim prgsParagraphs As Paragraphs
Set prgsParagraphs = Selection.Paragraphs

Parent Renvoie un Object qui représente le parent de l’objet Selection spécifié.

Dim objParent As Object
Set objParent = Selection.Parent

PreviousBookmarkID Renvoie le numéro du dernier signet qui commence avant ou au même endroit que la sélection ou la plage ; Renvoie la valeur 0 (zéro) s'il n'existe pas de signet correspondant.

Dim lngPreviousBookmarkID As Long
lngPreviousBookmarkID = Selection.PreviousBookmarkID

Range Renvoie un objet Range qui représente la partie d’un document contenue dans l’objet spécifié.

Dim rngRange As Range
Set rngRange = Selection.Range

Rows Renvoie une collection Rows qui représente toutes les lignes de tableau d’une plage, d’une sélection ou d’un tableau.

Dim rwsRows As Rows
Set rwsRows = Selection.Rows

Sections Renvoie une collection sections qui représente les sections de la sélection spécifiée.

Dim sctsSections As Sections
Set sctsSections = Selection.Sections

Sentences Renvoie une collection sentences qui représente toutes les phrases de la sélection.

Dim sntsSentences As Sentences
Set sntsSentences = Selection.Sentences

Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour la sélection spécifiée.

Dim shdShading As Shading
Set shdShading = Selection.Shading

ShapeRange Renvoie une collection ShapeRange qui représente tous les objets Shape de la sélection.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = Selection.ShapeRange

Start Renvoie ou définit l’emplacement du caractère de début d’une sélection.

Selection.Start =

StartIsActive True si le début de la sélection est actif.

Selection.StartIsActive = True

StoryLength Renvoie le nombre de caractères dans l'article qui contient la sélection spécifiée.

Dim lngStoryLength As Long
lngStoryLength = Selection.StoryLength

StoryType Renvoie le type d'article de la sélection spécifiée.

Dim wstStoryType As WdStoryType
wstStoryType = Selection.StoryType

Tables Renvoie une collection tables qui représente l’ensemble des tableaux contenus dans la sélection spécifiée.

Dim tblsTables As Tables
Set tblsTables = Selection.Tables

Text Cette propriété renvoie ou définit le texte de la sélection spécifiée.

Selection.Text =

TopLevelTables Renvoie une collection tables qui représente les tableaux dont le niveau d’imbrication est le plus à l’extérieur de la sélection actuelle.

Dim tblsTopLevelTables As Tables
Set tblsTopLevelTables = Selection.TopLevelTables

Type Renvoie le type de sélection.

Dim wstType As WdSelectionType
wstType = Selection.Type

WordOpenXML Renvoie une valeur de type String qui représente les données XML contenues dans la sélection au format Open XML de Microsoft Word.

Dim strWordOpenXML As String
strWordOpenXML = Selection.WordOpenXML

Words Renvoie une collection Words qui représente tous les mots d’une sélection.

Dim wrdsWords As Words
Set wrdsWords = Selection.Words

XML Renvoie une valeur de type String qui représente le texte XML dans l’objet spécifié.

Dim strXML As String
strXML = Selection.XML