如何在word和pdf中插入文件

1. word中插入文件

Code

protected bool BatchDocAndCsv(string docFile, string csvFile)

{

if (string.IsNullOrEmpty(docFile) || string.IsNullOrEmpty(csvFile))

{

return false;

}

if (File.Exists(docFile) == false || File.Exists(csvFile) == false)

{

return false;

}

WordClass obj = new WordClass();

obj.OpenDocument(docFile);

try

{

object ClassType = "Package";

object FileName = csvFile;

object LinkToFile = true;

object DisplayAsIcon = true;

object IconFileName = "C:\\WINDOWS\\system32\\packager.exe";

object IconIndex = 0;

object IconLabel = csvFile;

object width = 100;

object left = 0;

object top = 0;

object start = 0;

object end = 0;

object range = null;

object findText = "EMBEDDED_CSV";

object Replacement = "";

object Forward = true;

object Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue;

object Format = false;

object MatchCase = false;

object MatchWholeWord = false;

object MatchByte = false;

object MatchAllWordForms = false;

object MatchSoundsLike = false;

object MatchWildcards = true;

obj.WordApplication.Selection.Find.ClearFormatting();

if (obj.WordApplication.Selection.Find.Execute(ref findText, ref MatchCase, ref MatchWholeWord, ref MatchWildcards,

ref MatchSoundsLike, ref MatchAllWordForms, ref Forward, ref Wrap, ref Format,ref Replacement, ref missing, ref missing, ref missing, ref missing, ref missing))

{

Thread.Sleep(1500);

obj.WordApplication.Selection.InlineShapes.AddOLEObject(ref ClassType, ref FileName, ref LinkToFile, ref DisplayAsIcon, ref IconFileName, ref IconIndex, ref IconLabel, ref missing);

}

else

{

obj.Close(false);

obj.Dispose();

return false;

}

obj.Close(true);

obj.Dispose();

return true;

}

catch (Exception ex)

{

obj.Close(false);

obj.Dispose();

return false;

}

2.pdf中插入文件

需要用到Gnostice PDFtoolkit VCL

Code