Private Sub CreateDownarrowMethod()
MyOutput.zip (31.5 KB)
Dim filePathName As String = "C:\\Aspose\\Files\\FRB\\inMyFileDOC.docx"
Dim doc As New Aspose.Words.Document(filePathName)
Dim docBuilder As DocumentBuilder = New DocumentBuilder(doc)
docBuilder.Font.Size = 6
docBuilder.MoveToDocumentEnd()
docBuilder.Font.Size = "6"
docBuilder.Font.Name = "Arial"
docBuilder.Writeln()
docBuilder.Writeln()
Dim man As Shape = GetTextBox(docBuilder, 20, -40, 100, 20)
Dim manPara As New Paragraph(doc)
manPara.AppendChild(New Run(doc, "MAN"))
man.AppendChild(manPara)
docBuilder.InsertNode(man)
Dim manCauseTxt As String
manCauseTxt = "Operator understands the standards? Yes" _
+ " Operator understands quality outcomes? Yes()" _
+ " Job done the same on all shifts? Yes()" _
+ " Operator trained properly? Yes" _
+ " Operator followed the instructions? NO" _
+ " Parts were blocked at previsous claim? NO"
Dim manCause As Shape = GetTextBox(docBuilder, 5, -40, 10, 50)
Dim manCausePara As New Paragraph(doc)
manCausePara.AppendChild(New Run(doc, manCauseTxt))
manCause.AppendChild(manCausePara)
docBuilder.InsertNode(manCause)
Dim method As Shape = GetTextBox(docBuilder, 167, -40, 100, 20)
Dim methodPara As New Paragraph(doc)
methodPara.AppendChild(New Run(doc, "METHOD"))
method.AppendChild(methodPara)
docBuilder.InsertNode(method)
Dim machine As Shape = GetTextBox(docBuilder, 320, -40, 100, 20)
Dim machinePara As New Paragraph(doc)
machinePara.AppendChild(New Run(doc, "MACHINE"))
machine.AppendChild(machinePara)
docBuilder.InsertNode(machine)
Dim material As Shape = GetTextBox(docBuilder, 15, 400, 100, 20)
Dim materialPara As New Paragraph(doc)
materialPara.AppendChild(New Run(doc, "MATERIAL"))
material.AppendChild(materialPara)
docBuilder.InsertNode(material)
Dim measurement As Shape = GetTextBox(docBuilder, 155, 400, 100, 20)
Dim measurementPara As New Paragraph(doc)
measurementPara.AppendChild(New Run(doc, "MEASUREMENT"))
measurement.AppendChild(measurementPara)
docBuilder.InsertNode(measurement)
Dim environment As Shape = GetTextBox(docBuilder, 330, 400, 100, 20)
Dim environmentPara As New Paragraph(doc)
environmentPara.AppendChild(New Run(doc, "ENVIRONMENT"))
environment.AppendChild(environmentPara)
docBuilder.InsertNode(environment)
docBuilder.Writeln()
docBuilder.Writeln()
docBuilder.Writeln()
docBuilder.Writeln()
docBuilder.Writeln()
docBuilder.Writeln()
Dim arrowMan As Shape = New Shape(doc, ShapeType.Arrow)
arrowMan.Top = 40
arrowMan.Left = -10
arrowMan.Width = 250
arrowMan.Height = 3
arrowMan.Rotation = 80
arrowMan.StrokeWeight = System.Drawing.FontStyle.Bold
arrowMan.StrokeColor = System.Drawing.Color.Black
arrowMan.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowMan)
Dim arrowMethod As Shape = New Shape(doc, ShapeType.Arrow)
arrowMethod.Top = 40
arrowMethod.Left = 140
arrowMethod.Width = 250
arrowMethod.Height = 3
arrowMethod.Rotation = 80
arrowMethod.StrokeWeight = System.Drawing.FontStyle.Bold
arrowMethod.StrokeColor = System.Drawing.Color.Black
arrowMethod.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowMethod)
Dim arrowMachine As Shape = New Shape(doc, ShapeType.Arrow)
arrowMachine.Top = 40
arrowMachine.Left = 290
arrowMachine.Width = 250
arrowMachine.Height = 3
arrowMachine.Rotation = 80
arrowMachine.StrokeWeight = System.Drawing.FontStyle.Bold
arrowMachine.StrokeColor = System.Drawing.Color.Black
arrowMachine.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowMachine)
Dim mainArrow As Shape = New Shape(doc, ShapeType.Arrow)
mainArrow.Top = 155
mainArrow.Left = 0
mainArrow.Width = 520
mainArrow.Height = 3
mainArrow.StrokeWeight = System.Drawing.FontStyle.Bold
mainArrow.StrokeColor = System.Drawing.Color.Black
mainArrow.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(mainArrow)
Dim arrowMaterial As Shape = New Shape(doc, ShapeType.Arrow)
arrowMaterial.Top = 260
arrowMaterial.Left = -10
arrowMaterial.Width = 250
arrowMaterial.Height = 3
arrowMaterial.Rotation = -80
arrowMaterial.StrokeWeight = System.Drawing.FontStyle.Bold
arrowMaterial.StrokeColor = System.Drawing.Color.Black
arrowMaterial.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowMaterial)
Dim arrowMeasurement As Shape = New Shape(doc, ShapeType.Arrow)
arrowMeasurement.Top = 260
arrowMeasurement.Left = 140
arrowMeasurement.Width = 250
arrowMeasurement.Height = 3
arrowMeasurement.Rotation = -80
arrowMeasurement.StrokeWeight = System.Drawing.FontStyle.Bold
arrowMeasurement.StrokeColor = System.Drawing.Color.Black
arrowMeasurement.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowMeasurement)
Dim arrowEnvironment As Shape = New Shape(doc, ShapeType.Arrow)
arrowEnvironment.Top = 260
arrowEnvironment.Left = 290
arrowEnvironment.Width = 250
arrowEnvironment.Height = 3
arrowEnvironment.Rotation = -80
arrowEnvironment.StrokeWeight = System.Drawing.FontStyle.Bold
arrowEnvironment.StrokeColor = System.Drawing.Color.Black
arrowEnvironment.FillColor = System.Drawing.Color.Black
docBuilder.InsertNode(arrowEnvironment)
docBuilder.Writeln()
docBuilder.Writeln()
docBuilder.Writeln()
doc.Save("C:\\Aspose\\Files\\FRB\\outMyFileDOC.docx")
End Sub
Private Shared Function GetTextBox(ByVal builder As DocumentBuilder, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As Shape
Dim txt As New Aspose.Words.Drawing.Shape(builder.Document, ShapeType.TextBox)
txt.Left = x
txt.Top = y
txt.WrapType = WrapType.None
txt.TextBox.TextBoxWrapMode = TextBoxWrapMode.None
txt.TextBox.FitShapeToText = True
txt.Width = width
txt.Height = height
txt.AllowOverlap = True
Return txt
End Function
MyOutput.zip (31.5 KB)