Question

关于此代码，请求您的帮助。我在c＃中编写了一个代码，它可以清除属性中内置的word文档，并在提供的替换时替换它。基于我在microsft支持网站上在线发现的例子 http://support.microsoft.com/kb/303296，我的代码没问题，并且假设工作，因为我也没有得到任何编译错误。但是没有做我要求它做的事情，因为我没有得到任何结果。请大家，非常感谢，如果有人会帮助我替代或指出我的错误，以便我花费的几周将徒劳无功。谢谢你的帮助。以下是我的代码。

 private void execute_Click(object sender, EventArgs e)
        {
             Word.Application wapp; 
             Word.Document dc = new Word.Document() ;
 Object bSaveChanges = false;
           string chosen_file = "";
           chosen_file = openFD.FileName;
           textBox1.Text = (chosen_file);
           var filter = Path.GetExtension(chosen_file);

           object Filename = chosen_file.ToString();
           if (filter == ".doc" || filter == ".docx")
           {
               wapp = new Word.Application();
               wapp.Visible = true;
               docword = wapp.Documents.Add(ref Filename, ref missing, ref missing, ref missing);

               object _BuiltInProperties = docword.BuiltInDocumentProperties;
                Type typeDocBuiltInProps = _BuiltInProperties.GetType();

                 removeproperty(_BuiltInProperties, typeDocBuiltInProps);// pass parameter
                 docword.Close(ref bSaveChanges, ref missing, ref missing);
                 wapp.Quit(ref bSaveChanges, ref missing, ref missing);
           }
  }

 private void removeproperty(object _BuiltInProperties, Type typeDocBuiltInProps)
        {

            string subjectprop = "Subject";
            string subjectValue = "";
            string companyprop = "Company";
            string companyvalue = txtcompany.Text;

             if (clearsubject.Checked == true)
            {
                try
                {
                    Object Subjectprop = typeDocBuiltInProps.InvokeMember("Item", BindingFlags.Default | BindingFlags.GetProperty, null, _BuiltInProperties, new object[] { "Subject" });
                    Type typeSubjectprop = Subjectprop.GetType();

                    typeSubjectprop.InvokeMember("Item", BindingFlags.Default | BindingFlags.SetProperty, null, Subjectprop, new object[] { subjectprop, subjectValue  });

                }
                catch (COMException)
                {

                }

            }

       if (resetcompany.Checked == true)
            {
                try
                {
                  Object Companyprop = typeDocBuiltInProps.InvokeMember("Item", BindingFlags.Default | BindingFlags.GetProperty, null, _BuiltInProperties, new object[] { "Company" });
                    Type typeCompanyprop = Companyprop.GetType();
                    typeCompanyprop.InvokeMember("Item",
                               BindingFlags.Default |
                               BindingFlags.SetProperty,
                               null, Companyprop,
                               new object[] { companyprop, companyvalue });


                }
                 catch (COMException)
                {

                }


}

Answer 1

1）添加对Microsoft.CSharp的引用。

2）获取BuiltInDocumentProperties：

private void LoadMetadata(Document Doc) {
  this.Title.Text = Doc.BuiltInDocumentProperties["Title"].Value;
  this.Subject.Text = Doc.BuiltInDocumentProperties["Subject"].Value;
  this.Category.Text = Doc.BuiltInDocumentProperties["Category"].Value;
  this.Keywords.Text = Doc.BuiltInDocumentProperties["Keywords"].Value;
  this.Author.Text = Doc.BuiltInDocumentProperties["Author"].Value;
  this.Comments.Text = Doc.BuiltInDocumentProperties["Comments"].Value;
}

3）设置新值：

private void SaveMetadata(Document Doc) {
  Doc.BuiltInDocumentProperties["Title"].Value = this.Title.Text;
  Doc.BuiltInDocumentProperties["Subject"].Value = this.Subject.Text;
  Doc.BuiltInDocumentProperties["Category"].Value = this.Category.Text;
  Doc.BuiltInDocumentProperties["Keywords"].Value = this.Keywords.Text;
  Doc.BuiltInDocumentProperties["Author"].Value = this.Author.Text;
  Doc.BuiltInDocumentProperties["Comments"].Value = this.Comments.Text;
}

Answer 2

如找到here，您可以按名称更改单词属性，如下所示：

void SetWordDocumentPropertyValue(Word.Document document, string propertyName, string propertyValue)
{
  object builtInProperties = document.BuiltInDocumentProperties;
  Type builtInPropertiesType = builtInProperties.GetType();
  object property = builtInPropertiesType.InvokeMember("Item", System.Reflection.BindingFlags.GetProperty, null, builtInProperties, new object[] { propertyName });
  Type propertyType = property.GetType();
  propertyType.InvokeMember("Value", BindingFlags.SetProperty, null, property, new object[] { propertyValue });
  document.UpdateSummaryProperties();
  document.Save();
}

属性名称类似于"Author"，"Last Author"，"Title"等...

在c＃中删除/编辑word office builtindocumentproperties

2 个答案: