Работа с текстом на vba word - Word и Excel - помощь в работе с программами

Редактирование документов Word из кода VBA Excel. Добавление и форматирование текста. Объект Word.Range, свойство Text, методы InsertAfter и InsertBefore.

Работа с Word из кода VBA Excel
Часть 3. Редактирование документов Word
[Часть 1] [Часть 2] [Часть 3] [Часть 4] [Часть 5] [Часть 6]

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

Основные объекты, использующиеся в VBA Word для определения места вставки, добавления и форматирования текста – это Selection (выделение), Range (диапазон) и Bookmark (закладка).

Selection и Range позволяют заполнять текстом новые документы или редактировать существующие. Закладки можно использовать для вставки изменяемых реквизитов в шаблоны различных документов: договоры, акты, справки.

Объект Range имеет преимущество перед объектом Selection, так как он может быть создан только программно и не зависит от действий пользователя. Если для вставки и форматирования текста будет использоваться объект Selection, а пользователь во время работы программы просто поставит курсор в другое место документа, результат будет непредсказуем.

Word.Range кардинально отличается от объекта Range в Excel. В приложении Word он представляет из себя набор из одного или множества символов. А также он может вообще не содержать ни одного символа, а быть указателем ввода текста (виртуальным курсором).

Объект Range возвращается свойством Range других объектов приложения Word: Document, Selection, Bookmark, Paragraph, Cell (объект Table).

Вставка текста без форматирования

Если текст вставляется без форматирования, достаточно одной строки кода (myDocument – это переменная):

Вставка текста с заменой имеющегося: myDocument.Range.Text = "Вставляемый текст"
Добавление текста после имеющегося: myDocument.Range.InsertAfter "Добавляемый текст"
Добавление текста перед имеющимся: myDocument.Range.InsertBefore "Добавляемый текст"

Методами InsertAfter и InsertBefore можно вставить текст и на пустую страницу, также, как с помощью свойства Text. Перейти на новый абзац и начать предложение с красной строки можно с помощью ключевых слов vbCr (vbNewLine, vbCrLf) и vbTab.

Вставка текста с форматированием

Для форматирования отдельных участков текста необходимо указать диапазон символов, входящих в этот участок. Здесь нам также поможет объект Range, которому можно задать любой набор символов, содержащихся в документе Word.

Синтаксис присвоения диапазона символов объекту Range:

myDocument.Range(Start:=n, End:=m)

‘или без ключевых слов Start и End

myDocument.Range(n, m)

myDocument – переменная;
n – номер точки перед начальным символом;
m – номер точки после конечного символа.

Счет точек вставки начинается с нуля. Знаки переноса строки, возврата каретки и табуляции учитываются как отдельные символы. 0 – это для объекта Word.Range виртуальная точка вставки на пустом документе, 1 – точка между первым и вторым символом, 2 – точка между вторым и третьим символом и т.д.

На пустом документе объекту Range можно присвоить только виртуальную точку вставки:
myDocument.Range(Start:=0, End:=0)

Первый символ в документе с текстом:
myDocument.Range(Start:=0, End:=1)

Диапазон с 11 по 20 символ:
myDocument.Range(Start:=10, End:=20)

Реальная точка вставки (курсор) принадлежит объекту Selection, который создается вручную или программно с помощью метода Select.

Вставка курсора в начало документа:
myDocument.Range(Start:=0, End:=0).Select

Эта строка вставит курсор между пятым и шестым символами:
myDocument.Range(Start:=5, End:=5).Select

Вставка курсора в конец документа:
myDocument.Range(.Range.Characters.Count - 1, .Range.Characters.Count - 1).Select

Ссылку на объект Range можно присвоить переменной, но при форматировании ее придется каждый раз переопределять и код получится длиннее. Пример присвоения ссылки объектной переменной:

Dim myRange As Word.Range

Set myRange = myDocument.Range(Start:=0, End:=20)

Для Range(Start:=0, End:=20) в документе должно быть как минимум 20 символов.

Однострочные примеры редактирования и форматирования текста

Вставка дополнительного текста внутри имеющегося после заданной точки:
myDocument.Range(Start:=10, End:=10).InsertAfter "Вставляемый текст"

Новый абзац с красной строки (предыдущая строка должна заканчиваться символом возврата каретки или переноса строки):
myDocument.Range.InsertAfter vbTab & "Красная строка"

