MS Word宏 - 页面顶部的特殊处理

时间:2018-01-17 03:19:27

标签: vba ms-word word-vba

我正在尝试编写一个MS Word宏来下拉一行并键入某个短语,除非光标位于文档的最顶部或“硬”页面中断,在这种情况下它只应键入信息。代码非常像这样 -

User.find(function (err,userx){
    if (err){
        throw err;
    }
    else{
        //add this code sentence
        var user_arr =Object.keys(userx).map(
            function(key){
                return userx[key];
            }
        );

        //now, use forEach sentence
        user_arr.forEach(function(us){
            console.log(us.name);
        })

    }
})  

- 但我不知道测试光标是否位于页面顶部的具体语法。任何人都可以填写我吗?我的软件版本是MS Word 2003.谢谢。

1 个答案:

答案 0 :(得分:1)

您可以使用Selection.Information(wdFirstCharacterLineNumber) = 1

If Selection.Information(wdFirstCharacterLineNumber) = 1 Then
  Selection.TypeText Text:="top of page"  
Else
  Selection.TypeParagraph
  Selection.TypeText Text:="not top of page"  
End If

Selection.Information(wdFirstCharacterLineNumber)将返回该页面中当前选择的行号。请参阅MSDN

PS:我已经使用Word 2010对此进行了测试,但我无法访问以前的版本。所以,试一试。