Прграммно создать колонтитул

[doober]

Доброй ночи.Возникла необходимость программно создать
документ Word .Не знаю как создать и заполнить тектом
колонтитул
Документ создаю без проблем

   word = New Microsoft.Office.Interop.Word.Document
  Dim oPara1 As Microsoft.Office.Interop.Word.Paragraph

 oPara1 = word.Content.Paragraphs.Add
            oPara1.Range.Text = "Мой текст"
            oPara1.Range.Font.ColorIndex = Microsoft.Office.Interop.Word.WdColorIndex.wdBlue
            oPara1.Range.Font.Size = 12
            oPara1.Range.Font.Name = "Arial"
            oPara1.Range.Font.Bold = True
            oPara1.Format.SpaceAfter = 4 
            oPara1.Range.InsertParagraphAfter()

По библиотеке вижу.что AttachedTemplate объект,а как создать не знаю

[viter.alex]

О, VB.Net! Его здесь еще не было.
Вот коротенький пример для VB.Net

Imports Microsoft.Office.Interop.Word
Public Class Form1
  Dim wdDoc As New Document
  Dim oPara1 As Paragraph
  'Объект для работы с нижним или верхним колонтитулом
  Dim oHeadFoot As HeaderFooter

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    wdDoc.Application.Visible = True
    oPara1 = wdDoc.Paragraphs.Add
    With oPara1
      With .Range
        'Использую InsertAfter, а не Text, т.к это предпочтительнее
        .InsertAfter("Мой текст")
        With .Font
          .ColorIndex = WdColorIndex.wdBlue
          .Size = 12
          .Name = "Arial"
          .Bold = True
        End With
        .InsertParagraphAfter()
      End With
      .Format.SpaceAfter = 4
    End With

    'Верхний колонтитул
    oHeadFoot = wdDoc.Sections(1).Headers(WdHeaderFooterIndex.wdHeaderFooterPrimary)
    With oHeadFoot
      With .Range
        .InsertAfter("Мой текст в верхнем колонтитуле")
        With .Font
          .ColorIndex = WdColorIndex.wdDarkRed
          .Size = 10
          .Name = "Times New Roman"
          .Italic = True
        End With
        .InsertParagraphAfter()
      End With
    End With

    'Нижний колонтитул
    oHeadFoot = wdDoc.Sections(1).Footers(WdHeaderFooterIndex.wdHeaderFooterPrimary)
    With oHeadFoot
      With .Range
        .InsertAfter("Мой текст в нижнем колонтитуле")
        With .Font
          .ColorIndex = WdColorIndex.wdDarkRed
          .Size = 10
          .Name = "Times New Roman"
          .Italic = True
        End With
        .InsertParagraphAfter()
      End With
    End With
  End Sub
End Class

[doober]

viter.alexw

Благодарю Вас

Анализируя Ваши работы на форуме я практически нашел ,что

Надо идти таким путем.
Document.Sections.Add()
Еще раз Спасибо

[viter.alex]

А зачем добавлять раздел? Вы уверены, что вам это нужно? Один раздел есть в документе всегда, как и один абзац.

[doober]

Это были пробы.Все по Вашему коду работает.
С Вордом только сегодня начал заниматся,судьба заставила.
сложная обратотка данных.вывод в Ворд
Еще вопрос,просто не думал,что первый быстро решится,номер страницы как вывести.Подскажите пожалуйста в верхний
колонтитул

[viter.alex]

Можно так:

Document.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add WdPageNumberAlignment.wdAlignPageNumberLeft, True

А можно так, немного сложнее:

Sub AddPageNumWithField()
  Dim oRng As Range
  Set oRng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
  oRng.Fields.Add oRng, wdFieldPage, , True
  oRng.Paragraphs(1).Alignment = wdAlignParagraphRight
End Sub

[doober]

Спасибо огромное.

[garik64]

А зачем такие сложности, никак не пойму?

Public Sub титулы()
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).Ran ge.Text = "Верхний текст"
.Footers(wdHeaderFooterPrimary).Ran ge.Text = "Нижний текст"
End With

End Sub

Или, чуть сложнее, с форматированием и датой:

Sub RKolon()

ActiveDocument.Sections(1).Footers( wdHeaderFooterPrimary).Range _
.InsertDateTime DateTimeFormat:="d MMMM yyyy", _
InsertAsField:=True
strstr = ActiveDocument.Sections(1).Footers( wdHeaderFooterPrimary).Range.Text
strstr = Left(strstr, Len(strstr) - 1)


With ActiveDocument.Sections(1)

.Headers(wdHeaderFooterPrimary).Ran ge.Text = "Верхний текст"
.Headers(wdHeaderFooterPrimary).Ran ge.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Footers(wdHeaderFooterPrimary).Ran ge.Text = "Нижний текст""" & Chr(13) & strstr
.Footers(wdHeaderFooterPrimary).Ran ge.ParagraphFormat.Alignment = wdAlignParagraphCenter

End With

End Sub

[viter.alex]

Человек работает в Microsoft Visual Studio 2008, поэтому ему нужен доступ к документу через COM-сервер

[ownz]

А если в дельнейшем понадобиться программно изменить любую строчку в колонтитуле, то как это сделать? через .find в колонтитуле не то чтобы не заменяет, а даже не ищет... кстати, в колонтитуле так же присутствуют и таблицы. были попытки даже через поиск отдельных ячеек таблицы (.tables(1).cells(x,y).range.find). может кто знает?
з.ы. спасио заранее кто задумался хотя бы)