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

0

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

Ваш Ответ

2   ответа
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);
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded John
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded John
3
$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()

Error: User Rate Limit ExceededError: User Rate Limit ExceededError: User Rate Limit Exceeded

Похожие вопросы