Присвоение шрифту заданного диапазона зеленого цвета:
myDocument.Range(Start:=10, End:=65).Font.ColorIndex = wdGreen

Меняем обычное начертание на курсив:
myDocument.Range(Start:=10, End:=65).Font.Italic = True

Указываем размер шрифта:
myDocument.Range(Start:=10, End:=65).Font.Size = 22

Применение стандартных стилей:
myDocument.Range(Start:=0, End:=16).Style = "Заголовок 1"

Если вас заинтересуют другие команды форматирования текста, запишите их макрорекордером в VBA Word и примените к объекту Range.

Пример 1
Добавление текста в новый документ без форматирования:

Sub Primer1()

On Error GoTo Instr

Dim myWord As New Word.Application, _

myDocument As Word.Document

Set myDocument = myWord.Documents.Add

myWord.Visible = True

With myDocument

.Range.Text = «Заголовок по центру» & vbCr

.Range(Start:=0, End:=19).ParagraphFormat.Alignment _

= wdAlignParagraphCenter

.Range.InsertAfter _

vbTab & «Первый абзац с красной строки» & vbCr & _

«Второй абзац не с красной строки» & vbCr & _

vbTab & «Третий абзац с красной строки»

End With

Set myDocument = Nothing

Set myWord = Nothing

Exit Sub

Instr:

If Err.Description <> «» Then

MsgBox «Произошла ошибка: « & Err.Description

End If

If Not myWord Is Nothing Then

myWord.Quit

Set myDocument = Nothing

Set myWord = Nothing

End If

End Sub

Пример 2
Добавление текста в новый документ с форматированием:

Sub Primer2()

On Error GoTo Instr

Dim myWord As New Word.Application, _

myDocument As Word.Document

Set myDocument = myWord.Documents.Add

myWord.Visible = True

With myDocument

.Range.Text = «Заголовок по центру» & vbCr

.Range(Start:=0, End:=19).Style = «Заголовок»

.Range(Start:=0, End:=19).ParagraphFormat.Alignment _

= wdAlignParagraphCenter

.Range.InsertAfter «Заголовок 1 не по центру» & vbCr

.Range(Start:=20, End:=44).Style = «Заголовок 1»

.Range.InsertAfter vbTab & «Шрифт по умолчанию « _

& «с красной строки» & vbCr

.Range.InsertAfter «Зеленый курсив, размер 20»

.Range(Start:=82, End:=107).Font.Italic = True

.Range(Start:=82, End:=107).Font.Size = 20

.Range(Start:=82, End:=107).Font.ColorIndex = wdGreen

End With

Set myDocument = Nothing

Set myWord = Nothing

Exit Sub

Instr:

If Err.Description <> «» Then

MsgBox «Произошла ошибка: « & Err.Description

End If

If Not myWord Is Nothing Then

myWord.Quit

Set myDocument = Nothing

Set myWord = Nothing

End If

End Sub

Вы можете запустить эти примеры в редакторе VBA Excel на своем компьютере и посмотреть результаты.

Источник

�� Word VBA

�� Range � Selection �� , �� Word VBA. �� , �� , �� .

� �� Range � Selection �� , �� . �� , �� . �� . �� , � �� — �� . �� , �� Selection �� : ��, �� , � �� Range �� .

�� Selection � �� , �� , ��, �� , � �� , �� , �� , �� . � �� Range. �� : Word �� , � �� . �� , �� , �� .

�� , �� Selection � Range �� . �� , �� . � �� , �� - �� . �� .

* �� Select. ��, �� RangeR �� RangeR. Select.

* �� , �� , �� , �� Range.

��: �� , �� , �� , � �� , �� Selection . Range . ��.

Word VBA �� . � �� ; �� .

�� Expand �� , �� . �� , ��, �� -�� . �� ; �� , �� .

�� , �� , �� :

Selection.Expand(wdWord)

�� ; wdCharct er, wdWord, wdSent ence, wdParagraph, wdSection, wdStory, wdCell, wdColumn, wdRow, wdTable � (�� Selection) wdLine. �� wdWord.

�� : �� Selection (�� ) �� Expand. �� Word, �� . �� , �� Extend, �� , �� : �� , ��, ��, �� . �� , ��, Selection.Expand ( «�» ). �� .

Word VBA �� . �� , �� , � �� Move, �� : �� , �� .

