Klasse Range (Word VBA)

Die Klasse Range stellt einen fortlaufenden Bereich in einem Dokument dar.

Die wichtigste Prozeduren der Klasse Range sind Copy, Delete und Select

Set

Um eine Range -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim rng as Range
Set rng = ActiveDocument.Range()

Die folgenden Prozeduren können zum Festlegen der Range Klassenvariablen verwendet werden : Document.Characters, Characters, Selection.Characters, Document.GrammaticalErrors, Document.SpellingErrors, GrammaticalErrors, SpellingErrors, AutoTextEntry.Insert, Bookmark.Range, Break.Range, BuildingBlock.Insert, Cell.Range, Characters.Item, Characters.First, Characters.Last, CoAuthLock.Range, CoAuthUpdate.Range, Comment.Range, Comment.Reference, Comment.Scope, Conflict.Range, ContentControl.Range, Document.Range, Document.Content, Document.GoTo, Editor.Range, Editor.NextRange, Endnote.Range, Endnote.Reference, Endnotes.Separator, Endnotes.ContinuationNotice, Endnotes.ContinuationSeparator, Envelope.Address, Envelope.ReturnAddress, Field.Code, Field.Result, Footnote.Range, Footnote.Reference, Footnotes.Separator, Footnotes.ContinuationNotice, Footnotes.ContinuationSeparator, FormField.Range, Frame.Range, HeaderFooter.Range, HTMLDivision.Range, Hyperlink.Range, Index.Range, InlineShape.Range, Line.Range, List.Range, MailMergeField.Code, OMath.Range, OMathBreak.Range, OMathFunction.Range, OMaths.Add, Paragraph.Range, ProofreadingErrors.Item, Next, Previous, GoTo, Duplicate, GoToNext, GoToPrevious, FormattedText, GoToEditableRange, NextStoryRange, Rectangle.Range, RepeatingSectionItem.Range, Revision.Range, Revision.MovedRange, Row.Range, Row.ConvertToText, Rows.ConvertToText, Section.Range, Selection.Range, Selection.Next, Selection.Previous, Selection.GoTo, Selection.GoToNext, Selection.GoToPrevious, Selection.FormattedText, Selection.GoToEditableRange, Sentences.Item, Sentences.First, Sentences.Last, Series.Values, Series.XValues, Shape.Anchor, ShapeRange.Anchor, StoryRanges.Item, Subdocument.Range, Table.Range, Table.ConvertToText, TableOfAuthorities.Range, TableOfContents.Range, TableOfFigures.Range, TextFrame.ContainingRange, TextFrame.TextRange, Window.RangeFromPoint, Words.Item, Words.First, Words.Last, XMLNode.Range, Document.Sentences, Sentences, Selection.Sentences, Document.StoryRanges, Document.Words, Words und Selection.Words

For Each

Hier ist ein Beispiel für die Verarbeitung der Range -Elemente in einer Sammlung

Dim rngCharacter As Range
Dim iFontSize As Integer: iFontSize = 8
For Each rngCharacter In ActiveDocument.Words(1).Characters
    rngCharacter.Font.Size = iFontSize
    iFontSize = iFontSize + 2
Next rngCharacter

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Format with its procedures AutoFormat, Borders, CharacterStyle, CharacterWidth, FitTextWidth, Font, FormattedText, HighlightColorIndex, Information, ListFormat, ListStyle, PageSetup, ParagraphFormat, ParagraphStyle, PasteAndFormat, Style, TableStyle und TextVisibleOnScreen
Import/Export with its procedures ExportAsFixedFormat, ExportAsFixedFormat2, ExportFragment und ImportFragment

Methoden

Die Hauptmethoden der Klasse Range sind

Copy - Kopiert den angegebenen Bereich in die Zwischenablage.

ActiveDocument.Range.Copy

Delete - Löscht die angegebene Anzahl von Zeichen oder Wörtern.

Dim lngDelete As Long
lngDelete = ActiveDocument.Range.Delete()

Select - Markiert den angegebenen Bereich.

ActiveDocument.Range.Select

Andere Methoden

CheckSpelling - Führt eine Rechtschreibprüfung für das angegebene Dokument oder den angegebenen Bereich aus.

ActiveDocument.Range.CheckSpelling

