以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何用狐有调用WORD中的内部对话框?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68979)

--  作者:南望
--  发布时间:2015/5/28 15:23:00
--  如何用狐有调用WORD中的内部对话框?

如何用狐有调用WORD中的内部对话框?如:我要调用WORD中的字数统计对话框,我在网上找到一段代码,但不知道如何改成狐表的。

不要让我参照WORD VBA,我看过了不太懂所以才来求助老师们。

 

 

Microsoft.Office.Interop.Word.Dialog wdlg = wordApp.Dialogs[Microsoft.Office.Interop.Word.WdWordDialog.wdDialogToolsWordCount];
object IncludeFootnotesAndEndnotes = true;

int y = wdlg.Application.ActiveDocument.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticCharactersWithSpaces, ref IncludeFootnotesAndEndnotes);


--  作者:wh420
--  发布时间:2015/5/28 15:34:00
--  

老师们帮忙看看,有点甜老师应该很擅长这个吧?


--  作者:大红袍
--  发布时间:2015/5/28 15:39:00
--  

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)

    Dim IncludeFootnotesAndEndnotes = True   
    Dim y = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticCharactersWithSpaces, IncludeFootnotesAndEndnotes)
    msgbox(y)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try


 

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.word.wdstatistic%28v=office.15%29.aspx

 


--  作者:ztmdnzc
--  发布时间:2015/10/6 18:09:00
--  
老外的就是没中国的foxtable好学。