CorelDraw Works, including testing. HostApplication resolves more reliably for Excel and Word.

Added a ctor override to HostApplication Base, that gets the host
application via vbe.vbProject.vbComponent.Properties. That allows the
vbe to reliably find the real host, if there is more than 1 copy of a
host application open.

Author: ThunderFrame

RetailCoder.VBE/UnitTesting/ProjectTestExtensions.cs

@@ -36,7 +36,6 @@ public static void RunMethodsWithAttribute<TAttribute>(this VBComponent componen
 
         public static IEnumerable<TestMethod> TestMethods(this VBProject project)
         {
-            var hostApp = project.VBE.HostApplication();
 
             var result = project.VBComponents
                           .Cast<VBComponent>()
@@ -50,7 +49,6 @@ public static IEnumerable<TestMethod> TestMethods(this VBProject project)
 
         public static IEnumerable<TestMethod> TestMethods(this VBComponent component)
         {
-            var hostApp = component.VBE.HostApplication();
 
             if (component.Type == vbext_ComponentType.vbext_ct_StdModule 
                 && component.CodeModule.HasAttribute<TestModuleAttribute>())

Rubberduck.VBEEditor/Extensions/VbeExtensions.cs

@@ -62,11 +62,11 @@ public static IHostApplication HostApplication(this VBE vbe)
                 switch (reference.Name)
                 {
                     case "Excel":
-                        return new ExcelApp();
+                        return new ExcelApp(vbe);
                     case "Access":
                         return new AccessApp();
                     case "Word":
-                        return new WordApp();
+                        return new WordApp(vbe);
                     case "PowerPoint":
                         return new PowerPointApp();
                     case "Outlook":
@@ -76,7 +76,7 @@ public static IHostApplication HostApplication(this VBE vbe)
 					case "AutoCAD":
                         return new AutoCADApp();
                     case "CorelDRAW":
-                        return new CorelDRAWApp();
+                        return new CorelDRAWApp(vbe);
                 }
             }
 

Rubberduck.VBEEditor/VBEHost/CorelDRAWApp.cs

@@ -1,26 +1,28 @@
 using Corel.GraphicsSuite.Interop.CorelDRAW;
+using Microsoft.Vbe.Interop;
 
 namespace Rubberduck.VBEditor.VBEHost
 {
-    public class CorelDRAWApp : HostApplicationBase<Application>
+    public class CorelDRAWApp : HostApplicationBase<Corel.GraphicsSuite.Interop.CorelDRAW.Application>
     {
         public CorelDRAWApp() : base("CorelDRAW") { }
+        public CorelDRAWApp(VBE vbe) : base(vbe, "CorelDRAW") { }
 
 		//Function RunMacro(ModuleName As String, MacroName As String, Parameter() As Variant) As Variant
 		//Where ModuleName appears to mean ProjectName, and MacroName has to be provided as "ModuleName.ProcName"
+
+        //TODO:RunMacro can only execute methods in stand-alone projects (not document hosted projects)
+        //TODO:Can only get a CorelDraw application if at least one document is open in CorelDraw.
 
         public override void Run(QualifiedMemberName qualifiedMemberName)
         {
             var projectName = qualifiedMemberName.QualifiedModuleName.ProjectName;
             var memberName = qualifiedMemberName.QualifiedModuleName.ComponentName + "." + qualifiedMemberName.MemberName;
 
-            RunHelper(projectName, memberName);
-        }
-
-        private void RunHelper(string ProjectName, string MemberName, params object[] p)
-        {
-            //Application.GMSManager.RunMacro(ProjectName, MemberName, p);
-            //object GMS = Application.GMSManager;
+            if (Application != null)
+            {
+                Application.GMSManager.RunMacro(projectName, memberName, new object[] {});
+            }
         }
     }
 }

Rubberduck.VBEEditor/VBEHost/ExcelApp.cs

@@ -1,11 +1,13 @@
 using System.Reflection;
 using Microsoft.Office.Interop.Excel;
+using Microsoft.Vbe.Interop;
 
 namespace Rubberduck.VBEditor.VBEHost
 {
-    public class ExcelApp : HostApplicationBase<Application>
+    public class ExcelApp : HostApplicationBase<Microsoft.Office.Interop.Excel.Application>
     {
         public ExcelApp() : base("Excel") { }
+        public ExcelApp(VBE vbe) : base(vbe, "Excel") { }
 
         public override void Run(QualifiedMemberName qualifiedMemberName)
         {

Rubberduck.VBEEditor/VBEHost/HostApplicationBase.cs

@@ -1,6 +1,8 @@
 using System;
 using System.Diagnostics;
 using System.Runtime.InteropServices;
+using Microsoft.Vbe.Interop;
+using System.Linq;
 
 namespace Rubberduck.VBEditor.VBEHost
 {
@@ -24,6 +26,36 @@ protected HostApplicationBase(string applicationName)
             }
         }
 
+        protected HostApplicationBase(VBE vbe, string applicationName)
+        {
+            _applicationName = applicationName;
+
+            try
+            {
+                var appProperty = vbe.VBProjects
+                    .Cast<VBProject>()
+                    .Where(project => project.Protection == vbext_ProjectProtection.vbext_pp_none)
+                    .SelectMany(project => project.VBComponents.Cast<VBComponent>())
+                    .Where(component => component.Type == vbext_ComponentType.vbext_ct_Document
+                    && component.Properties.Count > 1)
+                    .SelectMany(component => component.Properties.OfType<Property>())
+                    .FirstOrDefault(property => property.Name == "Application");
+                if (appProperty != null)
+                {
+                    Application = (TApplication)appProperty.Object;
+                }
+                else
+                {
+                    Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");
+                }
+                    
+            }
+            catch (COMException)
+            {
+                Application = null; // unit tests don't need it anyway.
+            }
+        }
+
         ~HostApplicationBase()
         {
 			Dispose(false);

Rubberduck.VBEEditor/VBEHost/WordApp.cs

@@ -1,10 +1,12 @@
 using Microsoft.Office.Interop.Word;
+using Microsoft.Vbe.Interop;
 
 namespace Rubberduck.VBEditor.VBEHost
 {
-    public class WordApp : HostApplicationBase<Application>
+    public class WordApp : HostApplicationBase<Microsoft.Office.Interop.Word.Application>
     {
         public WordApp() : base("Word") { }
+        public WordApp(VBE vbe) : base(vbe, "Word") { }
 
         public override void Run(QualifiedMemberName qualifiedMemberName)
         {