aspose word 插入文本 表格 图片

Public Sub CreatDoc(ByValtitlestr As String, ByVal ds As DataSet, ByValfn As String, ByValStartDate As Date, ByValEndDate As Date, Optional ByValDayReport As Integer = 0) 'Instantiate a Pdf instance Dim doc1 As Aspose.Words.Document = New Aspose.Words.Document Dim builder As New Aspose.Words.DocumentBuilder(doc1) builder.Write(titlestr) builder.InsertBreak(Aspose.Words.BreakType.ParagraphBreak) builder.InsertBreak(Aspose.Words.BreakType.ParagraphBreak) For i As Integer = 0 To ds1.Tables.Count - 1 If ds1.Tables(i).Rows.Count> 0 Then If i = 4 Then builder.MoveToDocumentEnd() builder.InsertBreak(Aspose.Words.BreakType.PageBreak) 'Chart图片 Select Case DayReport Case 0 doc1 = InsertImg2Doc(doc1, StartDate, EndDate, "小时", 3) 'sec2 = InsertImg2Pdf(sec2, StartDate, EndDate, "小时", 3) Case 1 doc1 = InsertImg2Doc(doc1, StartDate, EndDate, "天", 10) 'sec2 = InsertImg2Pdf(sec2, StartDate, EndDate, "天", 10) Case 2 doc1 = InsertImg2Doc(doc1, StartDate, EndDate, "天", 10) doc1 = InsertImg2Doc(doc1, StartDate, EndDate, "周", 10) 'sec2 = InsertImg2Pdf(sec2, StartDate, EndDate, "天", 10) 'sec2 = InsertImg2Pdf(sec2, StartDate, EndDate, "周", 10) End Select builder.MoveToDocumentEnd() builder.InsertBreak(Aspose.Words.BreakType.PageBreak) End If doc1 = InsertTable2Doc(doc1, ds1.Tables(i)) End If Next ds1.Dispose() doc1.Save(fn) End Sub Private Function InsertTable2Doc(ByVal doc1 As Aspose.Words.Document, ByValtb As DataTable) As Aspose.Words.Document Dim builder As New Aspose.Words.DocumentBuilder(doc1) builder.MoveToDocumentEnd() builder.StartTable() builder.Write(tb.TableName) '表头 For i As Integer = 0 Totb.Columns.Count - 1 builder.InsertCell() builder.Write(tb.Columns(i).ColumnName) Next builder.EndRow() For i As Integer = 0 Totb.Rows.Count - 1 For j As Integer = 0 Totb.Columns.Count - 1 builder.InsertCell() builder.Write(tb.Rows(i)(j).ToString) Next builder.EndRow() Next builder.EndTable() builder.InsertBreak(Aspose.Words.BreakType.ParagraphBreak) Return doc1 End Function Function InsertImg2Doc(ByVal doc1 As Aspose.Words.Document, ByValstartDate As Date, ByValenddate As Date, ByVal type1 As String, ByValChartTypeAs Integer, Optional ByVal Enable3D As Boolean = True) As Aspose.Words.Document Dim builder As New Aspose.Words.DocumentBuilder(doc1) builder.MoveToDocumentEnd() builder.Write("按" & type1 & "浏览量:") Dim dt As DataTable = stat1.StatByDate(type1, "", startdate, enddate) Dim mychart As System.Windows.Forms.DataVisualization.Charting.Chart = stat1.ShowChart1(dt, ChartType, "浏览量", type1, Enable3D) 'mychart.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column '初始化数值 mychart.Width = doc1.GetPageInfo(0).WidthInPoints - 40 mychart.Height = 300 mychart.Series(0).Name = "浏览量" Dim ms As MemoryStream = New MemoryStream() mychart.Saveimage(ms, System.Drawing.Imaging.ImageFormat.Png) 'mychart.Dispose() Dim image1 As Aspose.Pdf.Generator.Image = New Aspose.Pdf.Generator.Image() image1.ImageInfo.ImageFileType = Aspose.Pdf.Generator.ImageFileType.Png 'image1.ImageInfo.ImageStream = ScaleImg(ms, sec2.PageInfo.PageWidth, 0) image1.ImageInfo.ImageStream = ms builder.InsertImage(ms) Return doc1 End Function