TextSelection.WordRight 메서드

선택한 텍스트를 지정된 단어 수만큼 오른쪽으로 이동합니다.

네임스페이스:  EnvDTE
어셈블리:  EnvDTE(EnvDTE.dll)

구문

‘선언
Sub WordRight ( _
    Extend As Boolean, _
    Count As Integer _
)

void WordRight(
    bool Extend,
    int Count
)

void WordRight(
    [InAttribute] bool Extend, 
    [InAttribute] int Count
)

abstract WordRight : 
        Extend:bool * 
        Count:int -> unit 

function WordRight(
    Extend : boolean, 
    Count : int
)

매개 변수

• Extend
  형식: System.Boolean
  선택적 요소.이동된 텍스트가 축소되었는지 여부를 확인합니다.기본값은 false입니다.

• Count
  형식: System.Int32
  선택적 요소.오른쪽으로 이동할 단어 수를 나타냅니다.기본값은 1입니다.

설명

Extend가 true이면 선택한 텍스트의 활성 끝이 Count에 지정된 단어 수만큼 오른쪽으로 이동합니다.그렇지 않으면 선택한 텍스트는 축소되어 Count에 지정된 단어 수만큼 활성 끝의 오른쪽에 배치됩니다.활성 끝을 Count에 지정된 단어 수만큼 이동하던 중 문서의 끝을 만나면 위치는 문서의 끝에 그대로 유지됩니다.

Count의 값이 음수이면 WordRight가 WordLeft 메서드처럼 수행됩니다.

텍스트 문서의 활성 언어 관리자는 "단어"의 의미를 정의합니다.

예제

Sub WordRightExample()
    ' Before running this example, open a text document.
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection
    If objSel.IsEmpty Then
        ' If there is no text selected, swap the words before and after 
        ' the insertion point. We begin by selecting the word before 
        ' the insertion point.
        objSel.WordLeft(True)
        If Not objSel.IsEmpty Then
            ' We can continue only if the selection was not already at 
            ' the beginning of the document.
            Dim strBefore As String = objSel.Text

            ' The text is saved in strBefore; now delete it and move 
            ' past the following word.
            objSel.Delete()
            objSel.WordRight(True)
            If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
                ' The previous call to WordRight may have skipped some 
                ' white space instead of an actual word. In that case, 
                ' we should call it again.
                objSel.WordRight(True)
            End If

            ' Insert the new text at the end of the selection.
            objSel.Insert(strBefore, vsInsertFlags.vsInsertFlagsInsertAtEnd)
        End If
    Else
        ' If some text is selected, replace the following word with the 
        ' selected text.
        Dim strSelected As String = objSel.Text

        objSel.MoveToPoint(objSel.BottomPoint)
        objSel.WordRight(True)
        If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then
            ' The previous call to WordRight may have skipped some 
            ' white space instead of an actual word. In that case, we 
            ' should call it again.
            objSel.WordRight(True)
        End If

        ' Insert the text, overwriting the existing text and leaving 
        ' the selection containing the inserted text.
        objSel.Insert(strSelected, vsInsertFlags.vsInsertFlagsContainNewText)
    End If
End Sub

.NET Framework 보안

• 직접 실행 호출자의 경우 완전히 신뢰합니다. 이 멤버는 부분적으로 신뢰할 수 있는 코드에서 사용할 수 없습니다. 자세한 내용은 부분 신뢰 코드에서 라이브러리 사용을 참조하십시오.

참고 항목

참조

TextSelection 인터페이스

EnvDTE 네임스페이스