Collapse - Reduziert einen Bereich oder eine Auswahl auf die Anfangs- oder Endposition.

ActiveDocument.Range.Collapse

ConvertHangulAndHanja - Wandelt den angegebenen Bereich von Hangul in Hanja um oder umgekehrt.

ActiveDocument.Range.ConvertHangulAndHanja

ConvertToTable - Konvertiert Text innerhalb eines Bereichs in eine Tabelle.

Dim tblConvertToTable As Table
Set tblConvertToTable = ActiveDocument.Range.ConvertToTable()

EndOf - Verschiebt oder erweitert die Position des letzten Zeichens eines Bereichs bis zum Ende der nächsten angegebenen Texteinheit.

Dim lngEndOf As Long
lngEndOf = ActiveDocument.Range.EndOf()

GetSpellingSuggestions - Gibt eine SpellingSuggestions-Auflistung zurück, die die Wörter darstellt, die als Ersetzung für das erste Wort im angegebenen Bereich vorgeschlagen wurden.

Dim sssGetSpellingSuggestions As SpellingSuggestions
Set sssGetSpellingSuggestions = ActiveDocument.Range.GetSpellingSuggestions()

GoTo - Gibt ein Range-Objekt zurück, das die Startposition des angegebenen Elements darstellt, z. B. eine Seite, Textmarke oder ein Feld.

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

InsertAlignmentTab - Ausdruck.

Dim lngAlignment As Long: lngAlignment =  
ActiveDocument.Range.InsertAlignmentTab Alignment:=lngAlignment

InsertCrossReference - Fügt einen Querverweis zu einer Überschrift, Textmarke, Fußnote oder Endnote oder zu einem Element, für das eine Beschriftungskategorie definiert wurde (z. B. eine Gleichung, Abbildung oder Tabelle), ein.

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

InsertDatabase - Ruft Daten aus einer Datenquelle ab (beispielsweise ein separates Microsoft Word Dokument, ein Microsoft Excel Arbeitsblatt oder eine Microsoft Access Datenbank) und fügt die Daten anstelle des angegebenen Bereichs als Tabelle ein.

ActiveDocument.Range.InsertDatabase

InsertDateTime - Fügt das aktuelle Datum, die aktuelle Zeit oder beides als Text oder TIME-Feld ein.

ActiveDocument.Range.InsertDateTime

InsertFile - Fügt die gesamte oder einen Teil der angegebenen Datei ein.

Dim strFileName As String: strFileName =  
ActiveDocument.Range.InsertFile FileName:=strFileName

InsertSymbol - Fügt an der Stelle des angegebenen Bereichs ein Symbol ein.

Dim lngCharacterNumber As Long: lngCharacterNumber =  
ActiveDocument.Range.InsertSymbol CharacterNumber:=lngCharacterNumber

InsertXML - Fügt die angegebene XML-Zeichenfolge im angegebenen Bereich in das Dokument ein und ersetzt dabei den in dem Bereich enthaltenen Text.

Dim strXML As String: strXML =  
ActiveDocument.Range.InsertXML XML:=strXML

ModifyEnclosure - Umschließt die angegebenen Zeichen, ändert die Umschließung oder entfernt sie.

ActiveDocument.Range.ModifyEnclosure Style:=

Move - Reduziert den angegebenen Bereich auf seine Start- bzw. Endposition und verschiebt das reduzierte Objekt dann um die angegebene Anzahl von Einheiten.

Dim lngMove As Long
lngMove = ActiveDocument.Range.Move()

MoveEnd - Verschiebt die Position des letzten Zeichens eines Bereichs.

Dim lngMoveEnd As Long
lngMoveEnd = ActiveDocument.Range.MoveEnd()

MoveEndUntil - Verschiebt die Endposition des angegebenen Bereichs, bis eines der angegebenen Zeichen im Dokument gefunden wird.

Dim lngMoveEndUntil As Long
lngMoveEndUntil = ActiveDocument.Range.MoveEndUntil(Cset:=)

MoveEndWhile - Verschiebt die Endzeichenposition eines Bereichs, solange eines der angegebenen Zeichen im Dokument gefunden wird.

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

MoveStart - Verschiebt die Startposition des angegebenen Bereichs.

Dim lngMoveStart As Long
lngMoveStart = ActiveDocument.Range.MoveStart()

