Word application com object

Доброго времени суток друзья. Я уже рассказывал, как можно работать с Microsoft Excel средствами PowerShell. В данной статье мы рассмотрим работу

PowerShell

с

Microsoft Word

. Как и для Excel, чтобы получить доступ к MS Word нужно использовать COM объект. Для этого используем командлет

New-Object

с параметром

–ComObject

далее сам объект к которому хотим получить доступ, в нашем случае это

Word.Application

.

  
    #Создаем новый объект WORD
    $word = New-Object -ComObject Word.Application
  

После создания объекта обращаемся к свойству

Visible

и переключаем его в

TRUE

чтобы видеть работу скрипта непосредственно в самом

MS Word

а не в фоновом режиме.

  
    #Видимый режим вставки, по умолчанию FALSE
    $word.Visible = $True
  

Далее необходимо создать сам документ для этого обращаемся к свойству

Documents

и его методу

Add()

.

  
    #Создаем новый документ
    $doc = $word.Documents.Add()
  

Обратимся к свойству

Selection

для работы с текущим документом, далее мы будем использовать его для форматирования нашего документа.

  
    #Выбираем открывшийся документ для работы
    $Selection = $word.Selection
  

Задаем начальные настройки для документа допустим отступы со всех сторон.

  
    #Устанавливаем отступы для документа
    $Selection.Pagesetup.TopMargin = 50
    $Selection.Pagesetup.LeftMargin = 50
    $Selection.Pagesetup.RightMargin = 50
    $Selection.Pagesetup.BottomMargin = 50
  

Установим строчный интервал сверху и снизу.

  
    #Интервал отступов сверху и снизу
    $Selection.ParagraphFormat.SpaceBefore = 0
    $Selection.ParagraphFormat.SpaceAfter = 0
  

Подготовительные работы закончены, теперь можем заполнять наш документ. Укажем что наш первый абзац будет по центру для этого воспользуемся свойством ParagraphFormat и его свойством

Aligment

.

  
    #Выравнивание по центру
    $Selection.ParagraphFormat.Alignment = 1
  

Далее создаем таблицу с одной строкой и одной ячейкой которую зальем черным цветом и разместим пользовательскую картинку.

  
    #Добавляем таблицу
    $Table = $Word.ActiveDocument.Tables.Add($Word.Selection.Range, 1, 1)

    #Устанавливаем черный цвет заливки ячейки
    $Table.Cell(1,1).Shading.BackgroundPatternColor = 0

    #Вставляем картинку в ячейку таблицы
    $Table.Cell(1,1).Range.InlineShapes.AddPicture("D:Tempbezramok-tlt.png")

    #Конец таблицы, начать новую строку
    $Selection.EndKey(6, 0)
  

Далее переходим на новую строчку документа воспользовавшись методом

TypeParagraph()

.

  
    #Новый параграф
    $Selection.TypeParagraph()
  

Далее установим нужные настройки для нашего заголовка.

  
    #Шрифт написания
    $Selection.Font.Name = "Times New Roman"

    #Размер шрифта
    $Selection.Font.Size = 18
  

Как видно из примера мы установили шрифт

Time New Roman

и размер шрифта

18

, далее вставляем текст.

  
    #Текст заголовка
    $Selection.TypeText("Работаем с Microsoft Word при помощи PowerShell")
  

Для следующего текста поменяем настройки шрифта и размер и вид, а также выровняем текст по ширине документа.

  
    #Выравнивание по ширине листа
    $Selection.ParagraphFormat.Alignment = 3

    #Устанавливаем новые значения размера шрифта
    $Selection.Font.Name = "Arial"
    $Selection.Font.Size = 12

    #Пишем курсивом
    $Selection.Font.Italic = $true
  

Далее добавляем новый текст в наш документ.

  
    #Добавляем следующий текст
    $Selection.TypeText("Windows PowerShell — расширяемое средство автоматизации от Microsoft с открытым исходным кодом")
  

Так как для следующего текста нам не нужен курсив, то отключаем его.

  
    #отключаем курсив
    $Selection.Font.Italic = $false
  

Далее создаем настройки для следующего текста, выправным его по центру и изменим цвет на темно-зеленый, а также выделим жирным.

  
    #Вставляем заголовок по центру
    $Selection.ParagraphFormat.Alignment = 1

    #Устанавливаем новые значения размера шрифта
    $Selection.Font.Name = "Arial"
    $Selection.Font.Size = 18

    #Делаем цвет текста темно-зеленым
    $Selection.Font.Color = "wdColorDarkGreen"

    #Выделяем жирным
    $Selection.Font.Bold = $True

    #Следующий текст в нашем документе
    $Selection.TypeText("Добавляем картинку из файла ")
  

Далее вставляем картинку в документ по центру, для этого используем свойство

InlineShapes

и его метод

AddPicture()

передав путь до картинки.

  
    #Вставляем картинку из файла
    $Selection.InlineShapes.AddPicture("D:Tempword.jpg")
  

Далее отменяем центрирование и меняем цвет текста на черный.

  
    #Делаем цвет текста черным
    $Selection.Font.Color = 0

    #Отменяем жирный
    $Selection.Font.Bold = $False
  

Устанавливаем новые настройки для следующего текста.

  
    #Настройки размера шрифта для нового текста
    $Selection.Font.Name="Times New Roman"
    $Selection.Font.Size=12
  

Далее создадим таблицу с тремя столбцами в которую заполним с помощью

PowerShell

.

  
    #Добавляем таблицу
    $Table = $Word.ActiveDocument.Tables.Add($Word.Selection.Range, 1, 3)

    #Ручной вариант форматирования таблицы
    # $Table.Range.Style = "Table Grid"
    # $Table.Borders.InsideLineStyle = 1
    # $Table.Borders.OutsideLineStyle = 1

    #Заполняем шапку таблицы
    $Table.Cell(1,1).Range.Text = "№"
    $Table.Cell(1,2).Range.Text = "Name"
    $Table.Cell(1,3).Range.Text = "DysplayName"

    #Счетчики для генерации таблицы
    $i = 2
    $counter = 1

    #Получаем список всех процессов на компьютере
    $srv = Get-Service a*

    #Записываем полученые данные в ячейки таблицы
    foreach ($arr in $srv)
    {
    $Table.Rows.Add()
    $Table.Cell($i,1).Range.Text = $counter
    $Table.Cell($i,2).Range.Text = $arr.Name
    $Table.Cell($i,3).Range.Text = $arr.DisplayName


    #инкрементируем счетчики
    $i = $i + 1
    $counter = $counter + 1
    }

    #Автоформатирование таблицы
    $Table.AutoFormat(20)

    #Конец таблицы, начать новую строку
    $Selection.EndKey(6, 0)
  

Здесь нужно отметить, что ячейки таблицы начинаются с

1

. Для генерации новой строки нужно использовать свойство Rows и его метод

Add()

. Для удобства форматирования таблицы используем метод

AutoFormat()

передав число (это идентификатор шаблона форматирования таблицы). Для перехода от таблицы к обычному документу используем метод

EndKey(6, 0)

.

Далее создаем настройки для нового текста, выровняем все по левому краю и добавим гиперссылок в наш документ.

  
    #Вставляем заголовок по центру
    $Selection.paragraphFormat.Alignment = 0

    #Размер шрифта
    $Selection.Font.Size=14

    #Текст
    $Selection.TypeText("Урок создал")

    #Новый параграф
    $Selection.TypeParagraph()

    #Размер шрифта
    $Selection.Font.Size=12

    #Гиперссылка сайта
    $Selection.Hyperlinks.Add($Selection.Range,"http:#bezramok-tlt.ru")

    #Новый параграф
    $Selection.TypeParagraph()

    #Гиперссылка почты
    $Selection.Hyperlinks.Add($Selection.Range,"mailto:bezramok-tlt@mail.ru")

    #Новый параграф
    $Selection.TypeParagraph()

    #Текст
    $Selection.TypeText("Админ")

    #Новый параграф
    $Selection.TypeParagraph()

    #Размер шрифта
    $Selection.Font.Size=10

    #Текст
    $Selection.TypeText("Дата: " + $date)
  

Как вы заметили мы использовали свойство

Hyperlinks

и его метод

Add()

в который передали

URL

для гиперссылки.

Далее сохраняем документ (СохранитьКак) указываем путь куда будем сохранять наш файл, закрываем сам документ, закрываем само приложение MS Word.

  
    #СохранитьКак указываем путь куда и имя файла
    $doc.SaveAs([ref]"D:tempPsWord.docx")

    #Закрываем документ
    $doc.Close()

    #Закрываем приложение
    $word.Quit()
  

Я постарался собрать на мой взгляд основные действия для заполнения документа – это форматирование текста, изменение размера текста, шрифта, цвета. Создание таблиц, заполнение таблицы графически и текстовым материалом, а также заливка ячейки цветом.

Вот таким способом можно создавать документы

MS Word

с помощью

PowerShell

.

Скрипт PowerShell работа с MS Word целиком

  
    #Получаем текущую дату
    $date = Get-Date

    #Создаем новый объект WORD
    $word = New-Object -ComObject Word.Application

    #Видимый режим вставки, по умолчанию FALSE
    $word.Visible = $True

    #Создаем новый документ
    $doc = $word.Documents.Add()

    #Выбираем открывшийся документ для работы
    $Selection = $word.Selection

    #Устанавливаем отступы для документа
    $Selection.Pagesetup.TopMargin = 50
    $Selection.Pagesetup.LeftMargin = 50
    $Selection.Pagesetup.RightMargin = 50
    $Selection.Pagesetup.BottomMargin = 50


    #Интервал отступов сверху и снизу
    $Selection.ParagraphFormat.SpaceBefore = 0
    $Selection.ParagraphFormat.SpaceAfter = 0


    #Выравнивание по центру
    $Selection.ParagraphFormat.Alignment = 1

    #Добавляем таблицу
    $Table = $Word.ActiveDocument.Tables.Add($Word.Selection.Range, 1, 1)

    #Устанавливаем черный цвет заливки ячейки
    $Table.Cell(1,1).Shading.BackgroundPatternColor = 0

    #Вставляем картинку в ячейку таблицы
    $Table.Cell(1,1).Range.InlineShapes.AddPicture("D:Tempbezramok-tlt.png")


    #Конец таблицы, начать новую строку
    $Selection.EndKey(6, 0)

    #Новый параграф
    $Selection.TypeParagraph()

    #Шрифт написания
    $Selection.Font.Name = "Times New Roman"

    #Размер шрифта
    $Selection.Font.Size = 18

    #Текст заголовка
    $Selection.TypeText("Работаем с Microsoft Word при помощи PowerShell")

    #Переходим на новую строку
    $Selection.TypeParagraph()

    #Выравнивание по ширине листа
    $Selection.ParagraphFormat.Alignment = 3

    #Устанавливаем новые значения размера шрифта
    $Selection.Font.Name = "Arial"
    $Selection.Font.Size = 12

    #Пишем курсивом
    $Selection.Font.Italic = $true

    #Добавляем следующий текст
    $Selection.TypeText("Windows PowerShell — расширяемое средство автоматизации от Microsoft с открытым исходным кодом")

    #отключаем курсив
    $Selection.Font.Italic = $false

    #Новый параграф
    $Selection.TypeParagraph()

    #Новый параграф
    $Selection.TypeParagraph()

    #Вставляем заголовок по центру
    $Selection.ParagraphFormat.Alignment = 1

    #Устанавливаем новые значения размера шрифта
    $Selection.Font.Name = "Arial"
    $Selection.Font.Size = 18

    #Делаем цвет текста темно-зеленым
    $Selection.Font.Color = "wdColorDarkGreen"

    #Выделяем жирным
    $Selection.Font.Bold = $True

    #Следующий текст в нашем документе
    $Selection.TypeText("Добавляем картинку из файла ")

    #Вставляем картинку из файла
    $Selection.InlineShapes.AddPicture("D:Tempword.jpg")

    #Делаем цвет текста черным
    $Selection.Font.Color = 0

    #Отменяем жирный
    $Selection.Font.Bold = $False

    #Новый параграф двойной отступ
    $Selection.TypeParagraph()
    $Selection.TypeParagraph()

    #Настройки размера шрифта для нового текста
    $Selection.Font.Name = "Times New Roman"
    $Selection.Font.Size = 14

    $Selection.TypeText("Создание таблицы в Microsoft Word средствами PowerShell")

    #Новый параграф
    $Selection.TypeParagraph()

    #Новый параграф
    $Selection.TypeParagraph()

    #Настройки размера шрифта для нового текста
    $Selection.Font.Name="Times New Roman"
    $Selection.Font.Size=12

    #Добавляем таблицу
    $Table = $Word.ActiveDocument.Tables.Add($Word.Selection.Range, 1, 3)

    #Ручной вариант форматирования таблицы
    # $Table.Range.Style = "Table Grid"
    # $Table.Borders.InsideLineStyle = 1
    # $Table.Borders.OutsideLineStyle = 1

    #Заполняем шапку таблицы
    $Table.Cell(1,1).Range.Text = "№"
    $Table.Cell(1,2).Range.Text = "Name"
    $Table.Cell(1,3).Range.Text = "DysplayName"

    #Счетчики для генерации таблицы
    $i = 2
    $counter = 1

    #Получаем список всех процессов на компьютере
    $srv = Get-Service a*

    #Записываем полученые данные в ячейки таблицы
    foreach ($arr in $srv)
    {
    $Table.Rows.Add()
    $Table.Cell($i,1).Range.Text = $counter
    $Table.Cell($i,2).Range.Text = $arr.Name
    $Table.Cell($i,3).Range.Text = $arr.DisplayName


    #инкрементируем счетчики
    $i = $i + 1
    $counter = $counter + 1
    }

    #Автоформатирование таблицы
    $Table.AutoFormat(20)

    #Конец таблицы, начать новую строку
    $Selection.EndKey(6, 0)

    #Новый параграф
    $Selection.TypeParagraph()

    #Вставляем заголовок по центру
    $Selection.paragraphFormat.Alignment = 0

    #Размер шрифта
    $Selection.Font.Size=14

    #Текст
    $Selection.TypeText("Урок создал")

    #Новый параграф
    $Selection.TypeParagraph()

    #Размер шрифта
    $Selection.Font.Size=12

    #Гиперссылка сайта
    $Selection.Hyperlinks.Add($Selection.Range,"http:#bezramok-tlt.ru")

    #Новый параграф
    $Selection.TypeParagraph()

    #Гиперссылка почты
    $Selection.Hyperlinks.Add($Selection.Range,"mailto:bezramok-tlt@mail.ru")

    #Новый параграф
    $Selection.TypeParagraph()

    #Текст
    $Selection.TypeText("Админ")

    #Новый параграф
    $Selection.TypeParagraph()

    #Размер шрифта
    $Selection.Font.Size=10

    #Текст
    $Selection.TypeText("Дата: " + $date)

    #Новый параграф
    $Selection.TypeParagraph()

    #СохранитьКак указываем путь куда и имя файла
    $doc.SaveAs([ref]"D:tempPsWord.docx")

    #Закрываем документ
    $doc.Close()

    #Закрываем приложение
    $word.Quit()
  

