1

请在此代码方面需要您的帮助。我正在用 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)
                {

                }


}
4

2 回答 2

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"等...

于 2013-03-01T09:25:51.910 回答
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;
}
于 2013-09-05T12:30:38.703 回答