MoveStartUntil - Verschiebt die Startposition des angegebenen Bereichs, bis eines der angegebenen Zeichen im Dokument gefunden wird.

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

MoveStartWhile - Verschiebt die Startposition des angegebenen Bereichs, solange eines der angegebenen Zeichen im Dokument gefunden wird.

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

MoveUntil - Verschiebt den angegebenen Bereich, bis eines der angegebenen Zeichen im Dokument gefunden wird.

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

MoveWhile - Verschiebt den angegebenen Bereich, bis eines der angegebenen Zeichen im Dokument gefunden wird.

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

Next - Gibt ein Range -Objekt zurück, das die angegebene Einheit relativ zum angegebenen Bereich darstellt.

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

PasteExcelTable - Fügt eine Microsoft Excel-Tabelle ein und formatiert sie.

ActiveDocument.Range.PasteExcelTable LinkedToExcel:=True, WordFormatting:=True, RTF:=True

PasteSpecial - Fügt den Inhalt der Zwischenablage ein.

ActiveDocument.Range.PasteSpecial

PhoneticGuide - Fügt dem angegebenen Bereich phonetische Leitzeichen hinzu.

Dim strText As String: strText =  
ActiveDocument.Range.PhoneticGuide Text:=strText

Previous - Gibt den vorherigen Bereich a relativ zum angegebenen Bereich zurück.

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

SetRange - Legt die Anfangs- und die Endzeichenposition für einen vorhandenen Bereich fest.

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

StartOf - Verschiebt oder erweitert die Startposition des angegebenen Bereichs oder der Markierung zum Anfang der nächsten angegebenen Texteinheit.

Dim lngStartOf As Long
lngStartOf = ActiveDocument.Range.StartOf()

TCSCConverter - Konvertiert den angegebenen Bereich von traditionellem Chinesisch in vereinfachtes Chinesisch oder umgekehrt.

ActiveDocument.Range.TCSCConverter

Eigenschaften

Characters.Count Gibt die Anzahl der in der Characters-Auflistung enthaltenen Zeichen zurück.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Characters.Count

Characters.First Gibt ein Range -Objekt zurück, das das erste Zeichen in der Auflistung darstellt.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Range.Characters.First

Characters.Last Gibt ein Range -Objekt zurück, das das letzte Zeichen in der Auflistung darstellt.

Dim rngLast As Range
Set rngLast = ActiveDocument.Range.Characters.Last

Characters.Parent Gibt ein Object zurück, welches das übergeordnete Objekt des angegebenen Characters-Objekts repräsentiert.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Characters.Parent

ProofreadingErrors.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl von Korrektur Fehlern in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.SpellingErrors.Count

ProofreadingErrors.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ProofreadingErrors-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.SpellingErrors.Parent

ProofreadingErrors.Type Gibt den Typ des Korrekturfehlers zurück.

Dim wpeType As WdProofreadingErrorType
wpeType = ActiveDocument.SpellingErrors.Type

Bold True, wenn der Bereich fett formatiert ist.

ActiveDocument.Range.Bold =

BoldBi True, wenn die Schriftart oder der Bereich fett formatiert ist.

ActiveDocument.Range.BoldBi =

BookmarkID Gibt die Nummer der Textmarke zurück, die den Anfang des angegebenen Bereichs einschließt. gibt 0 (null) zurück, wenn kein entsprechendes Lesezeichen vorhanden ist.

Dim lngBookmarkID As Long
lngBookmarkID = ActiveDocument.Range.BookmarkID

Bookmarks Gibt eine Bookmarks -Auflistung zurück, die alle Textmarken in einem Dokument, einem Bereich oder einer Auswahl darstellt.

Dim bkmsBookmarks As Bookmarks
Set bkmsBookmarks = ActiveDocument.Range.Bookmarks

Case Gibt eine WdCharacterCase -Konstante zurück, die die Groß-/Kleinschreibung des Texts im angegebenen Bereich darstellt, oder legt diese fest.

ActiveDocument.Range.Case = wdFullWidth

Cells Gibt eine Cells -Auflistung zurück, die die Tabellenzellen in einem Bereich darstellt.

Dim cllsCells As Cells
Set cllsCells = ActiveDocument.Range.Cells

Characters Gibt eine Characters -Auflistung zurück, die die Zeichen in einem Bereich darstellt.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveDocument.Range.Characters