Permalink

MsgBox Application.UserName

Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open "C:My DocumentsTemp.doc"
Set wrd = Nothing

Опубликовано:

17 октября 2012 в 10:10

11

1

История вопроса

Необходимо печатать конверты по заданному макету. Задача довольно простая, когда мы заранее знаем, что необходимо печатать. Был создан интегрированный RTF-отчет. Посмотрев на него, пришли к выводу, что такой вариант будет недостаточно гибким, ведь почтовые
конверты бывают разные, при условии, что наши организации закупают их не централизовано, с печатью могут возникнуть проблемы.

Часть I. Индекс.

Был выбран путь формирование отчета из макета. Все текстовые поля замечательно проставляются с помощью макропеременных, но появляется загвоздка в формировании индекса. В RTF-отчете он формировался с помощью таблицы. Выбирая разные стили границ, мы можем
рисовать цифры. Можно было бы найти какой-нибудь подходящий шрифт, но его надо было бы устанавливать на все компьютеры, с которых возможна печать конвертов.

Посмотрели на готовый результат RTF-отчета с пустым индексом, сохранили его как docx, занесли в систему и обозвали макетом. Лишнее убрали, нужное добавили и сделали генерацию документа. И вот отчет уже почти готов.

Осталось нарисовать такие цифры:

В справке по VBA можно найти значения перечисления типа границы (wdBorderType). В соответствии с этими значениями создаем список соответствий, именем которого является цифра, значением – массив границ, формирующих число.

  // Верхняя часть цифры
  UpperPartOfNumber = CreateList()
  UpperPartOfNumber.Add(0; ArrayOf(-1; -2; -4))
  UpperPartOfNumber.Add(1; ArrayOf(-4; -8))
  UpperPartOfNumber.Add(2; ArrayOf(-1; -4))
  UpperPartOfNumber.Add(3; ArrayOf(-1; -8))
  UpperPartOfNumber.Add(4; ArrayOf(-2; -4))
  UpperPartOfNumber.Add(5; ArrayOf(-1; -2))
  UpperPartOfNumber.Add(6; ArrayOf(-8))
  UpperPartOfNumber.Add(7; ArrayOf(-1; -8))
  UpperPartOfNumber.Add(8; ArrayOf(-1; -2; -4))
  UpperPartOfNumber.Add(9; ArrayOf(-1; -2; -4))
  
  // Нижняя часть цифры
  LowerPartOfNumber = CreateList()
  LowerPartOfNumber.Add(0; ArrayOf(-2; -3; -4))
  LowerPartOfNumber.Add(1; ArrayOf(-4))
  LowerPartOfNumber.Add(2; ArrayOf(-3; -8))
  LowerPartOfNumber.Add(3; ArrayOf(-1; -8))
  LowerPartOfNumber.Add(4; ArrayOf(-1; -4))
  LowerPartOfNumber.Add(5; ArrayOf(-1; -3; -4))
  LowerPartOfNumber.Add(6; ArrayOf(-1; -2; -3; -4))
  LowerPartOfNumber.Add(7; ArrayOf(-2))
  LowerPartOfNumber.Add(8; ArrayOf(-1; -2; -3; -4))
  LowerPartOfNumber.Add(9; ArrayOf(-1; -8))

Приступаем к заполнению.

