HTML转WORD WORD转PDF--来源网络
从网上找的代码，先收藏下。
功能：实现HTML转WORD，WORD转PDF
print?usingSystem; |
usingSystem.Collections.Generic; |
usingSystem.ComponentModel; |
usingSystem.Data; |
usingSystem.Drawing; |
usingSystem.Text; |
usingSystem.Windows.Forms; |
usingWord = Microsoft.Office.Interop.Word; |
usingoWord = Microsoft.Office.Interop.Word; |
usingSystem.Reflection; |
usingSystem.Configuration; |
usingSystem.Web; |
usingSystem.Web.Security; |
usingSystem.Web.UI; |
usingSystem.Web.UI.WebControls; |
usingSystem.Web.UI.WebControls.WebParts; |
usingSystem.Web.UI.HtmlControls; |
usingMicrosoft.Office.Core; |
usingSystem.Text.RegularExpressions; |
namespaceWindowsApplication2 |
{ |
publicpartialclassForm1 : Form |
{ |
publicForm1() |
{ |
InitializeComponent(); |
} |
privatevoidbutton1_Click(objectsender, EventArgs e) |
{ |
objectoMissing = System.Reflection.Missing.Value; |
objectoEndOfDoc ="\\endofdoc";/* \endofdoc is a predefined bookmark */ |
//Start Word and create a new document. |
Word._Application oWord; |
Word._Document oDoc; |
oWord =newWord.Application(); |
oWord.Visible =true; |
oDoc = oWord.Documents.Add(refoMissing,refoMissing, |
refoMissing,refoMissing); |
//Insert a paragraph at the beginning of the document. |
Word.Paragraph oPara1; |
oPara1 = oDoc.Content.Paragraphs.Add(refoMissing); |
oPara1.Range.Text ="Heading 1"; |
oPara1.Range.Font.Bold = 1; |
oPara1.Format.SpaceAfter = 24;//24 pt spacing after paragraph. |
oPara1.Range.InsertParagraphAfter(); |
//Insert a paragraph at the end of the document. |
Word.Paragraph oPara2; |
objectoRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oPara2 = oDoc.Content.Paragraphs.Add(refoRng); |
oPara2.Range.Text ="Heading 2"; |
oPara2.Format.SpaceAfter = 6; |
oPara2.Range.InsertParagraphAfter(); |
//Insert another paragraph. |
Word.Paragraph oPara3; |
oRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oPara3 = oDoc.Content.Paragraphs.Add(refoRng); |
oPara3.Range.Text ="This is a sentence of normal text. Now here is a table:"; |
oPara3.Range.Font.Bold = 0; |
oPara3.Format.SpaceAfter = 24; |
oPara3.Range.InsertParagraphAfter(); |
//Insert a 3 x 5 table, fill it with data, and make the first row |
//bold and italic. |
Word.Table oTable; |
Word.Range wrdRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oTable = oDoc.Tables.Add(wrdRng, 3, 5,refoMissing,refoMissing); |
oTable.Range.ParagraphFormat.SpaceAfter = 6; |
intr, c; |
stringstrText; |
for(r = 1; r <= 3; r++) |
for(c = 1; c <= 5; c++) |
{ |
strText ="r"+ r +"c"+ c; |
oTable.Cell(r, c).Range.Text = strText; |
} |
oTable.Rows[1].Range.Font.Bold = 1; |
oTable.Rows[1].Range.Font.Italic = 1; |
//Add some text after the table. |
Word.Paragraph oPara4; |
oRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oPara4 = oDoc.Content.Paragraphs.Add(refoRng); |
oPara4.Range.InsertParagraphBefore(); |
oPara4.Range.Text ="And here's another table:"; |
oPara4.Format.SpaceAfter = 24; |
oPara4.Range.InsertParagraphAfter(); |
//Insert a 5 x 2 table, fill it with data, and change the column widths. |
wrdRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oTable = oDoc.Tables.Add(wrdRng, 5, 2,refoMissing,refoMissing); |
oTable.Range.ParagraphFormat.SpaceAfter = 6; |
for(r = 1; r <= 5; r++) |
for(c = 1; c <= 2; c++) |
{ |
strText ="r"+ r +"c"+ c; |
oTable.Cell(r, c).Range.Text = strText; |
} |
oTable.Columns[1].Width = oWord.InchesToPoints(2);//Change width of columns 1 & 2 |
oTable.Columns[2].Width = oWord.InchesToPoints(3); |
//Keep inserting text. When you get to 7 inches from top of the |
//document, insert a hard page break. |
objectoPos; |
doubledPos = oWord.InchesToPoints(7); |
oDoc.Bookmarks.get_Item(refoEndOfDoc).Range.InsertParagraphAfter(); |
do |
{ |
wrdRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
wrdRng.ParagraphFormat.SpaceAfter = 6; |
wrdRng.InsertAfter("A line of text"); |
wrdRng.InsertParagraphAfter(); |
oPos = wrdRng.get_Information |
(Word.WdInformation.wdVerticalPositionRelativeToPage); |
} |
while(dPos >= Convert.ToDouble(oPos)); |
objectoCollapseEnd = Word.WdCollapseDirection.wdCollapseEnd; |
objectoPageBreak = Word.WdBreakType.wdPageBreak; |
wrdRng.Collapse(refoCollapseEnd); |
wrdRng.InsertBreak(refoPageBreak); |
wrdRng.Collapse(refoCollapseEnd); |
wrdRng.InsertAfter("We're now on page 2. Here's my chart:"); |
wrdRng.InsertParagraphAfter(); |
//Insert a chart. |
Word.InlineShape oShape; |
objectoClassType ="MSGraph.Chart.8"; |
wrdRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
oShape = wrdRng.InlineShapes.AddOLEObject(refoClassType,refoMissing, |
refoMissing,refoMissing,refoMissing, |
refoMissing,refoMissing,refoMissing); |
//Demonstrate use of late bound oChart and oChartApp objects to |
//manipulate the chart object with MSGraph. |
objectoChart; |
objectoChartApp; |
oChart = oShape.OLEFormat.Object; |
oChartApp = oChart.GetType().InvokeMember("Application", |
BindingFlags.GetProperty,null, oChart,null); |
//Change the chart type to Line. |
object[] Parameters =newObject[1]; |
Parameters[0] = 4;//xlLine = 4 |
oChart.GetType().InvokeMember("ChartType", BindingFlags.SetProperty, |
null, oChart, Parameters); |
//Update the chart image and quit MSGraph. |
oChartApp.GetType().InvokeMember("Update", |
BindingFlags.InvokeMethod,null, oChartApp,null); |
oChartApp.GetType().InvokeMember("Quit", |
BindingFlags.InvokeMethod,null, oChartApp,null); |
//... If desired, you can proceed from here using the Microsoft Graph |
//Object model on the oChart and oChartApp objects to make additional |
//changes to the chart. |
//Set the width of the chart. |
oShape.Width = oWord.InchesToPoints(6.25f); |
oShape.Height = oWord.InchesToPoints(3.57f); |
//Add text after the chart. |
wrdRng = oDoc.Bookmarks.get_Item(refoEndOfDoc).Range; |
wrdRng.InsertParagraphAfter(); |
wrdRng.InsertAfter("THE END."); |
//Close this form. |
this.Close(); |
} |
privatevoidbutton2_Click(objectsender, EventArgs e) |
{ |
strings =""; |
if(openFileDialog1.ShowDialog() == DialogResult.OK) |
{ |
s = openFileDialog1.FileName; |
} |
else |
{ |
return; |
} |
// 在此处放置用户代码以初始化页面 |
Word.ApplicationClass word =newWord.ApplicationClass(); |
Type wordType = word.GetType(); |
Word.Documents docs = word.Documents; |
// 打开文件 |
Type docsType = docs.GetType(); |
objectfileName = s; |
Word.Document doc = (Word.Document)docsType.InvokeMember("Open", |
System.Reflection.BindingFlags.InvokeMethod,null, docs,newObject[] { fileName,false,false}); |
// 转换格式，另存为 |
Type docType = doc.GetType(); |
objectsaveFileName ="d:\\Reports\\aaa.doc"; |
//下面是Microsoft Word 9 Object Library的写法，如果是10，可能写成： |
/* |
docType.InvokeMember("SaveAs", System.Reflection.BindingFlags.InvokeMethod, |
null, doc, new object[]{saveFileName, Word.WdSaveFormat.wdFormatFilteredHTML}); |
*/ |
///其它格式： |
///wdFormatHTML |
///wdFormatDocument |
///wdFormatDOSText |
///wdFormatDOSTextLineBreaks |
///wdFormatEncodedText |
///wdFormatRTF |
///wdFormatTemplate |
///wdFormatText |
///wdFormatTextLineBreaks |
///wdFormatUnicodeText |
docType.InvokeMember("SaveAs", System.Reflection.BindingFlags.InvokeMethod, |
null, doc,newobject[] { saveFileName, Word.WdSaveFormat.wdFormatDocument }); |
// 退出 Word |
wordType.InvokeMember("Quit", System.Reflection.BindingFlags.InvokeMethod, |
null, word,null); |
} |
privatevoidWordConvert(strings) |
{ |
oWord.ApplicationClass word =newMicrosoft.Office.Interop.Word.ApplicationClass(); |
Type wordType = word.GetType(); |
//打开WORD文档 |
/*对应脚本中的 |
var word = new ActiveXObject("Word.Application"); |
var doc = word.Documents.Open(docfile); |
*/ |
oWord.Documents docs = word.Documents; |
Type docsType = docs.GetType(); |
objectobjDocName =s; |
oWord.Document doc = (oWord.Document)docsType.InvokeMember("Open", System.Reflection.BindingFlags.InvokeMethod,null, docs,newObject[] { objDocName,true,true}); |
//打印输出到指定文件 |
//你可以使用 doc.PrintOut();方法,次方法调用中的参数设置较繁琐,建议使用 Type.InvokeMember 来调用时可以不用将PrintOut的参数设置全,只设置4个主要参数 |
Type docType = doc.GetType(); |
objectprintFileName =@"c:\aaa.ps"; |
docType.InvokeMember("PrintOut", System.Reflection.BindingFlags.InvokeMethod,null, doc,newobject[] {false,false, oWord.WdPrintOutRange.wdPrintAllDocument, printFileName }); |
//new object[]{false,false,oWord.WdPrintOutRange.wdPrintAllDocument,printFileName} |
//对应脚本中的word.PrintOut(false, false, 0, psfile);的参数 |
//退出WORD |
//对应脚本中的word.Quit(); |
wordType.InvokeMember("Quit", System.Reflection.BindingFlags.InvokeMethod,null, word,null); |
objecto1 ="c:\\aaa.ps"; |
objecto2 ="c:\\aaa.pdf"; |
objecto3 =""; |
//引用将PS转换成PDF的对象 |
//try catch之间对应的是脚本中的 PDF.FileToPDF(psfile,pdffile,""); //你可以使用 pdfConvert.FileToPDF("c:\\test.ps","c:\\test.pdf","");这样的转换方法,本人只是为了保持与WORD相同的调用方式 |
try |
{ |
ACRODISTXLib.PdfDistillerClass pdf =newACRODISTXLib.PdfDistillerClass(); |
Type pdfType = pdf.GetType(); |
pdfType.InvokeMember("FileToPDF", System.Reflection.BindingFlags.InvokeMethod,null, pdf,newobject[] { o1, o2, o3 }); |
pdf =null; |
} |
catch{ }//读者自己补写错误处理 |
//为防止本方法调用多次时发生错误,必须停止acrodist.exe进程 |
foreach(System.Diagnostics .Process procinSystem.Diagnostics.Process.GetProcesses()) |
{ |
intbegpos; |
intendpos; |
stringsProcName = proc.ToString(); |
begpos = sProcName.IndexOf("(") + 1; |
endpos = sProcName.IndexOf(")"); |
sProcName = sProcName.Substring(begpos, endpos - begpos); |
if(sProcName.ToLower().CompareTo("acrodist") == 0) |
{ |
try |
{ |
proc.Kill();//停止进程 |
} |
catch{ }//读者自己补写错误处理 |
break; |
} |
} |
} |
privatevoidbutton3_Click(objectsender, EventArgs e) |
{ |
if(openFileDialog1.ShowDialog() == DialogResult.OK) |
{ |
strings = openFileDialog1.FileName; |
WordConvert(s); |
} |
} |
//getnextcode |
privatevoidbutton4_Click(objectsender, EventArgs e) |
{ |
WorkCell myWorkCell =newWorkCell(textBox2.Text,textBox1.Text); |
textBox3.Text = myWorkCell.GetNextCode(); |
} |
} |
publicclassWorkCell |
{ |
privatestringworkCellCode; |
privatestringparentCellCode; |
privatestringcommonCode; |
privatechar[] code; |
privatechar[] pCode; |
privatechar[] standCode; |
privatestrings; |
publicWorkCell(stringmycode,stringparentcode) |
{ |
workCellCode = mycode; |
parentCellCode = parentcode; |
standCode =newchar[] {'1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','W','T','U','V','W','X','Y','Z'}; |
commonCode = Regex.Replace(parentCellCode,@"0+",""); |
code = workCellCode.Substring(commonCode.Length).ToCharArray(); |
} |
publicstringWorkCellCode |
{ |
set |
{ |
workCellCode = value; |
} |
get |
{ |
returnworkCellCode; |
} |
} |
publicstringParentCellCode |
{ |
set |
{ |
workCellCode = value; |
} |
get |
{ |
returnworkCellCode; |
} |
} |
publicstringGetNextCode() |
{ |
strings=""; |
if(code.Length > 0) |
{ |
inti = 0; |
for(i = code.Length - 1; i >= 0; i--) |
{ |
if(code[i] !='0') |
{ |
GetNextChar(i); |
break; |
} |
} |
for(i=0;i<code.Length;i++) |
{ |
s+=code[i].ToString(); |
} |
returncommonCode + s; |
} |
else |
{ |
return"null"; |
} |
} |
//设置code中的下一个代码，从右边起，找到第一个非0字符，将其按标准代码自加1，溢出则进位 |
privatecharGetNextChar(intj) |
{ |
inti = -1; |
intflag = 0; |
for(i = 0; i < standCode.Length; i++) |
{ |
if(code[j] == standCode[i]) |
{ |
flag = 1; |
break; |
} |
} |
//MessageBox.Show(code[j].ToString()+" "+standCode[i].ToString()+" "+i.ToString()); |
if(i >= standCode.Length-1 || flag==0) |
{ |
code[j] = standCode[0]; |
if(j > 0) |
code[j - 1] = GetNextChar(j - 1); |
} |
else |
{ |
code[j] = standCode[i + 1]; |
} |
returncode[j]; |
} |
} |
} |