�� Move �� , �� , �� , � � �� . �� . �� Move �� «��» �� . �� Expand � Mover,nd �� .

�� . �� , �� Uni t (��

«�� » �� ). �� Count �� , �� (�.�. � �� ), �� , �� . � �� , �� (�� ) �� :

oTheRange .Move Unit : = waParagraph, Count, : = -2

�� MoveStart. � MoveEnd �� , �� Move, �� . �� :

Select-on.KoveStart Unit : = wdWord, Count := 3

�� , �� , Word �� .

�� , Start Of �� EndOf, �� . �� Start Of �� , � �� EndOt �� .

�� Extend � �� Word. �� , � �� , �� . �� wdMove �� wdExtend �� . �� :

Selection. Start Of Unit := wdSentence, Extend := wdMove

�� , �� . � �� — �� , �� . �� , �� , �� , �� . (�� , �� , � �� «��» �� ).

�� Collapse �� . �� , �� Direction. �� :

Selection.Collapse

� �� :

Selection.Collapse( Direction:=wdCollapseEnd)

�� , �� , � �� (�� wdCollapseEnd), Word �� (�� , �� ). �� -�� , �� MoveEnd, �� , �� :

��.MoveEnd Unit := wdCharacter, Count := -1

�� : �� Delete �� . �� Cut, �� . �� , �� , �� .

�� , �� , � �� , �� Paste �� . �� , �� , �� Word.

�� , �� . �� Text �� FormattedText �� . �� , �� , �� , � ��. �� , �� .

�� , �� (�� ). � �� ; �� :


With ActiveDocument.Bookmarks("TheBookmark")
      Set RangeY = _
      ActiveDocument.Range(Start:=.Start, End=.Start)
End With
RangeY.Text = Selection.Text

�� Text �� FormattedText.

�� Text �� , �� . �� , �� :

Range2.Text = «��, ��! � �� -�� !»

�� , �� Text �� . �� (�� ), �� .

�� Insert Before �� Insert After �� Range �� Selection �� , �� . �� . Word �� .

�� , �� . �� , �� Dairy Entry � �� (�� VBA, �� vbCr, �� ). �� , �� . �� , ��, �� , �� .


Dim strInsert Text As String
Selection.Insert Before "Dairy Entry" & vbCr
strInsert Text = "Today" & Chr(146) & "s date is"
strInsertText = _
strInsertTex't & Format (Now, "Long date") & ". "



  


                       
  




Selection.InsertAfter strInsertText & vbCr

�� , �� VBA, �� , � �� VBA. �� VBA �� 11.

�� — �� (�� vbCr) � �� Text �� Insert Before �� Insert After. �� Add, �� Paragraphs, ��, �� .

�� , �� , � �� .

�� — �� . �� Word � �� .

��	�� …
Font	�� , �� Name, Size � Bold. �� Range, �� Font, ��
Paragrap	�� , �� hFormat LeftIndent �� LineSpacing
Style	�� , ��
Borders	��
Tabstops	�� . �� Paragraph, � ��

Источник

title	ms.prod	ms.assetid	ms.date	ms.localizationpriority
Finding and Replacing Text or Formatting	word	9ab9f4a7-9833-5a78-56b0-56a161480f18	06/08/2019	medium

Finding and replacing is exposed by the Find and Replacement objects. The Find object is available from the Selection object and the Range object. The find action differs slightly depending upon whether you access the Find object from the Selection object or the Range object.

Finding text and selecting it

If the Find object is accessed from the Selection object, the selection is changed when the find criteria is found. The following example selects the next occurrence of the word «Hello.» If the end of the document is reached before the word «Hello» is found, the search is stopped.

With Selection.Find 
 .Forward = True 
 .Wrap = wdFindStop 
 .Text = "Hello" 
 .Execute 
End With

The Find object includes properties that relate to the options in the Find and Replace dialog box. You can set the individual properties of the Find object or use arguments with the Execute method, as shown in the following example.

Selection.Find.Execute FindText:="Hello", _ 
 Forward:=True, Wrap:=wdFindStop

Finding text without changing the selection

If the Find object is accessed from a Range object, the selection is not changed but the Range is redefined when the find criteria is found. The following example locates the first occurrence of the word «blue» in the active document. If the find operation is successful, the range is redefined and bold formatting is applied to the word «blue.»

