ویرایش فایل ورد - نسخه قابل چاپ

کد:
Create Edit Word Document using C# VB.NET 



Here I am going to demonstrate How to Create and Edit MS Word Document using C# and VB.NET











To create or edit MS Word document, first of all we need to add two references to our project.



Microsoft.Office.Core



Microsoft.Office.Interop.Word























Creating document:







Code Behind:







C#











private void btnCreate_Click(object sender, EventArgs e)



{



try



{



//creating object for missing value



object missing = System.Reflection.Missing.Value;



//object for end of file



object endofdoc = "\\endofdoc";







//creating instance of word application



Microsoft.Office.Interop.Word._Application w = new Microsoft.Office.Interop.Word.Application();



//creating instance of word document



Microsoft.Office.Interop.Word._Document doc;



//setting status of application to visible



w.Visible = true;



//creating new document



doc = w.Documents.Add(ref missing, ref missing, ref missing, ref missing);



//adding paragraph to document



Microsoft.Office.Interop.Word.Paragraph para1;



para1 = doc.Content.Paragraphs.Add(ref missing);



object styleHeading1 = "Heading 1";



para1.Range.set_Style(ref styleHeading1);



para1.Range.Text = "Heading One";



para1.Range.Font.Bold = 1;



para1.Format.SpaceAfter = 24;



para1.Range.InsertParagraphAfter();



//creating second paragraph



Microsoft.Office.Interop.Word.Paragraph para2;



para2 = doc.Content.Paragraphs.Add(ref missing);



para2.Range.Text = "Heading OneHeading OneHeading OneHeading OneHeading OneHeading OneHeading" + '\n' + "OneHeading OneHeading OneHeading OneHeading OneHeading OneHeading One";



para2.Range.Font.Bold = 1;



para2.Format.SpaceAfter = 24;



para2.Range.InsertParagraphAfter();



}



catch (Exception ex)



{



ClientScript.RegisterStartupScript(this.GetType(), "error", "javascript:;alert('" + ex.Message + "')");



}



}











VB.NET







Private Sub btnCreate_Click(sender As Object, e As EventArgs)



Try



'creating object for missing value



Dim missing As Object = System.Reflection.Missing.Value



'object for end of file



Dim endofdoc As Object = "\endofdoc"







'creating instance of word application



Dim w As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()



'creating instance of word document



Dim doc As Microsoft.Office.Interop.Word._Document



'setting status of application to visible



w.Visible = True



'creating new document



doc = w.Documents.Add(missing, missing, missing, missing)



'adding paragraph to document



Dim para1 As Microsoft.Office.Interop.Word.Paragraph



para1 = doc.Content.Paragraphs.Add(missing)



Dim styleHeading1 As Object = "Heading 1"



para1.Range.set_Style(styleHeading1)



para1.Range.Text = "Heading One"



para1.Range.Font.Bold = 1



para1.Format.SpaceAfter = 24



para1.Range.InsertParagraphAfter()



'creating second paragraph



Dim para2 As Microsoft.Office.Interop.Word.Paragraph



para2 = doc.Content.Paragraphs.Add(missing)



para2.Range.Text = "Heading OneHeading OneHeading OneHeading OneHeading OneHeading OneHeading" + ControlChars.Lf + "OneHeading OneHeading OneHeading OneHeading OneHeading OneHeading One"



para2.Range.Font.Bold = 1



para2.Format.SpaceAfter = 24



para2.Range.InsertParagraphAfter()



Catch ex As Exception



ClientScript.RegisterStartupScript(Me.[GetType](), "error", "javascript:;alert('" + ex.Message + "')")



End Try



End Sub











Editing document:







Code Behind:







C#







private void btnEdit_Click(object sender, EventArgs e)



{



//creating instance of word application



Microsoft.Office.Interop.Word._Application w = new Microsoft.Office.Interop.Word.Application();



object path = @"C:\table.doc";



object read = "ReadWrite";



object readOnly = false;



object o = System.Reflection.Missing.Value;



//opening document



Microsoft.Office.Interop.Word._Document oDoc = w.Documents.Open(ref path, ref o, ref readOnly, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o, ref o);







try



{



//loop for each paragraph in document



foreach (Microsoft.Office.Interop.Word.Paragraph p in oDoc.Paragraphs)



{



Microsoft.Office.Interop.Word.Range rng = p.Range;



Microsoft.Office.Interop.Word.Style styl = rng.get_Style() as Microsoft.Office.Interop.Word.Style;



//checking if document containg table



if ((bool)rng.get_Information(Microsoft.Office.Interop.Word.WdInformation.wdWithInTable)



== true)



{



//loop for each cell in table



foreach (Microsoft.Office.Interop.Word.Cell c in rng.Cells)



{



if (rng.Cells.Count > 0)



{



//checking for desired field in table



if (c.Range.Text.ToString().Contains("ID"))



//editing values in tables.



c.Next.Range.Text = "1";



if (c.Range.Text.ToString().Contains("Name"))



c.Next.Range.Text = "Haider";



if (c.Range.Text.ToString().Contains("Address"))



c.Next.Range.Text = "Allahabad";



}



}



//saving document



oDoc.Save();



}



}



//closing document



oDoc.Close(ref o, ref o, ref o);



}



catch (Exception ex)



{



oDoc.Close(ref o, ref o, ref o);



ClientScript.RegisterStartupScript(this.GetType(), "error", "javascript:;alert('" + ex.Message + "')");



}







}











VB.NET







Private Sub btnEdit_Click(sender As Object, e As EventArgs)



'creating instance of word application



Dim w As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()



Dim path As Object = "C:\table.doc"



Dim read As Object = "ReadWrite"



Dim [readOnly] As Object = False



Dim o As Object = System.Reflection.Missing.Value



'opening document



Dim oDoc As Microsoft.Office.Interop.Word._Document = w.Documents.Open(path, o, [readOnly], o, o, o, _



o, o, o, o, o, o, _



o, o, o, o)







Try



'loop for each paragraph in document



For Each p As Microsoft.Office.Interop.Word.Paragraph In oDoc.Paragraphs



Dim rng As Microsoft.Office.Interop.Word.Range = p.Range



Dim styl As Microsoft.Office.Interop.Word.Style = TryCast(rng.get_Style(), Microsoft.Office.Interop.Word.Style)



'checking if document containg table



If CBool(rng.get_Information(Microsoft.Office.Interop.Word.WdInformation.wdWithInTable)) = True Then



'loop for each cell in table



For Each c As Microsoft.Office.Interop.Word.Cell In rng.Cells



If rng.Cells.Count > 0 Then



'checking for desired field in table



If c.Range.Text.ToString().Contains("ID") Then



'editing values in tables.



c.[Next].Range.Text = "1"



End If



If c.Range.Text.ToString().Contains("Name") Then



c.[Next].Range.Text = "Haider"



End If



If c.Range.Text.ToString().Contains("Address") Then



c.[Next].Range.Text = "Allahabad"



End If



End If



Next



'saving document



oDoc.Save()



End If



Next



'closing document



oDoc.Close(o, o, o)



Catch ex As Exception



oDoc.Close(o, o, o)



ClientScript.RegisterStartupScript(Me.[GetType](), "error", "javascript:;alert('" + ex.Message + "')")



End Try







End Sub