Foxtable(狐表)用户栏目专家坐堂 → 如何用狐有调用WORD中的内部对话框?


  共有3188人关注过本帖树形打印复制链接

主题:如何用狐有调用WORD中的内部对话框?

帅哥哟,离线,有人找我吗?
南望
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
如何用狐有调用WORD中的内部对话框?  发帖心情 Post By:2015/5/28 15:23:00 [只看该作者]

如何用狐有调用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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
  发帖心情 Post By:2015/5/28 15:34:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:501 积分:4167 威望:0 精华:0 注册:2013/1/18 13:34:00
  发帖心情 Post By:2015/10/6 18:09:00 [只看该作者]

老外的就是没中国的foxtable好学。

 回到顶部