With ActiveDocument.Content.Find 
 .Text = "blue" 
 .Forward = True 
 .Execute 
 If .Found = True Then .Parent.Bold = True 
End With

The following example performs the same result as the previous example, using arguments of the Execute method.

Set myRange = ActiveDocument.Content 
myRange.Find.Execute FindText:="blue", Forward:=True 
If myRange.Find.Found = True Then myRange.Bold = True

Using the Replacement object

The Replacement object represents the replace criteria for a find and replace operation. The properties and methods of the Replacement object correspond to the options in the Find and Replace dialog box (Edit menu).

The Replacement object is available from the Find object. The following example replaces all occurrences of the word «hi» with «hello». The selection changes when the find criteria is found because the Find object is accessed from the Selection object.

With Selection.Find 
 .ClearFormatting 
 .Text = "hi" 
 .Replacement.ClearFormatting 
 .Replacement.Text = "hello" 
 .Execute Replace:=wdReplaceAll, Forward:=True, _ 
 Wrap:=wdFindContinue 
End With

The following example removes bold formatting in the active document. The Bold property is True for the Find object and False for the Replacement object. To find and replace formatting, set the find and replace text to empty strings («») and set the Format argument of the Execute method to True. The selection remains unchanged because the Find object is accessed from a Range object (the Content property returns a Range object).

With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="", ReplaceWith:="", _ 
 Format:=True, Replace:=wdReplaceAll 
End With

[!includeSupport and feedback]

Источник

Наиболее
важной особенностью работы на VBA в Word
является вставка текста в документ при
работе с приложениями. Для этого служат
объекты Range и Selection, которые являются
главными для практически любых операций,
которые можно выполнять с помощью Word
VBA. Некоторые из этих действий можно
применять к документам в целом, но в
общем случае вам необходим диапазон
или выделенная область, прежде чем
вносить изменения. Мы, однако, рассмотрим
действия с документом при его создании.

Открытый
документ Word уже содержит объекты Range,
соответствующие многим его элементам.
Каждый абзац, таблица, ячейка таблицы,
комментарий и т. д. определяют
диапазоны. Например, для того чтобы
вставить некоторый текст в уже существующий
документ, необходимо прописать код:

ActiveDocument.Paragraphs(1).Range.Text
= «Oxo-xo!!»

Причем
данная строка будет расположена в конце
существующего параграфа. С другой
стороны, используя объект Selection, можно
также вставить некоторый текст в
документ, используя метод Add и присвоение
свойства Text объекту Selection:

If
Documents.Count
= 0 TheNDocuments.Add

Selection.Text
= «Изучение работы с текстом в документе
Word является важной составной частью
умения программировать в VBA, « +
TextBox1.Text +», и отвечает запросам всех
программистов!»

В
результате выполнения данного программного
кода в документе Word будет выведена
строка:

Изучение
работы с текстом в документе Word является
важной составной частью умения
программировать в VBA, Светлана, и отвечает
запросам всех программистов!

Здесь
имя Светлана, например, считано с
текстового поля некоторой формы, имеющей
всего одно поле ввода для имени и кнопку
«Вывод текста» (рис. 64).

Рис.
64. Форма
ввода данных

При
работе с текстом на рабочем листе Word
необходимо знать следующие коды:

определение
цвета

Selection.Font.Color
=

wdColorRed
– красный

wdColorDarkRed
– бордовый

wdColorDarkTeal
– бирюзовый

wdColorBlue
– синий

wdColorGreeN–
зеленый

wdColorBlack
– черный

wdColorOrange
– оранжевый

определение
жирности

Selection.Font.Bold
=

wdToggle
– жирность

определение
начертания

Selection.Font.Italic=

wdToggle
– курсив

определение
выравнивания

Selection.ParagraphFormat.Alignment=

wdAlignParagraphRight
– выравнивание по правому краю

wdAlignParagraphCenter
– выравнивание по центру

wdAlignParagraphJustify
– выравнивание по левому краю

вставка
в текст конкретного предложения

Selection.TypeText
Text:=»Пример работы с текстом»

вставка
новой пустой строки

Selection.TypeParagraph

установка
размера букв

Selection.Font.Size
= 14

Примечание.
Для
правильного оформления кода пользуйтесь
возможностями создания макроса написания
программы.

Одним
из элементов оформления диалоговых
окон является элемент управления Image
(рисунок).
Его основные свойства:

Autosize
– изменяет размер рисунка на форме
(автоматически или нет);

Picture
– отображает графический файл, выводимый
на форму;

pictureSizeMode
– устанавливает масштабирование рисунка
(не весь рисунок, вся поверхность объекта,
целиком внутри объекта);

PictureAligment
– устанавливает расположение рисунка
внутри объекта (слева, справа, вверху,
внизу);

pictureTilling
– покрывает объект мозаикой из рисунка.

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

Пример
30. Создать
программу, которая будет производить
подсчет количества теплоты, выделяемой
в проводнике при протекании в нем тока.
Формула для расчета количества теплоты
известна под именем закона Джоуля –
Ленца:

где
Q
–
количество теплоты в Джоулях;

U
–
напряжение в вольтах;

t
–
время в секундах;

S
–
площадь поперечного сечения проводника
в квадратных миллиметрах;

l
– длина проводника в метрах;

р
–
удельное сопротивление материала
проводника в Ом × мм²/м.

Все
исходные данные вводятся в текстовые
поля формы. По итогам вычисления результат
в виде объяснительной записки выводится
в документ, а численный результат – в
специальное окно формы.

Технология
выполнения

Создайте
форму по приведенному рис. 65.

Рис.
65. Разработанная
форма примера 30 в рабочем состоянии и
вывод результирующих сведений в документ
word

При
создании формы установите необходимые
свойства элементов. Установите свойство
Locked элемента TextBox6 как True, чтобы не
допустить случайного ввода пользователем
в него текста.

Описание
процедур

Private
Sub CommandButton1_Click()

If
Documents.Count = 0 TheNDocuments.Add

Selection.Text
= «При
прохождении
тока
напряжением
в
» + TextBox1.Text + «вольт
по
проводнику
длиной
» + TextBox4.Text + » метров,
сечением
» + TextBox3.Text + «кв.
мм
и
удельным
сопротивлением
» + TextBox5.Text + » Ом*мм2/м
за
» + TextBox2.Text + » секунд
выделится
» + TextBox6.Text + « джоулей
теплоты»

Selection.Collapse
direction:=wdCollapseEnd

End
Sub

Private
Sub CommandButton2_Click()

Unload
Me

End
Sub

Private
Sub TextBox1_Change()

scet

End
Sub

Private
Sub TextBox2_Change()

scet

End
Sub

Private
Sub TextBox3_Change()

scet

End
Sub

Private
Sub TextBox4_Change()

scet

End
Sub

Private
Sub TextBox5_Change()

scet

End
Sub

Private
Sub scet()

If
IsNumeric(TextBox1.Text) = True And

IsNumeric(TextBox2.Text)
= True And

IsNumeric(TextBox3.Text)
= True And

IsNumeric(TextBox4.Text)
= True And

IsNumeric(TextBox5.Text)
= True AndNot Val(TextBox4.Text)

=
0 AndNot Val(TextBox5.Text) = 0 Then

rez
= ((Val(TextBox1.Text) ^ 2) * Val(TextBox2.Text) *

Val(TextBox3.Text))
/ (Val(TextBox4.Text) *

Val(TextBox5.Text))

TextBox6.Text
= Str$(rez)

CommandButton1.Enabled
= True

Else

TextBox6.Text
= «»

CommandButton1.Enabled
= False

End
If

End
Sub

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

Функция
Str делает преобразование, обратное тому,
что производит Val, – конвертирует
числовое значение выражения в строковое,
что позволяет этому значению в дальнейшем
обрабатываться как строке.

Таким
образом, функции Val и Str преобразуют типы
данных обрабатываемых ими переменных,
соответственно, из строкового в числовой
и из числового в строковый (см. главу
3).

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

Источник

Welcome to the Word VBA Tutorial. VBA is a great tool not only to be leveraged in MS Excel. Often it is worth to save some time doing repeatable tasks by adopting some VBA macros in Word or PowerPoint too. Today I wanted to focus a little bit on starting you off in Word VBA macro programming.

When moving to macro programming in Word VBA you will stumble upon issues you would normally not expect in Excel. Lets take the example of moving around the Word file – in Excel you have spreadsheets which are easy to navigate around. In Word, however, you have a lot of different content e.g. text, objects like images and charts, tables etc. Navigating around Word file in VBA is the greatest challenge you will face. Today I would like to focus on that and other frequently used features in Word VBA. So let’s kick off this Word VBA Tutorial.

