.Gutter = CentimetersToPoints(0.5) '设置装订线为0.5厘米

End With

End Sub

```

2. 插入和段落

```vba

Sub InsertHeadingAndParagraph()

'插入

ActiveDocument.Paragraphs.Add

With Selection

.Style = ActiveDocument.Styles(" 1") '设置样式为1

.TypeText Text:="这是一个"

.TypeParagraph

End With

'插入段落

ActiveDocument.Paragraphs.Add

With Selection

.Style = ActiveDocument.Styles("正文") '设置样式为正文

.TypeText Text:="这是一个段落。"

.TypeParagraph

End With

End Sub

```

3. 添加表格

```vba

Sub InsertTable()

Dim tbl As Table

Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=3)

'设置表格样式

tbl.Style = "网格型"

'填充表格内容

tbl.Cell(1, 1).Range.Text = "表头1"

tbl.Cell(1, 2).Range.Text = "表头2"

tbl.Cell(1, 3).Range.Text = "表头3"

tbl.Cell(2, 1).Range.Text = "内容1"

tbl.Cell(2, 2).Range.Text = "内容2"

tbl.Cell(2, 3).Range.Text = "内容3"

tbl.Cell(3, 1).Range.Text = "内容4"

tbl.Cell(3, 2).Range.Text = "内容5"

tbl.Cell(3, 3).Range.Text = "内容6"

End Sub

```

4. 添加图片

```vba

Sub InsertImage()

Dim imagePath As String