通过VBA到Excel选择的页码(Word)

时间:2014-04-15 15:23:16

标签: excel-vba word-vba vba excel

我有一个Excel文件,我生成并打印Word文档。 要查找书签的页码:

ActiveDocument.Bookmarks("sg_Annexe_C_Tableaux").Select

MsgBox ActiveDocument.Selection.PageNumber ' => gives a 438 "object doesn't support _ 
                                           '                 this property or method"
MsgBox ActiveDocument.Information(wdNumberOfPagesInDocument) ' => also 438 
MsgBox wdPageNumber                        ' => returns 7
MsgBox wdActiveEndPageNumber               ' => returns 3
ActiveDocument.Bookmarks("sg_Annexe_C_Tableaux").Range ' => returns the text to which
                                                       '    the bookmark points

我想知道,在网上发布所有各种解决方案3个小时之后我应该怎么做...就像this one on windowssecrets.com不起作用。

获取选择页码的正确命令是什么?

编辑:

我们可以获得的唯一页码信息是使用此代码的总页数:

ActiveDocument.Content.Information(wdActiveEndPageNumber)
ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber)

来自thezcorp.com的人带我走上了这条赛道。

背景: 需要这个确切页面的数量,因为我们从这个非常.doc生成一个.pdf和一些插入到中间的.pdf页面。中间位置有一个书签,当.doc转换为.pdf时,页面编号将保留并随后使用。此时,这两个文件通过insertpages命令组合在一起。

1 个答案:

答案 0 :(得分:1)

尝试:

ActiveDocument.Bookmarks("sg_Annexe_C_Tableaux").Range.Information(wdActiveEndAdjustedPageNumber)

或:

ActiveDocument.Bookmarks("sg_Annexe_C_Tableaux").Range.Information(wdActiveEndPageNumber)

请参阅: