Hello!

I hope this is the right newsgroup I'm posting this question. I'm having a
problem when adding Page Number field to a table's cell. That table is placed
in the document's header. The document is generated by COM Interop with
VB.NET. The error description is below, followed by the source code that
generate the document.

Unhandled Exception: System.Runtime.InteropServices.COMException
(0x800A11FD): This command is not available
  at Word.Fields.Add(Range Range, Object& Type, Object& Text, Object&
PreserveFormatting)
  at
WEG.Applications.CRM.Proposta.DocumentBuilder.HeaderWriter.WritePageNumbers(Document
document, Cell cell) in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Weg.Applications.CRM.Proposta.DocumentBuilder\DocumentBuilder\Implementation\SectionWriter\HeaderWriter.vb:line 93
  at
WEG.Applications.CRM.Proposta.DocumentBuilder.HeaderWriter.WriteTable(Document
document, IProposta proposta) in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Weg.Applications.CRM.Proposta.DocumentBuilder\DocumentBuilder\Implementation\SectionWriter\HeaderWriter.vb:line 35
  at
WEG.Applications.CRM.Proposta.DocumentBuilder.HeaderWriter.Write(Documentdocument,
IProposta proposta) in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Weg.Applications.CRM.Proposta.DocumentBuilder\DocumentBuilder\Implementation\SectionWriter\HeaderWriter.vb:line 9
  at
WEG.Applications.CRM.Proposta.DocumentBuilder.DocumentWriter.Write(Document
document, IComposition composition, IProposta proposta) in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Weg.Applications.CRM.Proposta.DocumentBuilder\DocumentBuilder\Implementation\DocumentWriter.vb:line 12
  at
WEG.Applications.CRM.Proposta.DocumentBuilder.WordDocumentFactory.Create(IProposta
proposta, IModel model) in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Weg.Applications.CRM.Proposta.DocumentBuilder\DocumentBuilder\Factory\WordDocumentFactory.vb:line
12
  at DocumentBuilderLauncher.EntryPoint.Launch(OracleConnection connection)
in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Tests.Weg.Applications.CRM.Proposta.DocumentBuilder.Launcher\EntryPoint.vb:line 25
  at DocumentBuilderLauncher.EntryPoint.Main() in
C:\Dev\Proj\Weg.Applications.CRM.Proposta.DocumentBuilder\Tests.Weg.Applications.CRM.Proposta.DocumentBuilder.Launcher\EntryPoint.vb:line 10

Imports System.Globalization
Imports ABC.Globalization.Translator

Friend Class HeaderWriter
   Implements ISectionWriter

   Public Sub Write(ByVal document As Word.Document, ByVal proposal As
IProposal) Implements ISectionWriter.Write
       WriteTitle(document, proposal)
       WriteTable(document, proposal)
       InsertCompanyLogoImage(document, proposal.GetLanguageCulture())
       If Not proposal.SentToCustomer Then
InsertProposalNotSentStampImage(document, proposal.GetLanguageCulture())
   End Sub

   Private Sub WriteTitle(ByVal document As Word.Document, ByVal proposal
As IProposal)
       Dim writer As New TextWriter(GetDocumentHeader(document))
       writer.WriteParagraph(proposal.Company.Name, True,
DocumentFormatter.BigFontSize)
       writer.WriteParagraph()
       writer.WriteParagraph()
       writer.WriteParagraph()
       writer.WriteParagraph()
       writer.WriteParagraph()
   End Sub

   Private Sub WriteTable(ByVal document As Word.Document, ByVal proposal
As IProposal)
       Dim table As Word.Table = New
TableFactory(GetDocumentHeader(document)).Create(1, 3)

       SetupColumnsWidth(table)
       SetupCellsAlignment(table)
       SetupRowHeight(table)
       PutBordersOnTopAndBottom(table)

       WriteProposalId(table.Cell(1, 1), proposal)
       WriteEmissionDate(table.Cell(1, 2), proposal)
       WritePageNumbers(document, table.Cell(1, 3))
   End Sub

   Private Sub InsertCompanyLogoImage(ByVal document As Word.Document,
ByVal culture As CultureInfo)
       Dim imageFilePath As String = New
