Visual Basic

Imports wrd = Microsoft.Office.interop
    ...
    Private Shared moapp As wrd.Word.Application
    Private Shared odoc As wrd.Word.Document
    ...

Private Sub test()
moapp = New wrd.Word.ApplicationClass().Application
    For i As Integer = 0 To 100
        odoc = moapp.Documents.Add("\\bur-131.cmc.Be\Tools\INFORMATICA\ZZorg\bevestziek.doc")
        moapp.Selection.GoTo(What:=wrd.Word.WdGoToItem.wdGoToBookmark, Name:="bwNaam")
        With moapp.ActiveDocument.Bookmarks
            .DefaultSorting = wrd.Word.WdBookmarkSortBy.wdSortByName
            .ShowHidden = False
        End With
        moapp.Selection.TypeText(Text:="whoopie" & i.ToString())

        sOriginalPrinter = moapp.ActivePrinter
        moapp.ActivePrinter = "\\S31W40F\PRINT075"   
          
        With moapp.ActiveDocument.PageSetup
            .FirstPageTray = 261 '257
            .OtherPagesTray = 261 '257
        End With

moapp.Application.PrintOut(FileName:="", Range:=wrd.Word.WdPrintOutRange.wdPrintAllDocument, Item:= _
wrd.Word.WdPrintOutItem.wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wrd.Word.WdPrintOutPages.wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0)
           
        While moapp.BackgroundPrintingStatus = 0
        End While
            
        moapp.ActivePrinter = sOriginalPrinter

        odoc.SaveAs("C:\somelocation\temp.doc")
            
        odoc.Close()
     Next

        System.Runtime.InteropServices.Marshal.ReleaseComObject(odoc)
        odoc = Nothing
        moapp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(moapp)
        moapp = Nothing
        GC.Collect()
        GC.WaitForPendingFinalizers()
End Sub

<tr>
    <td>&nbsp;</td>
    <td align="left">
        <asp:RadioButtonList ID="hTeamNameRBL" runat="server" Enabled="False" OnSelectedIndexChanged="selectedHomeTeamChanged" AutoPostBack="True"></asp:RadioButtonList>
    </td>
    <td>&nbsp;</td>
    <td align="left">
        <asp:RadioButtonList ID="aTeamNameRBL" runat="server" Enabled="False" OnSelectedIndexChanged="selectedAwayTeamChanged" AutoPostBack="True"></asp:RadioButtonList>
    </td>
    <td>&nbsp;</td>
    <td align="left" valign="top">
        <asp:RadioButtonList ID="fieldRBL" runat="server" Width="200px" style="text-align:left;" Enabled="False" OnSelectedIndexChanged="selectedFieldChanged" AutoPostBack="True"></asp:RadioButtonList>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:TextBox ID="otherField" runat="server" Enabled="false" OnTextChanged="otherFieldTextChanged" AutoPostBack="True"></asp:TextBox>
    </td>
    <td>&nbsp;</td>
</tr>

Sub buildTeamRBL(ByVal division As Integer, Optional ByVal myYear As Integer = 2010)

    Dim teamNames As String() = Nothing
    Dim teamNumbers As String() = Nothing
    Dim teamLetters As String() = Nothing

    Dim lItem As New ListItem()
    Dim tnLen As Integer = 0

    Dim hTeamSelected As Integer = -1
    Dim aTeamSelected As Integer = -1

    hTeamNameRBL.Enabled = True
    aTeamNameRBL.Enabled = True
    hTeamNameRBL.Items.Clear()
    aTeamNameRBL.Items.Clear()
    hTeamNameRBL.ClearSelection()
    aTeamNameRBL.ClearSelection()

    myCommonVB.getTeamNamesByDiv(myYear, division, teamNames, teamNumbers, teamLetters, errEncountered, errDetail)

    If Not errEncountered Then
        tnLen = teamNames.GetUpperBound(0)
        For i As Integer = 0 To tnLen - 1
            lItem = New ListItem()
            lItem.Text = teamNames.GetValue(i)
            lItem.Value = lItem.Text
            aTeamNameRBL.Items.Add(lItem)
            If lItem.Text.Equals(aTeamName) Then
                aTeamSelected = i
                aTeamNumber = teamNumbers(i)
                aTeamLetter = teamLetters(i)
            End If
            hTeamNameRBL.Items.Add(lItem)
            If lItem.Text.Equals(hTeamName) Then
                hTeamSelected = i
                hTeamNumber = teamNumbers(i)
                hTeamLetter = teamLetters(i)
            End If
        Next
        aTeamNameRBL.SelectedIndex = aTeamSelected
        hTeamNameRBL.SelectedIndex = hTeamSelected
    Else
        debug.Text += errDetail
    End If
End Sub

Sub selectedHomeTeamChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim orgAteamSelectedIndex As Integer = aTeamNameRBL.SelectedIndex
    Dim newHteamSelectedIndex As Integer = hTeamNameRBL.SelectedIndex

    For i As Integer = 0 To teamNames.GetUpperBound(0) - 1
        aTeamNameRBL.SelectedIndex = i
        aTeamNameRBL.SelectedItem.Enabled = True
    Next
    aTeamNameRBL.SelectedIndex = newHteamSelectedIndex
    aTeamNameRBL.SelectedItem.Enabled = False
    If Not orgAteamSelectedIndex = -1 Then
        aTeamNameRBL.SelectedIndex = orgAteamSelectedIndex
    Else
        aTeamNameRBL.ClearSelection()
    End If
    seeIfEnablingSubmit()
End Sub

Sub selectedAwayTeamChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim orgHteamSelectedIndex As Integer = hTeamNameRBL.SelectedIndex
    Dim newAteamSelectedIndex As Integer = aTeamNameRBL.SelectedIndex

    For i As Integer = 0 To teamNames.GetUpperBound(0) - 1
        hTeamNameRBL.SelectedIndex = i
        hTeamNameRBL.SelectedItem.Enabled = True
    Next
    hTeamNameRBL.SelectedIndex = newAteamSelectedIndex
    hTeamNameRBL.SelectedItem.Enabled = False
    If Not orgHteamSelectedIndex = -1 Then
        hTeamNameRBL.SelectedIndex = orgHteamSelectedIndex
    Else
        hTeamNameRBL.ClearSelection()
    End If
    seeIfEnablingSubmit()
End Sub