Visual Basic

'Set Range to end of document
            Dim where As Range
            Set where = ActiveDocument.Range(ActiveDocument.Range.End - 1, ActiveDocument.Range.End - 1)
            
            'Insert table with 100 rows and 2 cols
            Set tablewith_different_styles = ActiveDocument.Tables.Add(where, 100, 2, _
                DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
            
            
            'Loop 100 times for each Font
            i = 0
            g = 1
            Do While i < 5
                Do While g < 21

                    'Got to table row i, col 1
                    tablewith_different_styles.Cell((i * 20) + g, 1).Select
                
                    
                    'Set random font
                    Selection.Font.Name = FontNames(g + 20)
                    'Save random font
                    Name_Font = Selection.Font.Name
                    'reset font for next output
                    Selection.Font.Name = "Courier New"
                    Selection.Font.Size = 9
                    'Insert font name and iterate to next line
                    Selection.TypeText Text:=Name_Font
                    Selection.MoveRight Unit:=wdCell
                    
                    'set font and size
                    Selection.Font.Name = FontNames(g)
                    Selection.Font.Size = 9
                    Selection.TypeText Text:="My Formatted Text in every Row."
                
                    g = g + 1
                Loop
                g = 1
                i = i + 1
            Loop

Private Const PARAMETER_FIELD_NAME As String = "numb"

    Private impbonrecepReport As ReportDocument

    Private Sub ConfigureCrystalReports()


        Dim myArrayList As ArrayList = New ArrayList()

        myArrayList.Add(999)
        Dim numbrecep As Integer

        numbrecep = 999



        SetCurrentValuesForParameterField(impbonrecepReport, myArrayList)
       
        impbonrecepReport = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & "ImpBonReception.rpt"

        impbonrecepReport.Load(reportPath)
        CrystalReportViewer1.ReportSource = impbonrecepReport

    End Sub


Private Sub SetCurrentValuesForParameterField(ByVal myReportDocument As ReportDocument, ByVal myArrayList As ArrayList)

        Dim currentParameterValues As ParameterValues = New ParameterValues()


        For Each submittedValue As Object In myArrayList

            <big>Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()</big>
            myParameterDiscreteValue.Value = myArrayList.ToString()
            currentParameterValues.Add(myParameterDiscreteValue)

        Next


        Dim myParameterFieldDefinitions As ParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields
        Dim myParameterFieldDefinition As ParameterFieldDefinition = myParameterFieldDefinitions(PARAMETER_FIELD_NAME)
        myParameterFieldDefinition.ApplyCurrentValues(currentParameterValues)


    End Sub

An unhandled exception of type 'System.NullReferenceException' occurred in GestionStock.exe
Additional information: La référence d'objet n'est pas définie à une instance d'un objet.

Dim myParameterFieldDefinitions As ParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields<br />