Columns Gibt eine Columns -Auflistung zurück, die alle Tabellenspalten im Bereich darstellt.

Dim clmsColumns As Columns
Set clmsColumns = ActiveDocument.Range.Columns

CombineCharacters True, wenn der angegebene Bereich kombinierte Zeichen enthält.

ActiveDocument.Range.CombineCharacters = True

Comments Gibt eine comments -Auflistung zurück, die alle Kommentare im angegebenen Dokument, in der Auswahl oder im Bereich darstellt.

Dim cmmsComments As Comments
Set cmmsComments = ActiveDocument.Range.Comments

Conflicts Gibt ein Conflicts -Auflistungsobjekt zurück, das alle Conflict-Objekte im Bereich enthält.

Dim cnfsConflicts As Conflicts
Set cnfsConflicts = ActiveDocument.Range.Conflicts

ContentControls Gibt eine ContentControls -Auflistung zurück, die die in einem Bereich enthaltenen Inhaltssteuerelemente darstellt.

Dim ccsContentControls As ContentControls
Set ccsContentControls = ActiveDocument.Range.ContentControls

DisableCharacterSpaceGrid True, wenn die Anzahl der Zeichen pro Zeile für das betreffende Range-Objekt von Microsoft Word ignoriert wird.

ActiveDocument.Range.DisableCharacterSpaceGrid = True

Document Gibt ein Document -Objekt zurück, das dem angegebenen Bereich zugeordnet ist.

Dim docDocument As Document
Set docDocument = ActiveDocument.Range.Document

Duplicate Gibt ein schreibgeschütztes Range -Objekt zurück, das alle Eigenschaften des angegebenen Bereichs darstellt.

Dim rngDuplicate As Range
Set rngDuplicate = ActiveDocument.Range.Duplicate

Editors Gibt ein Editors -Objekt zurück, das alle Benutzer darstellt, die zum Ändern einer Auswahl oder eines Bereichs in einem Dokument autorisiert sind.

Dim edtsEditors As Editors
Set edtsEditors = ActiveDocument.Range.Editors

EmphasisMark Gibt das Betonungszeichen für ein Zeichen oder eine bestimmte Zeichenfolge zurück oder legt dieses Zeichen fest.

ActiveDocument.Range.EmphasisMark = wdEmphasisMarkNone

End Gibt die Endzeichenposition eines Bereichs zurück oder legt sie fest.

ActiveDocument.Range.End =

EndnoteOptions Gibt ein EndnoteOptions-Objekt zurück, das die Endnoten in einem Bereich darstellt.

Dim eosEndnoteOptions As EndnoteOptions
Set eosEndnoteOptions = ActiveDocument.Range.EndnoteOptions

Endnotes Gibt eine Endnotes-Auflistung zurück, die alle Endnoten in einem Bereich darstellt.

Dim endsEndnotes As Endnotes
Set endsEndnotes = ActiveDocument.Range.Endnotes

EnhMetaFileBits Gibt einen Variant -Wert zurück, der eine Bilddarstellung zeigt, wie ein Textbereich angezeigt wird.

Dim varEnhMetaFileBits As Variant
varEnhMetaFileBits = ActiveDocument.Range.EnhMetaFileBits

Fields Gibt eine Fields -Auflistung zurück, die alle Felder im Bereich darstellt.

Dim fldsFields As Fields
Set fldsFields = ActiveDocument.Range.Fields

Find Gibt ein Find -Objekt zurück, das die Kriterien für einen Suchvorgang enthält.

Dim fndFind As Find
Set fndFind = ActiveDocument.Range.Find

FootnoteOptions Gibt das FootnoteOptions-Objekt zurück, das die Fußnoten in einer Auswahl oder einem Bereich darstellt.

Dim fosFootnoteOptions As FootnoteOptions
Set fosFootnoteOptions = ActiveDocument.Range.FootnoteOptions

Footnotes Gibt eine Footnotes -Auflistung zurück, die alle Fußnoten in einem Bereich darstellt.

Dim ftnsFootnotes As Footnotes
Set ftnsFootnotes = ActiveDocument.Range.Footnotes

FormFields Gibt eine FormFields -Auflistung zurück, die alle Formularfelder im Bereich darstellt.

Dim ffsFormFields As FormFields
Set ffsFormFields = ActiveDocument.Range.FormFields

