使用.net 4.0 / vs2010,office 2007
请注意,我可以使用任何其他方法来完成最终结果。我没有和Word结婚,但我确实有限制,不能包含任何许可的第三方工具(没有Aspose),我想尽量减少用户机器上的任何安装。这是一个企业环境,所以我确实有一些控制权。
我需要将2或3个单词的文档打印为单个文档。我的代码如下,它的工作原理....除了第二个文档的格式总是有点偏离(段落间距,字体,边距)。奇怪的是,第三个文档(它有不同的页面方向)很好。有时用户需要将文档发送到传真服务器,因此第一页将是传真封面页。
我在哪里失败?方法KillCom(对象o)调用System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
public void CombineMultipleDocuments(string coverSheetPath, string[] documentPaths, string destinationFile, bool makeVisible)
{
List<string> docs = new List<string>();
if (string.IsNullOrWhiteSpace(destinationFile))
throw new ArgumentException("The destinationfile is required");
try
{
//strip invalid paths
foreach (string p in documentPaths)
{
if (!string.IsNullOrWhiteSpace(p) && File.Exists(p))
{
docs.Add(p);
}
}
if (docs.Count == 0)
throw new ArgumentException("There are no documents to print");
//open the cover sheet
wrdApp = new Word.Application();
wrdApp.Visible = makeVisible;
//if there is no cover sheet open the first document and append the remaining docs to it
if (string.IsNullOrWhiteSpace(coverSheetPath))
{
coverSheetPath = docs[0];
docs.RemoveAt(0);
}
wrdDoc = wrdApp.Documents.Open(coverSheetPath, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing);
wrdRange = wrdDoc.Content;
//a little space
wrdRange.InsertParagraphAfter();
//attach the rest of the documents
foreach (string path in docs)
{
//open the new source document to be inserted
Word._Document newDoc = wrdApp.Documents.Open(path, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing);
//continues page break
wrdRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
wrdRange.InsertBreak(Microsoft.Office.Interop.Word.WdBreakType.wdSectionBreakNextPage);
//create a new section for our new content
Word.Section sec = wrdRange.Sections.Add(ref oMissing, ref oMissing);
//copy the source document's styles, fonts, etc
sec.PageSetup.Orientation = newDoc.PageSetup.Orientation;
sec.Range.Font = newDoc.Content.Font;
//unlink footer and headers
sec.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].LinkToPrevious = false;
sec.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.FormattedText = newDoc.Sections[1].Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.FormattedText;
sec.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].LinkToPrevious = false;
sec.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.FormattedText = newDoc.Sections[1].Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range.FormattedText;
wrdRange.FormattedText = newDoc.Content.FormattedText;
//close
newDoc.Saved = true;
newDoc.Close(ref oFalse, ref oMissing, ref oMissing);
newDoc = null;
KillCOM(newDoc);
}
//the diary function needs these variables to be set
Word.Variables wrdVars = wrdDoc.Variables;
wrdVars.Add("Letter", WrdPropLETTER_NAME);
wrdVars.Add("FileKey", WrdPropFILE_KEY);
wrdVars.Add("LetterTo", WrdPropLETTER_TO);
wrdVars.Add("LetterFirstName", WrdPropLETTER_FNAME);
wrdVars.Add("LetterLastName", WrdPropLETTER_LNAME);
wrdVars.Add("LetterCompany", WrdPropLETTER_COMPANY);
wrdVars.Add("LetterCategory", WrdPropLETTER_CATEGORY);
wrdVars.Add("CurrentHeaderDoc",WrdPropCUR_HEADERDOC);
wrdVars.Add("CurrentDataDoc", WrdPropCUR_DATADOC);
wrdDoc.Protect(Word.WdProtectionType.wdAllowOnlyFormFields, ref oMissing, "mojojojo");
wrdDoc.SaveAs(destinationFile, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing
, ref oMissing, ref oMissing);
//close if hidden
if (!makeVisible)
{
wrdDoc.Saved = true;
wrdDoc.Close(ref oFalse, ref oMissing, ref oMissing);
wrdApp.Quit(ref oFalse, ref oMissing, ref oMissing);
wrdDoc = null;
wrdApp = null;
}
//clean up
if (File.Exists(coverSheetPath))
File.Delete(coverSheetPath);
foreach (string path in documentPaths)
{
if (File.Exists(path))
File.Delete(path);
}
}
catch (Exception e)
{
string error = e.ToString();
}
finally
{
wrdRange = null;
wrdDoc = null;
wrdApp = null;
KillCOM(wrdRange);
KillCOM(wrdDoc);
KillCOM(wrdApp);
}
}
答案 0 :(得分:0)
我使用 PasteAndFormat 功能来保留原始格式,还复制页面属性以保留每个文档的边距和方向。
void mergeDocumentsTest(List<string> documentFiles)
{
_Application oWord = new Microsoft.Office.Interop.Word.Application();
_Document oDoc = oWord.Documents.Add();
Selection oSelection = oWord.Selection;
foreach (string documentFile in documentFiles)
{
_Document oCurrentDocument = oWord.Documents.Add(documentFile);
copyPageSetup(oCurrentDocument.PageSetup, oDoc.Sections.Last.PageSetup);
oCurrentDocument.Range().Copy();
oSelection.PasteAndFormat(WdRecoveryType.wdFormatOriginalFormatting);
if (!Object.ReferenceEquals(documentFile, documentFiles.Last()))
oSelection.InsertBreak(WdBreakType.wdSectionBreakNextPage);
}
oDoc.SaveAs("testdoc.doc");
oDoc.Close();
//TODO: release objects, close word application
}
void copyPageSetup(PageSetup source, PageSetup target)
{
target.PaperSize = source.PaperSize;
//target.Orientation = source.Orientation; //not working in word 2003, so here is another way
if (!source.Orientation.Equals(target.Orientation))
target.TogglePortrait();
target.TopMargin = source.TopMargin;
target.BottomMargin = source.BottomMargin;
target.RightMargin = source.RightMargin;
target.LeftMargin = source.LeftMargin;
target.FooterDistance = source.FooterDistance;
target.HeaderDistance = source.HeaderDistance;
target.LayoutMode = source.LayoutMode;
}