【发布时间】:2014-06-29 03:00:47
【问题描述】:
我已经可以从它们的文件路径中加入两个或多个 word 文档。
如何在不将它们保存到磁盘的情况下加入它们?
string TemporaryPath = "";
string TemplatePath = "";
Object MissingValue;
object OFalse = false;
object OTrue = true;
public WordWorker()
{
TemporaryPath = AppDomain.CurrentDomain.BaseDirectory + "Temporary";
MissingValue = Missing.Value;
TemplatePath = @"C:\TemplateTest.dotx";
}
public void Merge()
{
object wdPageBreak = 7;
object wdStory = 6;
Application WordApplication = new Application();
Document WordDocument = WordApplication.Documents.Add(ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue);
for (int i = 0; i < 100; i++)
{
string Path = CreateWordFromTemplate(WordApplication, TemplatePath, new Dictionary<string, string>() { { "Name", "MyNewValue" + i } });
WordDocument.Application.Selection.Range.InsertFile(Path, ref MissingValue, ref MissingValue, ref MissingValue, ref OFalse);
}
object WordSaveFormat = WdSaveFormat.wdFormatDocument;
object MergedDocumentPath = TemporaryPath + "Merged.dox";
WordDocument.SaveAs(ref MergedDocumentPath, ref WordSaveFormat, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue, ref MissingValue);
WordApplication.Application.Quit();
}
public string CreateWordFromTemplate(Application WordApplication, Object oTemplatePath, Dictionary<string, string> dictionary)
{
Guid DocumentID = Guid.NewGuid();
Document WordDocument = new Document();
WordDocument = WordApplication.Documents.Add(ref oTemplatePath, ref MissingValue, ref MissingValue, ref MissingValue);
foreach (Field FieldToMerge in WordDocument.Fields)
{
Range FieldRange = FieldToMerge.Code;
String FieldText = FieldRange.Text;
if (FieldText.StartsWith(" MERGEFIELD"))
{
Int32 EndMerge = FieldText.IndexOf("\\");
Int32 FieldNameLength = FieldText.Length - EndMerge;
String FieldName = FieldText.Substring(11, EndMerge - 11).Trim();
if (dictionary.ContainsKey(FieldName))
{
FieldToMerge.Select();
WordApplication.Selection.TypeText(dictionary[FieldName]);
}
}
}
string Path = @"{0}\{1}.doc".SFormat(TemporaryPath, DocumentID);
WordDocument.SaveAs(Path);
WordDocument.Close();
return Path;
}
【问题讨论】:
-
Word 没有内存或流接口,如下所述:social.msdn.microsoft.com/Forums/vstudio/en-US/… 也许你可以使用剪贴板,或者寻找 3d 派对。
-
也许这会有所帮助? codeproject.com/Questions/287358/…
标签: c# merge office-interop mailmerge