Starting your journey with programming in Visual Basic for Applications (VBA)? Start with my VBA Tutorial.

Word VBA is identical to Excel VBA – be sure to leverage the VBA Cheat Sheet

VBA Word Navigating

Let’s start with adding content to the most common places the start and end of a Word document in VBA. Know if you Google for this you will get tons of non-sense methods of navigating around Word files. I was truly amazed at how poorly it is documented.

Beginning and End of the Word Document

Go to the Beginning of a Word Document:

'Start - add text to the beginning of the Word Document
Dim startMark As Range
Set startMark = ActiveDocument.Range(0, 0)
startMark.Text = "This is the start of the document"

Go to the End of a Word Document:

'End - add text to the end of the Word Document
Dim endMark As Range
Set endMark = ActiveDocument.Range(Len(ActiveDocument.Range))
endMark.Text = "This is the end of the document"

Finding and replacing text in a Word Document with VBA

Finding and replacing text are basic functions that you will probably need to leverage every now and then.

'Find and print text in MsgBox
Dim selectText As Range
Set selectText = ActiveDocument.Content
selectText.Find.Execute "Hello"
If selectText.Find.Found Then
  MsgBox selectText.Text
End If

'Find and replace all instances of a specific text
Dim replaceText As Range
Set replaceText = ActiveDocument.Content
replaceText.Find.Execute FindText:="Hello", ReplaceWith:="Goodbye", Replace:=wdReplaceAll

VBA Word Text formatting

One of the first things you would want to do is probably text formatting in Word VBA.

Let’s start by adding some text to our document:

'Select the beginning of the document
ActiveDocument.Range(0).Select
'Type "Hello World!"
Selection.TypeText Text:="Hello World!"

Bold & Italic

To change the font weight to bold see below:

'Select the word "Hello"
ActiveDocument.Range(0, 5).Select

'Toggle the bold property
Selection.Font.Bold = wdToggle

To change the text decoration to italic see below:

'Select the word "World"
ActiveDocument.Range(0, 5).Select
'Toggle the bold property
Selection.Font.Bold = wdToggle

Below the final result of the code above:

Font size and name

Using the “Hello World!” example above we can similarly change the text font name and font size as shown below:

'Change font size
Selection.Font.Size = 20 'Size: 20
Selection.Font.Grow 'Size: 22
Selection.Font.Shrink 'Size: 20
'Change font name to "Aharoni"
Selection.Font.Name = "Aharoni"

VBA Word Tables

When editing Word files you might want to leverage tables as it is much easier to navigate around them in an automated way. My approach is to insert/modify tables in Word without and borders (invisible). This way you can guarantee a consistent and easy to navigate structure in Word. Let’s go through some of the basic functions around tables.

Add a table

Let’s add a table to the beginning of the Word document:

 Dim begin As Range
 Set startMark = ActiveDocument.Range(0, 0)
 'range as Range, NumRows as Long, NumColumns as Long
 Call ActiveDocument.Tables.Add(startMark, 3, 6) 'add to beginning of doc, 3 rows, 6 cols

Edit cell text

'Modify cell (1,3) to "Hello World!"
With ActiveDocument.Tables(1)
        .Cell(1, 3).Range.Text = "Hello World!"
End With

Working on rows and columns

With ActiveDocument.Tables(1)
        ' Modify height of row 1
        .Rows(1).Height = CentimetersToPoints(0.65)
        ' Modify width of column 1
        .Columns(1).Width = CentimetersToPoints(2.54)
        'Merge cell (1,3) with cell (1,4) - cells must be next to each other
        .Cell(1, 3).Merge .Cell(1, 4)
End With

Formatting borders

'Modify row 1 border, single, black and 100pt
 With ActiveDocument.Tables(1).Rows(3).Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth100pt
        .Color = wdColorBlack
End With

In progress…

Источник

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

Вставка текста без форматирования

Вставка текста с форматированием

������ � ������� � Word VBA

Finding text and selecting it

Finding text without changing the selection

Using the Replacement object

VBA Word Navigating

Beginning and End of the Word Document

Finding and replacing text in a Word Document with VBA

VBA Word Text formatting

Bold & Italic

Font size and name

VBA Word Tables

Add a table

Edit cell text

Working on rows and columns

Formatting borders

А вот еще интересные статьи:

�� Word VBA