Selection 对象

/*本示例复制活动文档中的当前选定内容。*/
function test() {
    Selection.Copy()
}

/*本示例删除 Documents 集合中第一个文档的所选内容。不必激活文档也可以访问其当前选定内容。*/
function test() {
    Documents.Item(1).ActiveWindow.Selection.Cut()
}

/*本示例复制活动文档第一个窗格中的所选内容，并将其粘贴到第二个窗格中。*/
function test() {
    ActiveDocument.ActiveWindow.Panes.Item(1).Selection.Copy()
    ActiveDocument.ActiveWindow.Panes.Item(2).Selection.Paste()
}

/*本示例将当前选定区域中的文本分配至变量 strTemp，并判断如果最后一个字符为段落标记，则将其删除。*/
function test() {
    let strTemp = Selection.Text
    if (strTemp.endsWith("\r")) {
        strTemp = strTemp.substring(0, strTemp.length - 1)
    }
}

/*本示例会将插入点移至文档的末尾，并选择最后三行。*/
function test() {
    Selection.Endof(wdStory, wdMove)
    Selection.HomeKey(wdLine, wdExtend)
    Selection.MoveUp(wdLine, 2, wdExtend)
}

/*本示例选择活动文档中的第一个句子，并将其替换为新段落。*/
function test() {
    Options.ReplaceSelection = true
    ActiveDocument.Sentences(1).Select()
    Selection.TypeText("Material below is confidential.")
    Selection.TypeParagraph()
}

/*本示例删除 Documents 集合中第一个文档的最后一段，并将其粘贴到第二个文档的开头。*/
function test() {
    Documents.Item(1).Paragraphs.Last.Range.Select()
    Documents.Item(1).ActiveWindow.Selection.Cut()

    let selection = Documents.Item(2).ActiveWindow.Selection
    selection.StartOf(wdStory, wdMove)
    selection.Paste()
}

/*本示例判断如果当前选定内容的字体为“Times New Roman”，则更改为“Tahoma”。*/
function test() {
    if (Selection.Font.Name == "Times New Roman") {
        Selection.Font.Name = "Tahoma"
    }
}

/*在某个方法中使用以下示例来确定活动文档中是否选择了内容，如果未选择，则跳过该方法的其余部分。*/
function test() {
    if (Selection.Type == wdSelectionIP) {
        alert("You have not selected any text! Exiting procedure...")
        return
    }
}

/*本示例确定选定内容是否正常（例如，它不在表格的行或列中，它不是文本的垂直块）；可以使用它来先测试当前选定内容，然后再对其执行任何操作。*/
function test() {
    if (Selection.Type != wdSelectionNormal) {
        alert("Not a valid selection! Exiting procedure...")
        return
    }
}