Word VBA调用自带页面设置功能

可以使用下面的代码来调用 Word 自带的页面设置功能：

Sub SetPageSetup()
   '定义变量
   Dim dlg As Dialog
   Dim dlgResult As Integer
   
   '创建对话框
   Set dlg = Dialogs(wdDialogFilePageSetup)
   
   '显示对话框
   dlgResult = dlg.Display
   
   '如果用户单击“确定”按钮，则应用更改
   If dlgResult = -1 Then
      dlg.Execute
   End If
   
   '释放对话框对象
   Set dlg = Nothing
End Sub

该代码将创建一个名为 SetPageSetup 的子过程，在该过程中，我们创建了一个对话框对象（wdDialogFilePageSetup），然后显示该对话框。如果用户单击“确定”按钮，则会将更改应用于页面设置。最后，我们释放对话框对象，以避免内存泄漏。

你可以将该代码保存在 Word 的宏中，并使用快捷键或宏按钮来调用它。

相关问题

Word VBA调用自带段落设置功能

在 Word VBA 中，可以通过以下代码调用自带的段落设置功能：

' 设置段落格式
With Selection.ParagraphFormat
    .LeftIndent = CentimetersToPoints(1) ' 左缩进1厘米
    .RightIndent = CentimetersToPoints(1) ' 右缩进1厘米
    .LineSpacingRule = wdLineSpaceSingle ' 行间距为1行
    .SpaceBefore = 0 ' 段前间距为0
    .SpaceAfter = 0 ' 段后间距为0
End With

其中，`Selection.ParagraphFormat` 用于获取当前所选文本的段落格式对象，通过设置该对象的属性来设置段落格式。在上面的示例中，设置了左缩进、右缩进、行间距、段前间距和段后间距。可以根据需要调整这些属性的值。

Word VBA调用自带段落设置

在Word VBA中，可以使用以下代码调用自带的段落设置：

' 设置段落为标题1样式
Selection.Range.Paragraphs.Style = ActiveDocument.Styles("标题 1")

上述代码将当前选中区域的段落样式设置为“标题1”，可以根据需要修改样式名称。