Добавление верхних и нижних колонтитулов в документ Word с помощью Power Shell

Я ищу способ вставить верхние и нижние колонтитулы в документ Microsoft Word, созданный в Power Shell. Есть ли способ сделать это? Если да, то каков пример кода, необходимого для этого?

Ответы на вопрос(2)

Решение Вопроса
# Create a new Word application COM object
$Word = New-Object -ComObject Word.Application;
# Make the Word application visible
$Word.Visible = $true;
# Add a new document to the application
$Doc = $Word.Documents.Add();
# Get the first Section of the Document object
$Section = $Doc.Sections.Item(1);
# Get the header from the Section object
$Header = $Section.Headers.Item(1);
# Get the footer from the Section object
$Footer = $Section.Footers.Item(1);

# Set the text for the header and footer
$Header.Range.Text = "Hey, I'm the header!";
$Footer.Range.Text = "Hey, I'm the footer!";

# Create a Table of Contents (ToC)
$Toc = $Doc.TablesOfContents.Add($Section.Range);
 Trevor Sullivan23 мая 2012 г., 23:54
$ Toc = $ Doc.TablesOfContents.Add ($ Section.Range);
 Trevor Sullivan25 мая 2012 г., 22:12
Я использую Google, чтобы выяснить это. Если вы не можете найти пример PowerShell, найдите пример C # и переведите его в PowerShell.
 John23 мая 2012 г., 23:31
Из любопытства, способ, которым у вас есть перечисленные разделы, можно ли было бы использовать для создания оглавления в том же типе документа Word, сгенерированного Power Shell?
 John25 мая 2012 г., 21:47
Потрясающая информация. Если есть ссылка, что я могу посмотреть еще с этим? Кроме того, как мне добавить жирный шрифт к тексту как в абзаце, так и в заголовке? Как насчет настройки горизонтального размещения текста, например, по центру, слева или справа?
$Document = "c:\temp\tralala.doc" # Must exist

$Word = New-Object -Com Word.Application
$Word.Visible = $true
$ExistingDoc = $Word.Documents.Open($document)
$Selection = $Word.Selection
$ExistingDoc.ActiveWindow.ActivePane.View.SeekView = 1
$Selection.TypeText("Here is my automated header")
$ExistingDoc.ActiveWindow.ActivePane.View.SeekView = 4
$Selection.TypeText("Here is my automated footer")
$ExistingDoc.Save()
$Word.Quit()

Во. Раздел WdSeekView.

Ваш ответ на вопрос