1. using corel = Corel.Interop.VGCore;
    2. using frm = System.Windows.Forms;
    3. //获取工具栏工具ID值
    4. //======================================================================
    5. //方法:打印CommandBar信息
    6. //作用:将所有CommandBar信息全部打印出来,用于自动化调用
    7. //======================================================================
    8. private void GetcombarID()
    9. {
    10. try
    11. {
    12. string f = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\\CDRCommandBarIDInfo.txt";
    13. List<string> slst = new List<string>();
    14. corel.CommandBars AA = capp.FrameWork.CommandBars;
    15. foreach (corel.CommandBar cmdbar in AA)
    16. {
    17. slst.Add(cmdbar.NameLocal + "-工具栏下面的菜单项:");
    18. foreach (corel.Control ctl in cmdbar.Controls)
    19. {
    20. slst.Add("\t" + ctl.ID + " -> " + ctl.Caption);
    21. }
    22. }
    23. slst.Add("-------------------示例------------------");
    24. slst.Add("Public Sub Smartspacing()");
    25. slst.Add(" Application.FrameWork.Automation.InvokeItem; \"0ce0b6c1-eab7-4b59-9cd9-d42c1fe89195\"'矫正文本");
    26. slst.Add(" Application.FrameWork.Automation.InvokeItem; \"4e23866f-d86f-45f8-9afd-6b84bb7cdc9a\"'添加下划线");
    27. slst.Add(" Application.FrameWork.Automation.InvokeItem; \"4e23866f-d86f-45f8-9afd-6b84bb7cdc9a\"'删除下划线");
    28. slst.Add("End Sub");
    29. slst.Add("-----------------------------------------");
    30. File.WriteAllLines(f, slst.ToArray(), Encoding.UTF8);
    31. Process.Start("explorer", "/select," + f);
    32. }
    33. catch (Exception ex)
    34. {
    35. frm.MessageBox.Show(ex.Message);
    36. }
    37. }