XWPFDocument docx = new XWPFDocument(POIXMLDocumentopenPackage(电月度例会会议纪要docx));
int pages = docxgetProperties()getExtendedProperties()getUnderlyingProperties()getPages();//总页数
int wordCount = docxgetProperties()getExtendedProperties()getUnderlyingProperties()getCharacters();// 忽略空格的总字符数 另外还有getCharactersWithSpaces()方法获取带空格的总字数。
Systemoutprintln (pages= + pages + wordCount= + wordCount);}
public static void parse97() throws Exception {
WordExtractor doc = new WordExtractor(new FileInputStream(电月度例会会议纪要doc));
点击左下角的字数,会出来字数统计对话框,里面有字数和行数,要知道某一页有多少行,就先选中该页的全部内容,再点击左下角打开字数统计对话框,这时候显示的行数是选中部分的行数
下面的代码在我电脑上执行通过,希望对比编程有所借鉴:
Option ExplicitSub YgB()
Dim n, f
n = 0
f = Dir("d:\我的文档\exp\doc")
While f <> ""
n = n + 1
f = Dir
Wend
MsgBox "总共有" & n & "个WORD文件"
End Sub
sub
aa()
fn="D:\111doc"
'定义word的路径
set
c
=getobject(fn)
’打开word文件
Set
d
=
ctables(1)
'读取word里面的第一个表格
Cells(1,
1)
=
dcell(1,
1)
‘A1=word里面的第一个表格里面的第一个单元格的值。
cclose
set
c
=nothing
end
sub
'一、表格标题一般应该是题注,判断题注内容
SelectionParagraphs(1)Style = "题注"
InStr(1,SelectionParagraphs(1)RangeText,"表") <> 0 '这里方法很多,可以通过域判断,也可以根据其他规则判断
'二、获取题注的结尾
styleEnd = SelectionParagraphs(1)RangeEnd
'三、判断表注后面是否为表格
'参考2#
ActiveDocumentRange(styleEnd, styleEnd + 1)Information(wdWithInTable)
'四、请尽量少使用Selection
'Selection使用得越少,代码效率越高
亲,代码如下,查找第一次出现“ABC”的所在页的页码。请根据情况自行修订需要查找的字符:
Sub cz()Dim MyRange As Range
Set MyRange = ActiveDocumentContent
MyRangeFindExecute FindText:="ABC", Forward:=True
MsgBox MyRangeInformation(wdActiveEndPageNumber)
End Sub
以上就是关于java如何获取word文档页数全部的内容,包括:java如何获取word文档页数、怎样取得word文件的总页数和每页的行数、如何利用VBA获取文件夹里边word文件个数等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)