Frames Gibt eine Frames -Auflistung zurück, die alle Frames in einem Bereich darstellt.

Dim frmsFrames As Frames
Set frmsFrames = ActiveDocument.Range.Frames

GrammarChecked True, wenn für einen angegebenen Bereich oder ein Dokument eine Grammatikprüfung ausgeführt wurde.

ActiveDocument.Range.GrammarChecked = True

GrammaticalErrors Gibt eine ProofreadingErrors -Auflistung zurück, die die Sätze darstellt, bei denen die Grammatikprüfung für das angegebene Dokument oder den angegebenen Bereich fehlgeschlagen ist.

Dim pesGrammaticalErrors As ProofreadingErrors
Set pesGrammaticalErrors = ActiveDocument.Range.GrammaticalErrors

HorizontalInVertical Gibt die Formatierung für ein horizontales Textstück innerhalb von vertikalem Text zurück oder legt sie fest.

ActiveDocument.Range.HorizontalInVertical = wdHorizontalInVerticalFitInLine

HTMLDivisions Gibt ein HTMLDivisions -Objekt zurück, das eine HTML-Abteilung in einem Webdokument darstellt.

Dim htmsHTMLDivisions As HTMLDivisions
Set htmsHTMLDivisions = ActiveDocument.Range.HTMLDivisions

Hyperlinks Gibt eine Hyperlinks -Auflistung zurück, die alle Hyperlinks im angegebenen Bereich darstellt.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveDocument.Range.Hyperlinks

ID Gibt den Identifikationsnamen für den angegebenen Bereich zurück oder legt diesen fest.

ActiveDocument.Range.ID =

InlineShapes Gibt eine InlineShapes-Auflistung zurück, die alle InlineShape-Objekte in einem Bereich darstellt.

Dim issInlineShapes As InlineShapes
Set issInlineShapes = ActiveDocument.Range.InlineShapes

IsEndOfRowMark True, wenn der angegebene Bereich reduziert ist und sich an der Zeilendemarkierung in einer Zeile befindet.

Dim booIsEndOfRowMark As Boolean
booIsEndOfRowMark = ActiveDocument.Range.IsEndOfRowMark

Italic True, wenn die Schriftart oder der Bereich kursiv formatiert ist.

ActiveDocument.Range.Italic =

ItalicBi True, wenn die Schriftart oder der Bereich kursiv formatiert ist.

ActiveDocument.Range.ItalicBi =

Kana Gibt zurück, ob der angegebene Bereich des japanischsprachigen Texts Hiragana oder Katakana ist, oder legt dies fest.

ActiveDocument.Range.Kana = wdKanaHiragana

LanguageDetected Gibt einen Wert zurück, der angibt, ob die Sprache des ausgewählten Texts von Microsoft Word erkannt wird, oder legt diesen Wert fest.

ActiveDocument.Range.LanguageDetected = True

LanguageID Gibt eine WdLanguageID -Konstante zurück, die die Sprache für den angegebenen Bereich darstellt, oder legt diese fest.

ActiveDocument.Range.LanguageID = wdAfrikaans

LanguageIDFarEast Gibt für das angegebene Objekt eine ostasiatische Sprache zurück oder legt diese fest.

ActiveDocument.Range.LanguageIDFarEast = wdAfrikaans

LanguageIDOther Gibt die Sprache für den angegebenen Bereich zurück oder legt diese fest.

ActiveDocument.Range.LanguageIDOther = wdAfrikaans

ListParagraphs Gibt eine ListParagraphs -Auflistung zurück, die alle nummerierten Absätze im Bereich darstellt.

Dim lpsListParagraphs As ListParagraphs
Set lpsListParagraphs = ActiveDocument.Range.ListParagraphs

Locks Gibt ein CoAuthLocks -Auflistungsobjekt zurück, das alle Sperren im Bereich darstellt.

Dim calsLocks As CoAuthLocks
Set calsLocks = ActiveDocument.Range.Locks

NextStoryRange Gibt ein Range -Objekt zurück, das auf das nächste Stockwerk verweist.

Dim rngNextStoryRange As Range
Set rngNextStoryRange = ActiveDocument.Range.NextStoryRange

NoProofing True, wenn die Rechtschreib- und Grammatikprüfung den angegebenen Text ignoriert.

ActiveDocument.Range.NoProofing =

OMaths Gibt eine OMaths -Auflistung zurück, die die OMath -Objekte innerhalb des angegebenen Bereichs darstellt.

Dim omsOMaths As OMaths
Set omsOMaths = ActiveDocument.Range.OMaths

Orientation Gibt die Ausrichtung des Texts in einem Bereich zurück oder legt sie fest, wenn das Textrichtungsfeature aktiviert ist.

ActiveDocument.Range.Orientation = wdTextOrientationDownward

Paragraphs Gibt eine Paragraphs -Auflistung zurück, die alle Absätze im angegebenen Bereich darstellt.

Dim prgsParagraphs As Paragraphs
Set prgsParagraphs = ActiveDocument.Range.Paragraphs

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Range-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Parent

ParentContentControl Gibt ein ContentControl -Objekt zurück, das das übergeordnete Inhaltssteuerelement für den angegebenen Bereich darstellt.

Dim cclParentContentControl As ContentControl
Set cclParentContentControl = ActiveDocument.Range.ParentContentControl

PreviousBookmarkID Gibt die Nummer der letzten Textmarke zurück, die vor oder an derselben Stelle wie der angegebene Bereich startet.

Dim lngPreviousBookmarkID As Long
lngPreviousBookmarkID = ActiveDocument.Range.PreviousBookmarkID

ReadabilityStatistics Gibt eine ReadabilityStatistics -Auflistung zurück, die die Statistiken zur Lesbarkeit für das angegebene Dokument oder den angegebenen Bereich darstellt.

Dim rssReadabilityStatistics As ReadabilityStatistics
Set rssReadabilityStatistics = ActiveDocument.Range.ReadabilityStatistics

Revisions Gibt eine rerevisions-Auflistung zurück, die die nachverfolgten Änderungen im Bereich darstellt.

Dim rvsRevisions As Revisions
Set rvsRevisions = ActiveDocument.Range.Revisions

Rows Gibt eine Rows -Auflistung zurück, die alle Tabellenzeilen in einem Bereich darstellt.

Dim rwsRows As Rows
Set rwsRows = ActiveDocument.Range.Rows

Scripts Gibt eine Scripts -Auflistung zurück, die die Auflistung von HTML-Skripten im angegebenen Objekt darstellt.

Dim scrsScripts As Office.Scripts
scrsScripts = ActiveDocument.Range.Scripts

Sections Gibt eine Sections -Auflistung zurück, die die Abschnitte im angegebenen Bereich darstellt.

Dim sctsSections As Sections
Set sctsSections = ActiveDocument.Range.Sections

Sentences Gibt eine Sentences -Auflistung zurück, die alle Sätze im Bereich darstellt.

Dim sntsSentences As Sentences
Set sntsSentences = ActiveDocument.Range.Sentences

Shading Gibt ein Shading -Objekt zurück, das auf die Formatierung der Schattierung für das angegebene Objekt verweist.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.Shading

ShapeRange Gibt eine ShapeRange -Auflistung zurück, die alle Shape -Objekte im angegebenen Bereich darstellt.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveDocument.Range.ShapeRange

ShowAll True, wenn alle nicht druckbaren Zeichen angezeigt werden (z. B. ausgeblendeter Text, Tabstoppmarkierungen, Leerzeichen und Absatzmarken).

ActiveDocument.Range.ShowAll = True

SpellingChecked True, wenn die Rechtschreibung des angegebenen Bereichs oder Dokuments überprüft wurde.

ActiveDocument.Range.SpellingChecked = True

SpellingErrors Gibt eine ProofreadingErrors -Auflistung zurück, die die Wörter darstellt, die als Rechtschreibfehler im angegebenen Bereich identifiziert wurden.

Dim pesSpellingErrors As ProofreadingErrors
Set pesSpellingErrors = ActiveDocument.Range.SpellingErrors

Start Gibt die Anfangszeichenposition eines Bereichs zurück.

ActiveDocument.Range.Start =

StoryLength Gibt die Anzahl der Zeichen im Artikel zurück, der den angegebenen Bereich enthält.

Dim lngStoryLength As Long
lngStoryLength = ActiveDocument.Range.StoryLength

StoryType Gibt die Art des Artikels für den angegebenen Bereich, die angegebene Auswahl oder Textmarke zurück.