ImageStore(culture).GetImageFilePath("Logo")
       Dim shape As Word.Shape =
GetDocumentHeader(document).Shapes.AddPicture(imageFilePath)
       shape.Left = 450
   End Sub

   Private Sub InsertProposalNotSentStampImage(ByVal document As
Word.Document, ByVal culture As CultureInfo)
       Dim imageFilePath As String = New
ImageStore(culture).GetImageFilePath("Stamp")
       Dim shape As Word.Shape =
GetDocumentHeader(document).Shapes.AddPicture(imageFilePath)
       shape.WrapFormat.Type = Word.WdWrapType.wdWrapNone
       shape.PictureFormat.ColorType =
Microsoft.Office.Core.MsoPictureColorType.msoPictureWatermark
       shape.Left = document.PageSetup.PageWidth / 2 - shape.Width / 2
       shape.Top = document.PageSetup.PageHeight / 2 - shape.Height / 2
   End Sub

   Private Sub SetupColumnsWidth(ByVal table As Word.Table)
       table.Columns.Item(1).SetWidth(260.2F, Word.WdRulerStyle.wdAdjustNone)
       table.Columns.Item(2).SetWidth(130.0F, Word.WdRulerStyle.wdAdjustNone)
       table.Columns.Item(3).SetWidth(130.0F, Word.WdRulerStyle.wdAdjustNone)
   End Sub

   Private Sub SetupCellsAlignment(ByVal table As Word.Table)
       table.Cell(1, 1).VerticalAlignment =
Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter
       table.Cell(1, 2).VerticalAlignment =
Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter
       table.Cell(1, 3).VerticalAlignment =
Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter
       table.Cell(1, 3).Range.Paragraphs.First.Alignment =
Word.WdParagraphAlignment.wdAlignParagraphRight
   End Sub

   Private Sub SetupRowHeight(ByVal table As Word.Table)
       table.Rows.Height = 20
       table.Rows.HeightRule = Word.WdRowHeightRule.wdRowHeightExactly
   End Sub

   Private Sub PutBordersOnTopAndBottom(ByVal table As Word.Table)
       table.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle =
Word.WdLineStyle.wdLineStyleSingle
       table.Borders.Item(Word.WdBorderType.wdBorderTop).LineStyle =
Word.WdLineStyle.wdLineStyleSingle
   End Sub

   Private Sub WriteProposalId(ByVal cell As Word.Cell, ByVal proposal As
IProposal)
       cell.Range.InsertAfter(Translate("PROPOSAL") & ": " &
proposal.GetId())
   End Sub

   Private Sub WriteEmissionDate(ByVal cell As Word.Cell, ByVal proposal As
IProposal)
       Dim emissionDate As Date
       If proposal.DataEmissao > Date.MinValue Then 'REFACTOR: make clear
that this is checking whether the proposal has emission date
           emissionDate = proposal.DataEmissao
       Else
           emissionDate = Date.Today
       End If
       cell.Range.InsertAfter(Translate("DATE") & ": " &
emissionDate.ToString("d", proposal.GetLanguageCulture().DateTimeFormat))
   End Sub

   Private Sub WritePageNumbers(ByVal document As Word.Document, ByVal cell
As Word.Cell)
       cell.Range.Collapse(Word.WdCollapseDirection.wdCollapseStart)
       document.Fields.Add(cell.Range, Word.WdFieldType.wdFieldNumPages)

       cell.Range.Collapse(Word.WdCollapseDirection.wdCollapseStart)
       cell.Range.InsertAfter(" / ")

       cell.Range.Collapse(Word.WdCollapseDirection.wdCollapseStart)
       document.Fields.Add(cell.Range, Word.WdFieldType.wdFieldPage)

       cell.Range.Collapse(Word.WdCollapseDirection.wdCollapseStart)
       cell.Range.InsertAfter(Translate("PAGE") & ": ")
   End Sub

   Private Function GetDocumentHeader(ByVal document As Word.Document) As
Word.HeaderFooter
       Return
document.Sections.Item(1).Headers.Item(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary)
   End Function

   Public Function HasSomethingToWrite(ByVal proposal As IProposal) As
Boolean Implements ISectionWriter.HasSomethingToWrite
       Return True
   End Function
End Class