VBDocApp = CreateObject('Word.Application')
VBDoc = VBDocApp.Documents.Open(FileName)
PositionOfIndexNumber = 1
while PositionOfIndexNumber <= Length(OrgIndex)
  // Получаем цифру индекса
  IndexNumber = Copy(OrgIndex; PositionOfIndexNumber; 1)
  // Заполняем вернюю часть цифры
  UpperPart = UpperPartOfNumber.FindItem(IndexNumber)
  UpperPartTable = VBDoc.Tables(INDEX_TABLE_NUMBER).Rows(UPPER_PART_POINTER).Cells((PositionOfIndexNumber*2)-1) 
  // x*2-1 нужно, потому что между цифрами так же есть столбцы без отображаемых границ
  CyclePointer = 0    
  CycleCount = ArrayHighBound(UpperPart)
  // Отрисовка верхней части цифры
  while CyclePointer <= CycleCount
   UpperPartTable.Borders.Item(UpperPart[CyclePointer]).LineStyle = INDEX_LINE_STYLE
   UpperPartTable.Borders.Item(UpperPart[CyclePointer]).LineWidth = INDEX_LINE_WIDTH
   CyclePointer = CyclePointer + 1
  endwhile
  // Заполняем нижнюю часть цифры
  LowerPart = LowerPartOfNumber.FindItem(IndexNumber)
  LowerPartTable = VBDoc.Tables(INDEX_TABLE_NUMBER).Rows(LOWER_PART_POINTER).Cells((PositionOfIndexNumber*2)-1)
  CyclePointer = 0    
  CycleCount = ArrayHighBound(LowerPart)
  // Отрисовка нижней части цифры
  while CyclePointer <= CycleCount
    LowerPartTable.Borders.Item(LowerPart[CyclePointer]).LineStyle = INDEX_LINE_STYLE
    LowerPartTable.Borders.Item(LowerPart[CyclePointer]).LineWidth = INDEX_LINE_WIDTH
    CyclePointer = CyclePointer + 1
  endwhile
  PositionOfIndexNumber = PositionOfIndexNumber + 1
endwhile

Часть II. Сборка единого документа.

Пожалуй, более полезная и распространенная, при этом, значительно более короткая часть изысканий в объектной модели Word.Application.

Рисование в таблице, как оказалось, не единственное действие, для которого нам понадобился данный COM-объект. В RTF-отчете, с помощью тегов, можно разбивать документ на страницы. При генерации документов из макета, их придется склеивать средствами, предоставляемыми
COM.

  // Берем текущее содержимое документа
  Content = MainDoc.Content
  Content.Collapse(END_COLLAPSE_DIRECTION)
  // Вставляем разделитель страницы
  Content.InsertBreak(PAGE_BREAKE)
  // Переходим на вновь получившуюся страницу
  NewPageContent = Report.GoTo(GOTO_PAGE_ITEM; GOTO_LAST_PAGE_DIRECTION)
  // Вставляем содержимое другого документа в главный
  // DocPath – путь до документа в файловой системе
  NewPageContent.InsertFile(DocPath) 

GOTO_PAGE_ITEM – перечисление wdGoToItem. Определяет тип элемента для перехода. В нашем случае указываем, что перемещаемся по страницам.

GOTO_LAST_PAGE_DIRECTION – перечисление wdGoToDirection. Указывает направление перемещения. Для нас это последний элемент.

Эти перечисления указывают, что надо взять содержимое, находящееся на последней странице. Туда мы и вставляем новую информацию. Если бы эта страница имела бы какой-нибудь контент, он был бы заменен новой информацией. Если бы надо было добавить только подготовленную
текстовую информацию, то можно было бы использовать метод InsertAfter для всего содержимого документа, но у нас во втором документе находится несколько более комплексная информация.

Для справки.

Более подробную информацию по данному объекту можно найти в MSDN и справке по VBA.

This first article will dip our toes into creating the Word Com object, looking at sending text to Word and adjusting some of the various fonts and styles to give you a stepping stone on what you can do. I will be using Word 2013 in this article, so your mileage may vary if using older versions.

Creating the Word Object

Like any COM object, we must use New-Object with the –ComObject parameter to tell PowerShell that we are loading up a Com object.

 
$Word = New-Object -ComObject Word.Application

Now I have created my object as shown in the image below.

One thing that you might note is that we can’t see Word opened up, even though the process is actually active.

To make Word visible, we have to set the Visibility of the object to $True.

 
$Word.Visible = $True

Now you should see that Word is visible. But we don’t actually have a document loaded yet to start writing. We need to fix that first. We do this by calling the Documents.Add() method. I am keeping the output of this saved to another variable that will be used later on. I then want to select the current pane in Word so I can begin writing data to it.

 
$Document = $Word.Documents.Add()
$Selection = $Word.Selection

Writing to Word

Writing to word is as simple as calling TypeText() and supplying a parameter which is text.

 
$Selection.TypeText("Hello")

Ok, nothing really mind blowing here, but this is how we can write in word using PowerShell. If I attempt to do this again, it will not actually start on the next line but append to the existing line.

We work around this by calling TypeParagraph().

 
$Selection.TypeParagraph()
$Selection.TypeText("Hello1")
$Selection.TypeParagraph()
$Selection.TypeParagraph()
$Selection.TypeText("Hello2")
$Selection.TypeParagraph()
$Selection.TypeParagraph()
$Selection.TypeText("Hello3")
$Selection.TypeParagraph()

