为控件指定控件提示

选定所需控件。选择“属性”窗口中的 ControlTipText 属性。

也可以通过编写代码来设置 ControlTipText 属性的值。

提示：若要给页或标签指定控件提示，请使用页或标签的快捷菜单中的“重命名”命令。

指定加速键

在设计方式下，选择窗体中的某个控件。选择“属性”窗口中的 Accelerator 属性。输入单个字符作为 Accelerator 的值。

提示：可以选用该控件的题注中的一个字符作为加速键。请注意，在该控件的题注中，选用的那个字符会有下划线。

怎样为word宏指定快捷键

OFFICE按钮 → Word选项 → 自定义 → 键盘快捷方式:指定命令→宏 → 在右边找到宏 → 保存到:选择你的目标工作簿→在下面按下快捷键 → 指定即可！！！

others

String = object.GetText( [ format])

object.SetFocus

object.SetText( StoreData [, format])

Field对象是Fields集合的一个成员。 Fields 集合代表选定内容、范围或文档中的字段。

使用Item方法可访问文档中的特定页面。下面的示例访问活动文档中的第一页。

Dim objPage As Page

Set objPage = ActiveDocument.ActiveWindow _

.Panes(1).Pages.Item(1)

>Pane对象是Panes集合的成员。 Panes 集合包含一个窗口中所有的窗格。

Paragraph 对象是 Paragraphs 集合的一个成员。 Paragraphs 集合包含所选内容、范围或文档中的所有段落。

Range 对象表示文档中的一个连续区域。每个 Range 对象由一个起始字符位置和一个终止字符位置定义。

以下示例将返回引用活动文档中的前 10 个字符的 Range 对象。

Set myRange = ActiveDocument.Range(Start:=0, End:=10)

Rows 集合包含指定的所选内容、范围或表格中所有行。

Sections 集合包含在所选内容、范围或文档中的所有各节。

Selection 对象表示窗口或窗格中的当前选内容。选定内容表示文档中的选定（或突出显示）区域，或者代表插入点（如果未选择文档中的任何内容）。每个文档窗口窗格只有一个 Selection 对象，并且整个应用程序中只有一个 Selection 对象激活。

Shape 对象代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象、ActiveX 控件或图片。 Shape 对象是 Shapes 集合的成员，该集合包含文档正文中或所有页眉和页脚中的所有形状。

Table 对象表示单个表格。 Table 对象是 Tables 集合的一个成员。 Tables 集合包含指定选定区域、范围或文档中的所有表格。

Window 对象 (Word)代表窗口。许多文档特征，如滚动条和标尺，实际上是属性的窗口。

Words集合表示所选内容、范围或文档中的单词集合。 Words集合中的每一项都是一个Range对象, 该对象表示一个单词。不存在 Word 对象。

ms word vba

如何用vba切换word文档的视图

Sub QQ1722187970()
    Dim oWnd As Window
    Dim oPane As Pane
    Dim oView As View
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
'        MsgBox .Windows.Count
        Set oWnd = .Windows(1)
        With oWnd
'            MsgBox .Panes.Count
            Set oPane = .Panes(1)
                '阅读视图
               .View = wdReadingView
                 'Web版式视图
               .View = wdWebView
                 '草稿视图
               .View = wdNormalView
                 '大纲视图
               .View = wdOutlineView
'                 '大纲视图
               .View = wdMasterView
'                 '打印预览视图
               .View = wdPrintPreview
'                 '打印视图或者叫页面视图
               .View = wdPrintView
        End With
    End With
End Sub

在活动文档的开头插入文字：

Sub InsertTextBeforeRange()
    Dim rngDoc As Range
    Set rngDoc = ActiveDocument.Range(Start:=0, End:=0)
    rngDoc.InsertBefore "Hello "
End Sub

'下列示例创建一个 Range对象，该对象从第二段开头开始，至第三段末尾后结束。
Sub NewRange()
	Dim doc As Document
	Dim rngDoc As Range
	Set doc = ActiveDocument
	Set rngDoc = doc.Range(Start:=doc.Paragraphs(1).Range.Start, _
	End:=doc.Paragraphs(1).Range.End)
	rngDoc.Bold = True
End Sub

1 自定义工具栏及常用VBA过程都写在Normal.dotm中

C:\Users\wwuhnwu01\AppData\Roaming\Microsoft\Templates

C:\Users\username\AppDatoaming\Microsoft\Templates\Normal.dotm备份在：F:\Website\notes\doc

2 用CMD命名将备份处的Normal.dotm复制到word的Templates内（需关闭word）:

Copy F:\Website\notes\doc\Normal.dotm %userprofile%\AppData\Roaming\Microsoft\Templates\Normal.dotm（本文档中的VBA过程addbutton()有些问题）

3 让VBA代码随文档启动 “开发工具”选项卡→宏→Visaul Basic→左侧单击Normal工程→插入→模块→在模块中写代码。宏名字：AutoOpen()

4 逐句调试：VBE→F8

用vba快速切换到word文档的页眉页脚

Sub QQ1722187970()
    Dim oWnd As Window
    Dim oPane As Pane
    Dim oView As View
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
'        MsgBox .Windows.Count
        Set oWnd = .Windows(1)
        With oWnd
'            MsgBox .Panes.Count
            Set oPane = .Panes(1)
            Set oView = .View
            With oView
                '先切换为页面视图
                .Type = wdPrintView
                '然后进入当前页面的页眉
                .SeekView = wdSeekCurrentPageHeader
            End With
        End With
    End With
End Sub

如何用vba为word文档中的所有表格自动插入题注和交叉引用？

Sub QQ1722187970()
    Word.Application.ScreenUpdating = False
    Dim oRng As Range
    Dim oDoc As Document
    Dim oCL As CaptionLabel
    Dim oT As Table
    Set oDoc = Word.ActiveDocument
    With oDoc
        Set oCL = Word.CaptionLabels.Add("表")
        '设置新增的题注样式
        With oCL
            .ChapterStyleLevel = 1
            .IncludeChapterNumber = True
            .NumberStyle = wdCaptionNumberStyleArabic
        End With
        i = 1
        For Each oT In .Tables
            Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)
                With oRng
        '            将oRng对象按照整个段落选中 , oRng对象自动变为整个段落的Range对象
                    oRng.Expand wdParagraph
                    '如果有自动编号，删除
                    oRng.ListFormat.RemoveNumbers
'                    读取标题的文本内容
                    sText = VBA.Replace(oRng.Text, Chr(13), "")
                    .Delete
                    '插入题注
                    .InsertCaption "表", sText
                    '插入XX如YY所示的交叉引用
                    .InsertBefore "所示:" & Chr(13)
                    '重新定义区域
                    .SetRange .Start, .Start
                    .InsertCrossReference "表", wdOnlyLabelAndNumber, i
                    oRng.Expand wdParagraph
                    .SetRange .Start, .Start
                    .InsertBefore sText & "如"
                End With
                i = i + 1
        Next
    End With
    Word.Application.ScreenUpdating = True
End Sub