Retrieve current document path

Hi,

In the addin class you can get the path of the current document (active document) like this.

//for word

file_loc = this.Application.ActiveDocument.FullName;

// for excel

file_loc = this.Application.ActiveWorkbook.FullName;

//for powerpoint

file_loc = this.Application.ActivePresentation.FullName;

Hope this helps.

- Faisal

public void OnStartupComplete(ref System.Array custom) {
 CommandBars oCommandBars;
 CommandBar oStandardBar;
 try {
  oCommandBars =
   (CommandBars)applicationObject.GetType().InvokeMember("CommandBars", BindingFlags.GetProperty, null, applicationObject, null);
 }
 catch (Exception) {
  //Outlook has the CommandBars collection on the Explorer object
  object oActiveExplorer =
   applicationObject.GetType().InvokeMember("ActiveExplorer", BindingFlags.GetProperty, null, applicationObject,null);
  oCommandBars =
   (CommandBars)oActiveExplorer.GetType().InvokeMember("CommandBars", BindingFlags.GetProperty, null, oActiveExplorer, null);
 }
 object oName =
  applicationObject.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, applicationObject, null);
 try {
  if (oName.ToString().IndexOf("Excel") != -1)
   oStandardBar = oCommandBars["Worksheet Menu Bar"];
  else
   oStandardBar = oCommandBars["Menu Bar"];
 }
 catch (Exception) {
  oStandardBar = oCommandBars.ActiveMenuBar;
 }
 //In case the button was not deleted, use the existing one
 try {
  MyButton = (CommandBarButton)oStandardBar.Controls["My Custom Button"];
 }
 catch (Exception) {
  MyButton = CreateButton(oStandardBar, "My Custom Button");
 }
 MyButton.Click += new _CommandBarButtonEvents_ClickEventHandler(this.MyButton_Click);
 oStandardBar = null;
 oCommandBars = null;
}

private void MyButton_Click(CommandBarButton cmdBarButton, ref bool cancel) {
 object oName =
  applicationObject.GetType().InvokeMember("Name", BindingFlags.GetProperty, null, applicationObject, null);
 Type applicationType = applicationObject.GetType();
 string propertyName = String.Empty;
 if (oName.ToString().IndexOf("Word") != -1)
  propertyName = "ActiveDocument";
 else if (oName.ToString().IndexOf("Excel") != -1)
  propertyName = "ActiveWorkbook";
 else if (oName.ToString().IndexOf("Powerpoint") != -1)
  propertyName = "ActivePresentation";
 else if (oName.ToString().IndexOf("Publisher") != -1)
  propertyName = "ActiveDocument";
 else if (oName.ToString().IndexOf("Access") != -1)
  propertyName = "CurrentProject";
 if (!propertyName.Equals(String.Empty)) {
  MessageBox.Show(oName.ToString() + "\n(" + applicationType.FullName + " - " + Microsoft.VisualBasic.Information.TypeName(applicationObject) + ")");
  object activeDocument = applicationType.InvokeMember(propertyName, BindingFlags.GetProperty , null, applicationObject, null);
  string documentPath = (string)activeDocument.GetType().InvokeMember("FullName", BindingFlags.GetProperty, null, activeDocument, null);
  MessageBox.Show("(" + documentPath + ")");
 }
}

private CommandBarButton CreateButton(CommandBar Parent, string Caption) {
 CommandBarButton cbb = null;
 try {
  cbb = (CommandBarButton)Parent.Controls.Add(MsoControlType.msoControlButton, Type.Missing, Type.Missing, Type.Missing, true);
  cbb.Visible = true;
  cbb.Caption = Caption;
  cbb.Style = MsoButtonStyle.msoButtonCaption;
  cbb.Tag = Caption.Replace("&", String.Empty);
  cbb.OnAction = "!<OptArchiveAddin.Connect>";
 }
 catch (Exception ex) {
  MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Error);
 }
 return cbb;
}

Hi,

I think I worked it out.

First my scenarios:

I Installed a XP machine with VS2005 and Office2003 and created a simple shared AddIn wich should be loaded in all Office Apps.

I could reproduce that the AddIn doesn't load in Excel.

I could fix this with creating a ComShim with the ComShim Wizard.

So this is the Solution that my AddIn won't load within Excel.

But getting the Name Property worked fine.

I used this code snippet (delegates only with .Net 2.0)

Works fine for all Applications in different Office Versions.

My AddIn has no reference to any Office dll.

So if the Latebound GetProperty Method doesn't work I suggest to go to control panel / add remove programms and do a repair for your Office.

Also apply the latest Office Service Pack.

2. When I look at your sourcecode some notes:

when you do such code within the exceptionhandler and you will get an exception ther, your AddIn will be disabled.

E.g. when Outlook is started from another programm you maybe have no ActiveExplorer -> crash...

So I suggest no code within the Catch block...

Also:

Recently I learned NOT to use the ....Class objects e.g. use Application class NOT ApplicationClass object.

I know you are missing some events -> cast explicitly to the corresponding event interface ->

((Excel.AppEvents_Event)excelApp).NewWorkbook += new ....

Hope this helps,

greets Helmut