Working with Styles

So lets start with a fresh slate (actually I am just going to delete all of the words here instead of rebuilding the object) and look at some of the Styles that we can use.

First off, we should see what kind of styles are available to use.

 
[Enum]::GetNames([Microsoft.Office.Interop.Word.WdBuiltinStyle]) | ForEach {
    [pscustomobject]@{Style=$_}
} | Format-Wide -Property Style -Column 4

This is just one of the possible options to set a style that also includes using an integer or a string value that matches the names of what you would see in the toolbar for styles.

Whatever approach you are comfortable with will be just fine. Just make sure if it the setting isn’t that readable (such as using an integer) that you comment what the style is supposed to be for whoever might be looking at the code later on.

Moving on from that, we will set a couple of styles to show off what we can do. I think we at least need a Title and perhaps some sort of Header to show off what we are doing.

 
$Selection.Style = 'Title'
$Selection.TypeText("Hello")
$Selection.TypeParagraph()
$Selection.Style = 'Heading 1'
$Selection.TypeText("Report compiled at $(Get-Date).")
$Selection.TypeParagraph()

Feel free to explore and find some styles that will work with what you are trying to do!

Exploring Fonts

The last item that I will cover today is working with Fonts such as changing the color and going with Bold or Italics.

We can locate the fonts using $Selection.Font

 
$Selection.Font

Ok, there is obviously a lot of stuff available here that we can manipulate, but I just focus on the basics. Notice that the Bold and Italic are specified by an integer. Currently, a 0 means that this is turned off. If we want to turn it on, we specify something other than a 0, such as a 1.

 
$Selection.Font.Bold = 1
$Selection.TypeText('This is Bold')
$Selection.Font.Bold = 0
$Selection.TypeParagraph()
$Selection.Font.Italic = 1
$Selection.TypeText('This is Italic')

Lastly, we will check out adjusting the colors of the text in word and we can find out the available colors using the following code:

 
[Enum]::GetNames([Microsoft.Office.Interop.Word.WdColor]) | ForEach {
    [pscustomobject]@{Color=$_}
} | Format-Wide -Property Color -Column 4

Now we can write some code to take a look at some of these colors.

 
[Enum]::GetNames([Microsoft.Office.Interop.Word.WdColor]) | ForEach {
    $Selection.Font.Color = $_
    $Selection.TypeText("This is $($_)")
    $Selection.TypeParagraph()    
} 
$Selection.Font.Color = 'wdColorBlack'
$Selection.TypeText('This is back to normal')

Actually, I decided to just go through all of the colors so we can see each and every one!

One last thing! It may be a good idea to save our good work so we can view it later, right? So with that we can use the following code to save the document. We do this using the SaveAs method in the $Document object that we had created earlier. Aren’t you glad we saved that output earlier?

We do need to specify a reference variable which is the path and name of the file as well as a second parameter specifying the save format of the document. as…you guest it…another reference variable! We can find the possible format types using this code.

 
[Enum]::GetNames([microsoft.office.interop.word.WdSaveFormat])

And now I can save this document using the following code:

 
$Report = 'C:UsersproxbDesktopADocument.doc'
$Document.SaveAs([ref]$Report,[ref]$SaveFormat::wdFormatDocument)
$word.Quit()

I am calling the Quit() method to actually quit the application. Unfortunately, this doesn’t actually mean that the memory used to create this object has been freed up. Com objects play a little differently than .Net objects that we create. So with that in mind, I am going to do the following to free up that memory:

 
$null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject([System.__ComObject]$word)
[gc]::Collect()
[gc]::WaitForPendingFinalizers()
Remove-Variable word 

There you go! That was a little dip into the pool of PowerShell and Word to get you going on building out something cool!

To manipulate Word documents with PowerShell, you first have to create a Word Application COM object.

As you can see below there are a lot of options to work with:

To create a new Word document with PowerShell, you can use the commands below:

$word = New-Object -ComObject "Word.application"
$word.Visible = $true
$document = $word.documents.Add()

I assign $true to the $word.Visible property, so I can see the document I’m working on in Word.

Now let’s add a «nice» title to the document:

$word = New-Object -ComObject "Word.application"
$word.Visible = $true
$document = $word.documents.Add()
$selection = $word.selection
$selection.font.size = 14
$selection.font.bold = 1
$selection.Style ="Title"
$selection.typeText("Nice Title")
$selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"

I used the selection property and its font, typetext, and ParagraphFormat methods to put text into the newly created Word document, set the font size, set the text in bold, change its style, and center the title. Below you can see the result of these PowerShell commands:

Next, I’ll add a little calendar in the form of a table to our document:

