分类：电脑/网络-软件-办公软件
问题：word宏如何复制zzpsx发表于2010
word宏如何复制zzpsx 发表于 2010-07-12 10:53:27 [修改] 楼主              以下是我单位里录制的三个宏，十分方便，请问如何复制到家里的上？Sub 邮件合并()'' 邮件合并 Macro' 宏在 2010-6-7 由 srzx 录制'    With ActiveDocument.MailMerge        .Destination = wdSendToNewDocument        .SuppressBlankLines = True        With .DataSword宏如何复制zzpsx 发表于 2010-07-12 10:53:27 [修改] 楼主              以下是我单位里录制的三个宏，十分方便，请问如何复制到家里的上？Sub 邮件合并()'' 邮件合并 Macro' 宏在 2010-6-7 由 srzx 录制'    With ActiveDocument.MailMerge        .Destination = wdSendToNewDocument        .SuppressBlankLines = True        With .DataSource            .FirstRecord = 1            .LastRecord = 40        End With        .Execute Pause:=False    End With    Selection.Find.ClearFormatting    Selection.Find.Replacement.ClearFormatting    With Selection.Find        .Text = "^m"        .Replacement.Text = "^p^p"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = False        .MatchWholeWord = False        .MatchByte = False        .MatchAllWordForms = False        .MatchSoundsLike = False        .MatchWildcards = True    End With    Selection.Find.Execute Replace:=wdReplaceAll    Selection.Find.ClearFormatting    Selection.Find.Replacement.ClearFormatting    With Selection.Find        .Text = "^p^p"        .Replacement.Text = "^p"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = False        .MatchWholeWord = False        .MatchByte = False        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAllEnd SubSub 删除空行()'' 删除空行 Macro' 宏在 2010-6-8 由 srzx 录制'    Selection.Find.ClearFormatting    Selection.Find.Replacement.ClearFormatting    With Selection.Find        .Text = "^p^p"        .Replacement.Text = "^p"        .Forward = True        .Wrap = wdFindContinue        .Format = False        .MatchCase = False        .MatchWholeWord = False        .MatchByte = True        .MatchWildcards = False        .MatchSoundsLike = False        .MatchAllWordForms = False    End With    Selection.Find.Execute Replace:=wdReplaceAll    Selection.WholeStory    With Selection.ParagraphFormat        .LeftIndent = CentimetersToPoints(0)        .RightIndent = CentimetersToPoints(0)        .SpaceBefore = 0        .SpaceBeforeAuto = False        .SpaceAfter = 0        .SpaceAfterAuto = False        .LineSpacingRule = wdLineSpaceSingle        .Alignment = wdAlignParagraphJustify        .WidowControl = False        .KeepWithNext = False        .KeepTogether = False        .PageBreakBefore = False        .NoLineNumber = False        .Hyphenation = True        .FirstLineIndent = CentimetersToPoints(0.35)        .OutlineLevel = wdOutlineLevelBodyText        .CharacterUnitLeftIndent = 0        .CharacterUnitRightIndent = 0        .CharacterUnitFirstLineIndent = 2        .LineUnitBefore = 0        .LineUnitAfter = 0        .AutoAdjustRightIndent = True        .DisableLineHeightGrid = False        .FarEastLineBreakControl = True        .WordWrap = True        .HangingPunctuat
回答：复制成文本，在家里电脑上新建宏模板，将代码粘贴进去即可。
另，楼主的代码应该是录制的，优化的余地很大……