Dim wstStoryType As WdStoryType
wstStoryType = ActiveDocument.Range.StoryType

Subdocuments Gibt eine Subdocuments-Auflistung zurück, die alle Filialdokumente im angegebenen Bereich oder Dokument darstellt.

Dim sbdsSubdocuments As Subdocuments
Set sbdsSubdocuments = ActiveDocument.Range.Subdocuments

SynonymInfo Gibt ein SynonymInfo -Objekt zurück, das Informationen aus dem Thesaurus zu Synonymen, Antonyme oder verwandten Wörtern und Ausdrücken für den Inhalt eines Bereichs enthält.

Dim sioSynonymInfo As SynonymInfo
Set sioSynonymInfo = ActiveDocument.Range.SynonymInfo

Tables Gibt eine Tables -Auflistung zurück, die alle Tabellen im angegebenen Bereich darstellt.

Dim tblsTables As Tables
Set tblsTables = ActiveDocument.Range.Tables

Text Gibt den Text im angegebenen Bereich oder der angegebenen Auswahl zurück oder legt ihn fest.

ActiveDocument.Range.Text =

TextRetrievalMode Gibt ein TextRetrievalMode -Objekt zurück, das steuert, wie Text aus dem angegebenen Bereichabgerufen wird.

ActiveDocument.Range.TextRetrievalMode =

TopLevelTables Gibt eine Tables -Auflistung zurück, die die Tabellen auf der äußersten Schachtelungsebene im aktuellen Bereich darstellt.

Dim tblsTopLevelTables As Tables
Set tblsTopLevelTables = ActiveDocument.Range.TopLevelTables

TwoLinesInOne Gibt zurück, ob in Microsoft Word zwei Textzeilen in einer Zeile zusammengefasst werden, oder legt dies fest, und gibt gegebenenfalls die Zeichen an, die den Text umschließen.

ActiveDocument.Range.TwoLinesInOne = wdTwoLinesInOneAngleBrackets

Underline Gibt die Art der Unterstreichung eines Bereichs zurück oder legt sie fest.

ActiveDocument.Range.Underline = wdUnderlineDash

Updates Gibt ein CoAuthUpdates -Auflistungsobjekt zurück, das alle Aktualisierungen darstellt, die beim letzten expliziten Speichern in den angegebenen Bereich zusammengeführt wurden.

Dim causUpdates As CoAuthUpdates
Set causUpdates = ActiveDocument.Range.Updates

WordOpenXML Gibt eine Zeichenfolge , die den XML-Code innerhalb des Bereich im Microsoft Word Open XML-Format darstellt.

Dim strWordOpenXML As String
strWordOpenXML = ActiveDocument.Range.WordOpenXML

Words Gibt eine Words -Auflistung zurück, die alle Wörter in einem Bereich darstellt.

Dim wrdsWords As Words
Set wrdsWords = ActiveDocument.Range.Words

XML Gibt einen Wert vom Typ String zurück, der den XML-Text im angegebenen Objekt darstellt.

Dim strXML As String
strXML = ActiveDocument.Range.XML

Sentences.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Sätze in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Sentences.Count

Sentences.First Gibt ein Range -Objekt zurück, das den ersten Satz in einer Auflistung von Sätzen in einem Dokument, einem Bereich oder einer Auswahl darstellt.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Sentences.First

Sentences.Last Gibt ein Range -Objekt zurück, das den letzten Satz in einem Dokument, einer Auswahl oder einem Bereich darstellt.

Dim rngLast As Range
Set rngLast = ActiveDocument.Sentences.Last

Sentences.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Sentences-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Sentences.Parent

StoryRanges.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Textabschnitts Bereiche in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.StoryRanges.Count

StoryRanges.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen StoryRanges-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.StoryRanges.Parent

Words.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Wörter in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Words.Count

Words.First Gibt ein Range -Objekt zurück, das das erste Wort in einer Auflistung von Wörtern darstellt.

Dim rngFirst As Range
Set rngFirst = ActiveDocument.Words.First

Words.Last Gibt ein Range -Objekt zurück, das das letzte Wort in einer Auflistung von Wörtern darstellt.

Dim rngLast As Range
Set rngLast = ActiveDocument.Words.Last

Words.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Words-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Words.Parent