none
求助:如何判断word文档模板中每页的最后一个字? RRS feed

  • 问题

  • 将一段含有数字和字母的文字填入设定好字数和行数的word文档模板,由于数字、字母与中文汉字字符不同(汉字算2个字符,数字、字母算1个字符),如何判断整段文字中哪个字是每页的最后一个字?请开发高手们帮帮忙!!!!!

    2013年4月26日 12:28

答案

  • 你好,

    下面有一段示例代码

    Sub test()
        
        Dim myRange As Range
        Set myRange = ActiveDocument.Range(0, 0)
        '这里Name参数传2的意思是去第2页。
        Set myRange = myRange.GoTo(what:=wdGoToPage, Name:="2")
        Set myRange = myRange.GoTo(what:=wdGoToBookmark, Name:="\page")
        
        '执行了上面几行代码之后,myRange即为指定页了(这里是第2页)。然后可以通过
        'Range.Text 属性获取本页的全部文字。 之后可以用VBA的字符串函数Right()
        '来获取最后一个字符。
        MsgBox myRange.text
        
    End Sub
    

    出处 http://word.mvps.org/FAQs/MacrosVBA/SelectCurPage.htm

    希望能有帮助。


    Quist Zhang [MSFT]
    MSDN Community Support | Feedback to us
    Develop and promote your apps in Windows Store
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    2013年5月3日 10:51

全部回复

  • 你好,

    下面有一段示例代码

    Sub test()
        
        Dim myRange As Range
        Set myRange = ActiveDocument.Range(0, 0)
        '这里Name参数传2的意思是去第2页。
        Set myRange = myRange.GoTo(what:=wdGoToPage, Name:="2")
        Set myRange = myRange.GoTo(what:=wdGoToBookmark, Name:="\page")
        
        '执行了上面几行代码之后,myRange即为指定页了(这里是第2页)。然后可以通过
        'Range.Text 属性获取本页的全部文字。 之后可以用VBA的字符串函数Right()
        '来获取最后一个字符。
        MsgBox myRange.text
        
    End Sub
    

    出处 http://word.mvps.org/FAQs/MacrosVBA/SelectCurPage.htm

    希望能有帮助。


    Quist Zhang [MSFT]
    MSDN Community Support | Feedback to us
    Develop and promote your apps in Windows Store
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.

    2013年5月3日 10:51
  • 谢谢,我试试!
    2013年5月8日 4:03