2

使用.net 4.0/vs2010,office 2007

请注意,我愿意接受任何其他方法来完成最终结果。我没有嫁给 Word,但我确实有不能包含任何许可的第三方工具(没有 Aspose)的限制,我想尽量减少用户机器上的任何安装。这是一个公司环境,所以我确实有一些控制权。

我需要将 2 或 3 个 word 文档打印为单个文档。我的代码如下,它可以工作....除了第二个文档的格式总是有点偏离(段落间距、字体、边距)。奇怪的是第三个文档(它有不同的页面方向)出来很好。有时用户需要将文档发送到传真服务器,因此第一页将是传真封面。

我哪里失败了??KillCom(object 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);

            }

        }
4

1 回答 1

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;
    }
于 2013-01-09T16:16:34.093 回答