[求助]如何让宏1运行结束后自动在文档第二栏运行宏2

zhangxdong4

我录制了下面两个宏，请问如何让宏1运行结束后自动在文档第二栏运行宏2
谢谢告知！！！
宏是在WORD2007下录制的~~~~
Sub 宏1()

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=1
        .EvenlySpaced = False
        .LineBetween = False
    End With
    ActiveDocument.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 12# _
        , 78#, 57#, 692.25).Select

    Selection.Collapse
    
    Selection.Orientation = wdTextOrientationHorizontal
    Selection.TypeText Text:="姓名"
  
    Selection.Orientation = wdTextOrientationUpward
    Selection.Font.Underline = wdUnderlineSingle
    Selection.Font.Underline = wdUnderlineThick
    Selection.TypeText Text:="              "
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineSingle
    
    
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
    Selection.TypeText Text:="班级"
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineThick
    Selection.TypeText Text:="                   "
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
    Selection.TypeText Text:="考号"
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineThick
    Selection.TypeText Text:="                     "
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.TypeParagraph
  
     Selection.TypeParagraph
    Selection.TypeText Text:= _
        "★★★┄┄┄密┄┄★★★┄┄封┄┄★★★┄┄线 ┄┄★★★┄┄ 内┄┄★★★┄┄不 ┄┄★★★┄┄得┄┄★★★"
    Selection.TypeText Text:="┄┄答┄┄★★★┄┄ 题┄┄┄★★★"
    
  Selection.ShapeRange.Line.Visible = msoFalse
   Selection.ShapeRange.ScaleHeight 1.1, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 1.09, msoFalse, msoScaleFromTopLeft

End Sub
Sub 宏2()
'
' 宏2 宏
'
'

    
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Size = 24
    Selection.Font.Name = "宋体"
    Selection.TypeText Text:="肥东县张集中学九年级月考"
    Selection.TypeParagraph
    Selection.Font.Size = 18
    Selection.Font.Name = "楷体_GB2312"
    Selection.TypeText Text:="化 学 试 卷"
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.Font.Size = 12
    Selection.Font.Name = "宋体"
    Selection.TypeText Text:= _
        "可能用到的相对原子质量：H:1    16   C: 12  P: 31  S: 32  Si: 28 "
    Selection.TypeParagraph
    Selection.TypeText Text:= _
        "Cl: 35.5  Na: 23 Mg: 24  Al: 27  Fe: 56 Cu:64  Zn:65  Mn: 55"
    Selection.TypeParagraph
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleSimpChinNum3
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0.75)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    

    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
        .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(6)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(9)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
        ContinuePreviousList:=False, ApplyT=wdListApplyToWholeList, _
        DefaultListBehavior:=wdWord10ListBehavior
    Selection.TypeText Text:="选择题"
    Selection.TypeParagraph
    Selection.TypeText Text:="填空题"
    Selection.TypeParagraph
    Selection.TypeText Text:="简答题"
    Selection.TypeParagraph
    Selection.TypeText Text:="计算题"
End Sub
CsxMiFrY.rar (1.51 KB, 下载次数: 10)

2006-11-19 08:47 上传

点击文件名下载附件
[求助]如何让宏1运行结束后自动在文档第二栏运行宏2

[此贴子已经被作者于2006-11-19 8:48:18编辑过]

yvhf

在宏1的End Sub 前一行，插入call 宏2

zhangxdong4

这样不行，你可以试一下！！！~~~~~~~因为当前选中文本框

[此贴子已经被作者于2006-11-18 22:31:10编辑过]

konggs

用附件。只是粘粘到论坛时，代码变形（被过滤）。

[此贴子已经被作者于2006-11-18 22:48:40编辑过]

守柔

无法具体知道楼主的确切意思，试一下这个：

在宏1的结束位置前，加上：

  ActiveDocument.Range(0, 0).Select
    Call 宏2
End Sub

zhangxdong4

谢谢，可以的，呵呵！可以解释一下吗？

守柔

QUOTE:

以下是引用zhangxdong4在2006-11-19 9:36:38的发言：
谢谢，可以的，呵呵！可以解释一下吗？

你无非是想退出文本框编辑，在起始位置设置其它内容吧，所以用了这个：

Activedocument.range(0,0).select