word的宏编码问题要求:将一个
丑丑,你好!你需要的代码如下,打开word,执行复制以下宏代码(首尾Sub Macro1(),End Sub是重复的,不用复制),按快捷键Alt+F11,切换到Visual Basic 编辑器,粘贴代码即可!
Sub Macro1()
Application。 DisplayStatusBar = True
Application。ShowWindowsInTaskbar = True
Application。ShowStartupDialog = True
With ActiveWindow
。 DisplayHorizontalScrollBar = True
。DisplayVe...全部
丑丑,你好!你需要的代码如下,打开word,执行复制以下宏代码(首尾Sub Macro1(),End Sub是重复的,不用复制),按快捷键Alt+F11,切换到Visual Basic 编辑器,粘贴代码即可!
Sub Macro1()
Application。
DisplayStatusBar = True
Application。ShowWindowsInTaskbar = True
Application。ShowStartupDialog = True
With ActiveWindow
。
DisplayHorizontalScrollBar = True
。DisplayVerticalScrollBar = True
。DisplayLeftScrollBar = False
。
StyleAreaWidth = CentimetersToPoints(0)
。DisplayVerticalRuler = True
。DisplayRightRuler = False
。
DisplayScreenTips = True
With 。View
。ShowAnimation = True
。Draft = False
。
WrapToWindow = False
。ShowPicturePlaceHolders = False
。ShowFieldCodes = False
。
ShowBookmarks = False
。FieldShading = wdFieldShadingWhenSelected
。ShowTabs = False
。
ShowSpaces = False
。ShowParagraphs = True
。ShowHyphens = False
。
ShowHiddenText = False
。ShowAll = True
。ShowDrawings = True
。
ShowObjectAnchors = False
。ShowTextBoundaries = False
。ShowHighlight = True
。
ShowOptionalBreaks = False
。DisplayPageBoundaries = True
。DisplaySmartTags = True
End With
End With
With Options
。
Pagination = True
。WPHelp = False
。WPDocNavKeys = False
。ShortMenuNames = False
。
RTFInClipboard = True
。BlueScreen = False
。EnableSound = False
。ConfirmConversions = False
。
UpdateLinksAtOpen = True
。SendMailAttach = True
。MeasurementUnit = wdMillimeters
。
AllowPixelUnits = False
。UseCharacterUnit = True
。AllowReadingMode = True
。
AnimateScreenMovements = True
。VirusProtection = False
。ApplyFarEastFontsToAscii = False
。
InterpretHighAnsi = wdAutoDetectHighAnsiFarEast
。BackgroundOpen = False
。AutoCreateNewDrawings = True
End With
Application。
DisplayRecentFiles = True
RecentFiles。Maximum = 4
With ActiveDocument。Styles(wdStyleNormal)。
Font
If 。NameFarEast = 。NameAscii Then
。NameAscii = ""
End If
。
NameFarEast = ""
End With
With ActiveDocument。PageSetup
。LineNumbering。Active = False
。
Orientation = wdOrientPortrait
。TopMargin = MillimetersToPoints(25。4)
。BottomMargin = MillimetersToPoints(25。
4)
。LeftMargin = MillimetersToPoints(20)
。RightMargin = MillimetersToPoints(20)
。
Gutter = MillimetersToPoints(10)
。HeaderDistance = MillimetersToPoints(17)
。FooterDistance = MillimetersToPoints(20)
。
PageWidth = MillimetersToPoints(210)
。PageHeight = MillimetersToPoints(297)
。FirstPageTray = wdPrinterDefaultBin
。
OtherPagesTray = wdPrinterDefaultBin
。SectionStart = wdSectionNewPage
。OddAndEvenPagesHeaderFooter = False
。
DifferentFirstPageHeaderFooter = False
。VerticalAlignment = wdAlignVerticalTop
。
SuppressEndnotes = False
。MirrorMargins = False
。TwoPagesOnOne = False
。
BookFoldPrinting = False
。BookFoldRevPrinting = False
。BookFoldPrintingSheets = 1
。
GutterPos = wdGutterPosLeft
。LayoutMode = wdLayoutModeLineGrid
End With
With Selection。
ParagraphFormat
。LeftIndent = MillimetersToPoints(0)
。RightIndent = MillimetersToPoints(0)
。
SpaceBefore = 0
。SpaceBeforeAuto = False
。SpaceAfter = 0
。SpaceAfterAuto = False
。
LineSpacingRule = wdLineSpaceExactly
。LineSpacing = 20
。Alignment = wdAlignParagraphJustify
。
WidowControl = False
。KeepWithNext = False
。KeepTogether = False
。PageBreakBefore = False
。
NoLineNumber = False
。Hyphenation = True
。FirstLineIndent = MillimetersToPoints(0)
。
OutlineLevel = wdOutlineLevelBodyText
。CharacterUnitLeftIndent = 0
。CharacterUnitRightIndent = 0
。
CharacterUnitFirstLineIndent = 0
。LineUnitBefore = 0
。LineUnitAfter = 0
。
AutoAdjustRightIndent = True
。DisableLineHeightGrid = False
。FarEastLineBreakControl = True
。
WordWrap = True
。HangingPunctuation = True
。HalfWidthPunctuationOnTopOfLine = False
。
AddSpaceBetweenFarEastAndAlpha = True
。AddSpaceBetweenFarEastAndDigit = True
。
BaseLineAlignment = wdBaselineAlignAuto
End With
Selection。Font。Color = wdColorBlack
End Sub
祝你成功,请见附件:。
收起