$selection.TypeParagraph()
$Range = $selection.Range
$Table = $document.Tables.Add($Range,6,7)
$Table.AutoFormat(11)
$Table.Borders.InsideLineStyle = 1

I added a new paragraph to my document using the Selection object and read the Range property of the selection, so I know where I’m adding the table. Then I use the Table method of the Word COM application object to add new table.

I am using the AutoFormat property to choose the table format. I just played with the format numbers till I found something I like. Then I’m using the InsideLineStyle property to make the inside borders of my table visible. Finally, I add column captions to my table:

$Column = 1
$Row = 1
$SysDateObject = new-object system.globalization.datetimeformatinfo
$DayNames = $SysDateObject.Daynames
$DayNames | %{
   $Table.Cell($Column,$Row).Range.Text = $_
   $Table.Cell($Column,$Row).Range.Font.Name = "Forte"
   $Row++
   }

Since I’m working with a table, I need to establish cell coordinates so I can manipulate the cells. Thus, I add $Row and $Column variables and assign 1 to each of them. Then I get the weekday names from the PowerShell system.globalization.datetimeformatinfo object and assign them to the top cells of my table. To make them look a little better, I change the font. And this is how my Word document looks now:

I have weekday names, but it would be nice to add dates to my little calendar:

$i = 1
$Column = 2
$Row = 2
for($i -eq 1; $i -le [datetime]::DaysInMonth(17,5); $i++){
    $Table.Cell($Row,$Column).Range.Text = $i
    $Table.Cell($Row,$Column).Range.ParagraphFormat.Alignment = "wdAlignParagraphRight"
    $Column++
    if($Column -gt 7){
       $Row++
       $Column = 1
       }
    }

Firstly, I set up some variables: $i will be my day index, and you already know $Row and $Column. I get the number of days in May from the datetime PowerShell object and then loop from 1 to 31, because May has 31 days. Then I assign the value of $i to the corresponding cell. Because I have only seven columns, I reset the $Column value to 1 every time it becomes greater than 7.

And this is my calendar:

Here is the entire script that adds a title and table to a Word document using PowerShell:

$word = New-Object -ComObject "Word.application"
$word.Visible = $true
$document = $word.documents.Add()
$selection = $word.selection
$selection.font.size = 14
$selection.font.bold = 1
$selection.Style ="Title"
$selection.typeText("Nice Title")
$selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"
$selection.TypeParagraph()
$Range = $selection.Range
$Table = $document.Tables.Add($Range,6,7)
$Table.AutoFormat(11)
$Table.Borders.InsideLineStyle = 1
$Column = 1
$Row = 1
$SysDateObject = new-object system.globalization.datetimeformatinfo
$DayNames = $SysDateObject.Daynames
$DayNames | %{
   $Table.Cell($Row,$Column).Range.Text = $_
   $Table.Cell($Row,$Column).Range.Font.Name = "Forte"
   $Column++
   }
$i = 1
$Column = 2
$Row = 2
for($i -eq 1; $i -le [datetime]::DaysInMonth(17,5); $i++){
    $Table.Cell($Row,$Column).Range.Text = $i
    $Table.Cell($Row,$Column).Range.ParagraphFormat.Alignment = "wdAlignParagraphRight"
    $Column++
    if($Column -gt 7){
       $Row++
       $Column = 1
       }
    }
    
$word = New-Object -ComObject "Word.application"
$word.Visible = $true
$document = $word.documents.Add()
$selection = $word.selection
$selection.font.size = 14
$selection.font.bold = 1
$selection.Style ="Title"
$selection.typeText("Nice Title")
$selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"
$selection.TypeParagraph()
$Range = $selection.Range
$Table = $document.Tables.Add($Range,6,7)
$Table.AutoFormat(11)
$Table.Borders.InsideLineStyle = 1
$Column = 1
$Row = 1
$SysDateObject = new-object system.globalization.datetimeformatinfo
$DayNames = $SysDateObject.Daynames
$DayNames | %{
   $Table.Cell($Row,$Column).Range.Text = $_
   $Table.Cell($Row,$Column).Range.Font.Name = "Forte"
   $Column++
   }
$i = 1
$Column = 2
$Row = 2
for($i -eq 1; $i -le [datetime]::DaysInMonth(17,5); $i++){
    $Table.Cell($Row,$Column).Range.Text = $i
    $Table.Cell($Row,$Column).Range.ParagraphFormat.Alignment = "wdAlignParagraphRight"
    $Column++
    if($Column -gt 7){
       $Row++
       $Column = 1
       }
    }

Now let’s do something a bit more complicated. Let’s create a calendar for 2018 using PowerShell and Word.

Let’s start from the title. There is nothing new here except the $END_OF_STORY variable, which represents the end of the Word document.

$word = New-Object -ComObject "Word.application"
$END_OF_STORY = 6
$word.Visible = $true
$document = $word.documents.Add()
$SysDateObject = new-object system.globalization.datetimeformatinfo
$DayNames = $SysDateObject.Daynames
$selection = $word.selection
$selection.font.size = 14
$selection.font.bold = 1
$selection.Style ="Title"
$selection.typeText("2018 Calendar")
$selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"

To add a calendar for each month, I will use a loop that iterates through the months from 1 to 12. I’m using the get-date PowerShell function to get the first weekday for each month.

$y = 1
for($y -eq 1; $y -le 12; $y++){
    $CURRENTDATE=GET-DATE "$y/1/2018"
    $FirstDayofMonth = ($CURRENTDATE).DayOfWeek.value__ +1
    if($FirstDayofMonth -gt 7){
       $FirstDayofMonth = 1
       $FirstDayofMonth
      }

Next I add a new page to the document and create a title for it. Because I’m still inside the for loop, the title will be the name of the current month, which the $CMonth variable represents. Then I’m adding the weekday names to the calendar:

$selection.InsertNewPage()
    $selection.font.size = 14
    $selection.font.bold = 1
    $selection.Style ="Title"
    $CMonth = (Get-Culture).DateTimeFormat.GetMonthName($CURRENTDATE.Month)
    $selection.typeText("$CMonth 2018")
    $selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"
    $selection.TypeParagraph()
    $Range = $selection.Range
    $Table = $document.Tables.Add($Range,7,7)
    $Table.AutoFormat(11)
    $Table.Borders.InsideLineStyle = 1
    $Column = 1
    $Row = 1
    $DayNames | %{
        $Table.Cell($Row,$Column).Range.Text = $_
        $Table.Cell($Row,$Column).Range.Font.Name = "Forte"
        $Column++
    }

Now I’m putting days into my table starting at the $FirstDayOfMonth column number, which I calculated before. And when all days are in place, I need to move the cursor to the end of the document, so it will add a new page in the cycle’s next iteration at the end of the document.

 $i = 1
    $Column = $FirstDayofMonth
    $Row = 2
    $DMonth = $CURRENTDATE.Month
    for($i -eq 1; $i -le [datetime]::DaysInMonth(18,$DMonth); $i++){
        $Table.Cell($Row,$Column).Range.Text = $i
        $Table.Cell($Row,$Column).Range.ParagraphFormat.Alignment = "wdAlignParagraphRight"
        $Column++
    if($Column -gt 7){
       $Row++
       $Column = 1
       }
    }
    $selection.EndKey($END_OF_STORY)
}

And here is how my calendar for 2018 looks:

Below is the entire script to create a calendar in Word with PowerShell:

Subscribe to 4sysops newsletter!

$word = New-Object -ComObject "Word.application"
$END_OF_STORY = 6
$word.Visible = $true
$document = $word.documents.Add()
$SysDateObject = new-object system.globalization.datetimeformatinfo
$DayNames = $SysDateObject.Daynames
$selection = $word.selection
$selection.font.size = 14
$selection.font.bold = 1
$selection.Style ="Title"
$selection.typeText("2018 Calendar")
$selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"

$y = 1
for($y -eq 1; $y -le 12; $y++){
    $CURRENTDATE=GET-DATE "$y/1/2018"
    $FirstDayofMonth = ($CURRENTDATE).DayOfWeek.value__ +1
    if($FirstDayofMonth -gt 7){
       $FirstDayofMonth = 1
       $FirstDayofMonth   
      }
    $selection.InsertNewPage()
    $selection.font.size = 14
    $selection.font.bold = 1
    $selection.Style ="Title"
    $CMonth = (Get-Culture).DateTimeFormat.GetMonthName($CURRENTDATE.Month)
    $selection.typeText("$CMonth 2018")
    $selection.ParagraphFormat.Alignment = "wdAlignParagraphCenter"
    $selection.TypeParagraph()
    $Range = $selection.Range
    $Table = $document.Tables.Add($Range,7,7)
    $Table.AutoFormat(11)
    $Table.Borders.InsideLineStyle = 1
    $Column = 1
    $Row = 1
    $DayNames | %{
        $Table.Cell($Row,$Column).Range.Text = $_
        $Table.Cell($Row,$Column).Range.Font.Name = "Forte"
        $Column++
    }

    $i = 1
    $Column = $FirstDayofMonth
    $Row = 2
    $DMonth = $CURRENTDATE.Month
    for($i -eq 1; $i -le [datetime]::DaysInMonth(18,$DMonth); $i++){
        $Table.Cell($Row,$Column).Range.Text = $i
        $Table.Cell($Row,$Column).Range.ParagraphFormat.Alignment = "wdAlignParagraphRight"
        $Column++
    if($Column -gt 7){
       $Row++
       $Column = 1
       }
    }
    $selection.EndKey($END_OF_STORY)
}