一页9张PPT自动排版宏命令
如何在ppt中使用宏
ppt中如何使用宏我有一些ppt，我想把里面的字体全部设置成黑体，白色，如何用宏做到？给段编码也成，附上简短教程。
谢谢了利用宏批量改变字体在视图中选择宏（早期版本可能要在插入中找），输入任意的宏名，点击创建。
在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。
此时工作已经全部完成了。
Sub myfont()Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume Next ' 之后的代码就算出错也会继续执行For Each oSlide In ActivePresentation.SlidesoSlide.FollowMasterBackground = msoFalse ' 使用幻灯片母版背景For Each oShape In oSlide.Shapes' 文本框字体设置With oShape.TextFrame.TextRange.Font' .Name = "宋体"' .Size = 20.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)' .Bold = msoFalse '粗.Italic = msoFalse ' 斜.Underline = msoFalse ' 下划线End WithoShape.Fill.Background ' 文本框背景色用幻灯背景填充oShape.TextFrame.TextRange.IndentLevel = 0' 表格字体设置oShape.Table.Background.Fill.BackColor.RGB = RGB(Red:=255, Green:=255, Blue:=255) ' 底色For i = 1 To oShape.Table.Rows.CountFor j = 1 To oShape.Table.Columns.CountoShape.Table.Cell(i, j).Shape.Fill.BackColor.RGB = RGB(Red:=255, Green:=255, Blue:=255)With oShape.Table.Cell(i, j).Shape.TextFrame.TextRange.Font' .Name = "宋体"' .Size = 20.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)' .Bold = msoFalse '粗'.Italic = msoFalse ' 斜'.Underline = msoFalse ' 下划线End WithNext jNext iNextNextEnd Sub注意： 1.以上代码相应部分可以根据需要自行修改 2.运行后可能仍有部分是彩色。
巧用宏命令,完美实现一页A4纸打印多张高清照片或幻灯片
巧用宏命令，完美实现一页A4纸打印多张高清照片或幻灯片莘县一中张仿刚工作中我们经常遇到这些情况：学籍库中2000多张照片，如何有序的打印在A4纸上，每张36张且把学籍号有序的自动填充到照片下方？家庭外出游玩的照片如何方便的按规定的尺寸打印在A4像纸上？一个ppt文件有96张幻灯片，如何清晰的在A4纸中一页打8张ppt（甚至更多张）？本文就以实例解决上述问题。
首先我们需要在word中安装“自动排版”宏命令，方法如下：word→工具→宏→录制新宏→宏名macrol 改为“自动排版”→确定→界面出现蓝色对话框，停止录制，然后word→工具→宏→选中宏“自动排版”→编辑，删除尾行的“end sub”，然后在尾行复制粘贴下列内容，关闭Visual Basic编辑器，这样自动排版的宏命令就已经制作好了。
'【调整页边距及页眉页脚距，适用于A4纸】With ActiveDocument.Styles(wdStyleNormal).FontFarEast=.NameAscii Then.NameAscii=""End If.NameFarEast=""End WithWith ActiveDocument.PageSetup.LineNumbering.Active=False.Orientation=wdOrientPortrait.TopMargin=CentimetersToPoints(1.6).BottomMargin=CentimetersToPoints(0.9).LeftMargin=CentimetersToPoints(1.4).RightMargin=CentimetersToPoints(1).Gutter=CentimetersToPoints(0).HeaderDistance=CentimetersToPoints(0.5).FooterDistance=CentimetersToPoints(0.9).PageWidth=CentimetersToPoints(21).PageHeight=CentimetersToPoints(29.7).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=wdLayoutModeLineGridEnd With'【加页码，页脚居中处】Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:=_wdAlignPageNumberCenter,FirstPage:=TrueIf ActiveWindow.View.SplitSpecial<>wdPaneNone ThenActiveWindow.Panes(2).CloseEnd IfIf ActiveWindow.ActivePane.View.Type=wdNormalView Or ActiveWindow._ActivePane.View.Type=wdOutlineView ThenActiveWindow.ActivePane.View.Type=wdPrintViewEnd IfActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeaderIf Selection.HeaderFooter.IsHeader=True ThenActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooterElseActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeaderEnd IfIf ActiveWindow.ActivePane.View.Type=wdNormalView Or ActiveWindow._ActivePane.View.Type=wdOutlineView ThenIf ActiveWindow.Panes.Count=2ThenActiveWindow.Panes(2).CloseEnd IfActiveWindow.View.SplitSpecial=wdPaneCurrentPageHeaderElseActiveWindow.View.SeekView=wdSeekCurrentPageHeaderEnd IfActiveWindow.ActivePane.View.SeekView=wdSeekMainDocumentActiveWindow.ActivePane.VerticalPercentScrolled=0'【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】Dim i As IntegerFor i=1To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).Height=184ActiveDocument.InlineShapes(i).Width=262Next i'【给每张幻灯片加边框】Selection.HomeKey Unit:=wdStoryDim j As IntegerFor j=1To ActiveDocument.InlineShapes.CountSelection.MoveRight Unit:=wdCharacter,Count:=1,Extend:=wdExtendWith Selection.InlineShapes(1)With.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEnd WithWith.Borders(wdBorderRight).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEnd WithWith.Borders(wdBorderTop).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEnd WithWith.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.LineWidth=wdLineWidth050pt.Color=wdColorAutomaticEnd With.Borders.Shadow=FalseEnd WithWith Options.DefaultBorderLineStyle=wdLineStyleSingle.DefaultBorderLineWidth=wdLineWidth050pt.DefaultBorderColor=wdColorAutomaticEnd WithSelection.MoveRight Unit:=wdCharacter,Count:=1Next jEnd Sub一、在一页A4纸上打印多张高清照片以建立学籍为例，照片放在桌面新建文件夹内，本例以36张照片为例，2000张的一样可以一次全部导入，方法完全相同。
论ppt如何打印成一页9格
论ppt如何打印成一页9格
平时在学校里面，ppt一甩给打印的让他帮我们打好，现成就可以拿到一页九个。
可是现在实习在家里，想用自己家里的打印机打成一页九个真的是比登天还难。
所以我就花了两个小时，用了无数的墨水与纸张，只为实验出如果打印一页九个，如下图：
这是较为理想的格式
而不是：
这是不理想的格式
自家打印机，为了打印出合适的效果特别安装了office2003版本的ppt，实验2小时，只为了心意的一页9格。
版本是office2003，其他版本的不想摸索。
方法如下：
首先去背景：
1、选中一张ppt右击——背景——选择白色——忽略母版的背景图像这个勾打上——全部应用
（这么做的目的是把ppt的背景全部都去掉，省墨水嘛，如果需要背景的直接跳过）
方法一：
1、文件——页面设置——备注、讲义和大纲选择横向——确定
2、文件——打印——打印内容选择讲义——颜色选择纯黑白——每页幻灯片数9——顺序水平——根据纸张调整大小打勾——幻灯
片加框打勾
3、打印
4、这种效果如图，可以发现留白太多空隙太多，导致格子太小文字都看不清
方法二：
1、文件——页面设置——备注、讲义和大纲选择横向——确定
2、文件——打印——属性——页面设置——页面布局里面选择“页面布局”——指定——9页面打印——从左上水平地（注意这里的页面边框不要打勾）——确定——确定
3、在打印页面幻灯片加框这个勾打伤，这样更美观
4、打印。
wps宏的使用方法与技巧
WPS宏是WPS Office软件中的一项功能，它可以帮助用户自动执行一系列操作，提高工作效率。
下面是一些WPS宏的使用方法与技巧：
1. 启用宏功能：在WPS Office软件中，点击“文件”菜单，选择“选项”，在弹出的对话框中选择“高级”，然后勾选“启用所有宏”选项。
2. 录制宏：点击“开发工具”菜单，选择“录制宏”，然后按照需要执行的操作进行操作，录制完成后点击“停止录制”按钮。
3. 编辑宏：点击“开发工具”菜单，选择“编辑宏”，可以对已经录制的宏进行编辑和修改。
4. 运行宏：点击“开发工具”菜单，选择“运行宏”，选择要运行的宏并点击“运行”按钮。
5. 分配宏快捷键：点击“开发工具”菜单，选择“宏”，在弹出的对话框中选择要分配快捷键的宏，并点击“分配”按钮，然后按下要分配的快捷键。
6. 宏的常用命令：在录制或编辑宏时，可以使用一些常用的命令，如“Selection.Copy”复制选中内容，“Selection.Paste”粘贴内容，“ActiveCell.Value”获取当前单元格的值等。
7. 宏的条件判断：在宏中可以使用条件判断语句，如“If...Then...Else”语句，根据条件执行不同的操作。
8. 宏的循环结构：在宏中可以使用循环结构，如“For...Next”循环，重复执行一段代码。
9. 宏的错误处理：在宏中可以使用错误处理语句，如“On Error Resume Next”忽略错误继续执行，“On Error GoTo 0”停止忽略错误。
10. 宏的保存与导入：录制或编辑完成的宏可以保存为宏文件（后缀名为.bas），也可以导入已经保存的宏文件。
以上是一些WPS宏的使用方法与技巧，希望对你有帮助！。
在1张A4纸上完美排版打印9张幻灯片
1、合并需要打印的多个（如果有多个）ppt 文件；有时候我们需要把多个 PowerPoint 演示文稿合并到一个演示文稿中，同时保留源幻灯片的模板，可以通过下面的操作实现：打开多个 PowerPoint 演示文件中的一个，单击PowerPoint“工具”菜单中的“比较合并演示文稿”命令，弹出“选择要与当前演示文稿合并的文件”对话框，按住 Ctrl 键选中需要合并的演示文件，单击“合并”按钮，系统会弹出警告提示，单击其中的“继续”按钮就可以进行多个演示文稿的合并操作了。
2、将 PPT 模板统一改为空白；将 ppt 背景模板全部改为采用白版形式，这样可以减少最终的 word 文件体积，也可以节约油墨，但要注意调整模板后幻灯片没有出现错位。
3、输出图片；慢慢实践发现ppt可以另存为图片，这样插入word当然最好不过，尝试了里面种格式的图片，发现只有wmf格式的效果最好！其他格式导出后清晰度都明显下降，打出来的效果极差。
操作过程：“文件—→另存为—→windows图元文件”4、设置页面；Word：文件—→页面设置—→上下边距设置0.5cm、左右边距设置1.5cm（全部调整为可以根据情况试验适当增加此数），选择横向页面。
5、导入图片；Word：插入—→图片—→来自文件，将刚才产生的所有图元文件全部选择插入。
6、运行宏；（1）点击“工具”—>“宏”—>“宏”；（2）其一个自己容易记住的名字，创建一个新宏；（3）请把下面的内容复制到里面，然后保存；Dim i As IntegerFor i = 1 To ActiveDocument.InlineShapes.CountWith ActiveDocument.InlineShapes(i).Height = 238 * 0.7.Width = 315 * 0.8.Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderTop).LineWidth = wdLineWidth050pt.Borders(wdBorderTop).Color = wdColorAutomaticEnd WithNext i（4）保存，退出；（5） Word：工具—→宏—→宏，选择刚刚创建的宏，运行。
使用Office办公软件的宏功能自动执行复杂的操作
使用Office办公软件的宏功能自动执行复杂的操作办公室工作中，我们经常会遇到一些繁琐而重复的操作，这不仅占用了我们宝贵的时间，还增加了出错的可能性。
然而，借助Microsoft Office办公软件的宏功能，我们可以轻松地自动执行这些操作，提高工作效率。
本文将介绍如何使用Office办公软件的宏功能，在不同的应用场景中实现自动化操作。
一、什么是宏功能？Office办公软件中的宏功能可以理解为一系列预定义的指令或命令的集合，它们可以自动执行一系列复杂的操作。
通过录制宏或者编写VBA（Visual Basic for Applications）宏代码，我们可以实现简单又高效的操作自动化。
二、宏功能的应用场景1. Excel宏：实现大量数据的处理和分析在日常工作中，我们经常需要处理大量的数据，并进行各种分析。
使用Excel宏，我们可以自动执行数据导入、格式整理、计算和图表生成等操作。
比如，在一个数据表中，我们需要将销售额按照月份进行汇总并生成图表，我们可以录制一个宏来自动执行这些操作，从而省去了手动操作的繁琐过程。
2. Word宏：快速生成规范化文档在编写报告或者文档时，我们往往需要按照一定的格式和规范进行排版。
使用Word宏，我们可以自动执行设置页眉页脚、调整格式、插入表格和插入目录等操作。
例如，在写论文时，我们可以通过录制一个宏来一键生成规范化的封面和目录，省去了手动设置的麻烦。
3. PowerPoint宏：快速制作演示文稿在做演讲或者展示时，我们常常需要制作演示文稿，并按照特定的顺序和效果展示幻灯片。
使用PowerPoint宏，我们可以自动执行插入幻灯片、设置动画效果、导出为视频等操作，从而快速制作出专业又精美的演示文稿。
三、如何录制和运行宏1. 录制宏打开Office软件（如Excel），点击“开发工具”选项卡，选择“宏”按钮，然后点击“录制新宏”。
在弹出的对话框中，输入宏的名称和简要说明，点击“确定”即可开始录制。
PPT常用宏代码
PPT中常用宏代码倒计时宏代码Option ExplicitPublic Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Tmr()'Just in the eventuality that you click the start button twice'isRunning stores the current state of the macro'TRUE = Running; FALSE = IdleStatic isRunning As BooleanIf isRunning = True ThenEndElseisRunning = TrueDim TMinus As IntegerDim xtime As Datextime = Now'On Slide 1, Shape 1 is the textboxWith ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text = "Ladies & Gentlemen." & vbCrLf & _ "Please be seated. We are about to begin."With .Shapes(1)'Countdown in secondsTMinus = 120Do While (TMinus > -1)' Suspend program execution for 1 second (1000 milliseconds)Sleep 1000xtime = Now.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")) - _ TimeSerial(Hour(Now), Minute(Now), Second(Now) + TMinus), "hh:mm:ss") TMinus = TMinus - 1' Very crucial else the display won't refresh itselfDoEventsLoopEnd With' 3-2-1-0 Blast off and move to the next slide or any slide for that matter SlideShowWindows(1).View.GotoSlide (2)isRunning = False.Shapes(2).TextFrame.TextRange.Text = "Click here to start countdown"EndEnd WithEnd IfEnd Sub批量删除幻灯片备注之宏代码Sub DeleteNote()Dim actppt As PresentationDim pptcount As IntegerDim iChose As IntegerDim bDelete As BooleanDim sMsgBox As StringDim dirpath As StringDim txtstring As StringsMsgBox = "运行该宏之前，请先作好备份！继续吗？"iChoice = MsgBox(sMsgBox, vbYesNo, "备份提醒")If iChoice = vbNo ThenExit SubEnd IfsMsgBox = "导出备注后，需要删除PPT备注吗？"iChoice = MsgBox(sMsgBox, vbYesNo, "导出注释")If iChoice = vbNo ThenbDelete = FalseElsebDelete = TrueEnd IfSet actppt = Application.ActivePresentationdirpath = actppt.Path & "\" & & " 的备注.txt"pptcount = actppt.Slides.Count'打开书写文件Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile(dirpath, True)'遍历pptWith actpptFor i = 1 To pptcounttxtstring = .Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text If (bDelete) Then.Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""End Ifa.writeline (.Slides(i).SlideIndex)a.writeline (txtstring)a.writeline ("")Next iEnd Witha.CloseEnd SubUsing SetTimer/KillTimer APIOption Explicit'API DeclarationsDeclare Function SetTimer Lib "user32" _(ByVal hwnd As Long, _ByVal nIDEvent As Long, _ByVal uElapse As Long, _ByVal lpTimerFunc As Long) As LongDeclare Function KillTimer Lib "user32" _(ByVal hwnd As Long, _ByVal nIDEvent As Long) As Long' Public VariablesPublic SecondCtr As IntegerPublic TimerID As LongPublic bTimerState As BooleanSub TimerOnOff()If bTimerState = False ThenTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)If TimerID = 0 ThenMsgBox "Unable to create the timer", vbCritical + vbOKOnly, "Error" Exit SubEnd IfbTimerState = TrueElseTimerID = KillTimer(0, TimerID)If TimerID = 0 ThenMsgBox "Unable to stop the timer", vbCritical + vbOKOnly, "Error" End IfbTimerState = FalseEnd IfEnd Sub' The defined routine gets called every nnnn milliseconds.Sub TimerProc(ByVal hwnd As Long, _ByVal uMsg As Long, _ByVal idEvent As Long, _ByVal dwTime As Long)SecondCtr = SecondCtr + 1ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text = CStr(SecondCtr) End Sub改变表格边框颜色及线条粗细之宏代码Option ExplicitSub HowToUseIt()Call SetTableBorder(ActivePresentation.Slides(1).Shapes(1).Table)End SubSub SetTableBorder(oTable As Table)Dim I As IntegerWith oTableFor I = 1 To .Rows.CountWith .Rows(I).Cells(1).Borders(ppBorderLeft).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithWith .Rows(I).Cells(.Rows(I).Cells.Count).Borders(ppBorderRight).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithNext IFor I = 1 To .Columns.CountWith .Columns(I).Cells(1).Borders(ppBorderTop).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithWith .Columns(I).Cells(.Columns(I).Cells.Count).Borders(ppBorderBottom).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithNext IEnd WithEnd Sub删除所有隐藏幻灯片的宏代码Sub DelHiddenSlide()Dim sld As Slide, shp As Shape, found As BooleanDofound = FalseFor Each sld In ActivePresentation.SlidesIf sld.SlideShowTransition.Hidden = msoTrue Thenfound = Truesld.DeleteEnd IfNextLoop While found = TrueEnd SubPPT自动生成大纲宏：Dim strFileName As String' Both I & J are used as countersDim I As IntegerDim J As Integer' Working on the active presentation.With ActivePresentation'Display the input box with the default 'Titles.Txt'strFileName = InputBox("Enter a filename to export slide titles", "Provide filename...", "Titles.txt")'Check if the user has pressed Cancel (Inputbox returns a zero length string)If strFileName = "" ThenExit SubEnd If' Do some good housekeeping and check for the existence of the file.' Ask the user for further directions in case it does. : )If Dir(.Path & "\" & strFileName) <> "" ThenIf MsgBox(strFileName & " already exists. Overwrite it?", _vbQuestion + vbYesNo, "Warning") = vbNo ThenExit SubEnd IfEnd If' Open the file for exporting the slide titles. File is created in the same folder as the open presentation.' If the Presentation is a new one (No path) then it will get created in the Root Folder Open .Path & "\" & strFileName For Output As #1For I = 1 To .Slides.Count' Returns TRUE if there is a TitlePlaceholderIf .Slides(I).Shapes.HasTitle Then' Now loop thru the PlaceHolders and pick the text from the TitlePlaceHolderFor J = 1 To .Slides(I).Shapes.Placeholders.CountWith .Slides(I).Shapes.Placeholders.Item(J)If .PlaceholderFormat.Type = ppPlaceholderTitle Then ' Just inserted for debugging purposes...Debug.Print .TextFrame.TextRange' Write the title text to the output filePrint #1, .TextFrame.TextRangeEnd IfEnd WithNext JEnd IfNext I'Close the open fileClose #1End WithEnd Sub。
办公软件的专业应用技巧如何使用宏进行批量处理
办公软件的专业应用技巧如何使用宏进行批量处理在现代办公环境中，办公软件已经成为一项必不可少的工具。
然而，简单地使用办公软件可能无法充分发挥其实力。
为了更高效地处理大量数据和重复操作，了解和学习一些专业应用技巧势在必行。
其中，宏是一种强大的功能，可以帮助用户批量处理数据和重复操作，极大地提高工作效率。
本文将详细介绍办公软件中如何使用宏进行批量处理的专业应用技巧。
一、什么是宏在办公软件中，宏是一组自动化操作的集合，可以通过录制用户的操作来生成宏代码。
这样，用户可以通过简单地运行宏代码来重复执行一系列操作，避免了重复的劳动。
因此，宏在处理大量数据、执行相似操作和处理复杂任务时非常有用。
二、宏的录制与编辑1. 录制宏：在办公软件中，一般可以通过“宏录制器”或类似的功能开始录制宏操作。
用户只需点击“录制”按钮，然后执行一系列操作，录制器会自动将操作转化为宏代码。
在录制宏时，可根据具体需求设置相关参数，如数据筛选条件、格式设置等。
2. 编辑宏：录制生成的宏代码可能需要进行一些调整和编辑，以满足实际应用需求。
用户可以使用办公软件提供的宏编辑器来修改宏代码，添加条件判断、循环结构等程序设计语句，实现更复杂的批量处理操作。
三、宏的应用示例下面以常见的Excel表格处理为例，详细介绍办公软件中宏的应用技巧。
1. 数据筛选：假设我们需要从一个包含大量数据的Excel表格中筛选出特定条件的数据。
我们可以使用宏来自动完成这个操作。
首先，录制一个宏，执行数据筛选，在数据筛选对话框中设置筛选条件，然后点击确定。
录制结束后，停止录制宏并保存宏代码。
之后，每当我们需要筛选相同条件的数据时，只需运行该宏代码即可，节省大量的时间和精力。
2. 数据整理：宏还可以用来对数据进行整理和处理。
例如，我们有一个包含成千上万行数据的表格，其中有一列是日期，但是日期格式不统一，存在多种格式（如“2022-01-01”、“01/01/2022”等）。
2.4.3宏命令教学示例
2.4.3宏命令教学
一、宏定义
1 .定义宏：打开WPSOffiCe,点击“插入”选项卡，在“文本”功能区中点击“宏”，然后选择“新建”并填写宏名称，为宏设置快捷键，最后点击“确定”。
2 .输入宏代码：在弹出的宏编辑器窗口中，输入你想要实现的宏功能的代码。
二、宏运行
1 .执行宏：点击“宏”选项卡，找到你刚才定义的宏，点击“运行”。
2 .编辑宏：在弹出的宏编辑器窗口中，你可以对宏代码进行修改。
三、宏录制
1 .点击“宏”选项卡，在“录制宏”功能区中点击“录制”,然后点击“停止”。
2 .将录制的宏复制并粘贴到其他位置。
注意：如果你使用的是免费版的WPSOffice,宏可能受到限制，需要升级到专业版或企业版以解锁更多功能。
四、宏安全
为了保护你的文件安全，请确保在关闭宏前，先停止运行任何宏。
1 .停止宏：在运行的宏上点击右键，选择“停止”。
2•保存文件：在关闭任何宏之前，请务必保存你的文件。
五、宏调试
在使用宏过程中，如遇到问题，可进行调试。
1.点击“宏”选项卡，在“录制宏”功能区中点击“录制”,然后点击“停止”。
2 .打开宏编辑器，在“调试”选项卡中，选择“宏”，然后点击“运行到光标位置”。
3 .在弹出的窗口中，你可以查看当前宏的执行过程，找到问题所在并进行
修改。
怎样在插件中设置和使用宏功能
怎样在插件中设置和使用宏功能在我们日常使用各种软件的时候，你可能会发现有些重复性的操作特别烦人，比如频繁地复制粘贴相同格式的内容，或者每次都要进行一系列固定的设置调整。
这时候，如果能有个神奇的工具来帮我们自动完成这些操作，那可就太棒啦！没错，这就是宏功能的用武之地。
我记得有一次，我在处理一份特别长的文档，里面有大量的图片需要统一调整大小和格式。
如果一张一张地去弄，那真不知道要弄到猴年马月。
就在我快要崩溃的时候，突然想到了宏功能。
咱们先说设置宏功能吧。
第一步，您得先找到插件里宏功能的入口。
这就好像是找宝藏的入口一样，有时候可能藏得有点深。
不同的软件，这个入口的位置还不太一样。
有的可能在菜单栏的“工具”选项里，有的可能在“视图”或者“编辑”里面。
您可得瞪大了眼睛仔细找找。
找到入口之后，一般会有一个“新建宏”或者“录制宏”的按钮。
这就好比是打开了录制节目的开关。
接下来，您就开始进行您想要自动化的操作。
比如说，在文档里设置特定的字体、字号、颜色，调整段落格式等等。
您就像一个熟练的工匠，一步一步精心地完成这些操作。
重点来啦！在操作的过程中，每一个细节都要做到位。
就像我调整那些图片的时候，得精确地选择图片的大小、分辨率，还有对齐方式等等。
一点都不能马虎，不然宏执行起来可就达不到您想要的效果了。
等您把所有的操作都完成了，别忘了点击“停止录制”或者“保存宏”。
这就像是给您的精心表演画上了一个完美的句号。
设置好了宏，接下来就是使用它啦。
使用宏也很简单，找到您刚刚设置好的宏，点击运行，然后就等着它像一个勤劳的小蜜蜂一样为您干活吧。
比如说，我处理那份文档的时候，设置好了调整图片的宏，之后每次遇到新的图片，我只需要轻轻一点，宏就会迅速帮我把图片调整好，那速度，简直比闪电还快！不过要提醒您哦，使用宏的时候也要注意一些小细节。
比如说，如果您的文档内容有一些特殊的情况，可能宏就没办法完全适用了。
这时候，您就得稍微手动调整一下。
利用VBA实现PPT幻灯片自动播放
利用VBA实现PPT幻灯片自动播放幻灯片演示是一种常见的展示和传达信息的方式。
在 PowerPoint 中，通过添加动画和切换效果，可以使幻灯片更加生动、吸引人。
然而，如果需要在特定时间间隔内自动播放幻灯片，就需要借助 VBA（Visual Basic for Applications）编程的力量来实现。
VBA 是一种 Microsoft Office 套件中的编程语言，它与 PowerPoint 集成得非常紧密，可以帮助我们自定义和控制 PowerPoint 的各种功能。
下面将介绍如何利用 VBA 实现 PPT 幻灯片自动播放的方法。
首先，我们需要打开 PowerPoint，选择“开发工具”选项卡，点击“Visual Basic”按钮，进入 VBA 编辑器界面。
在 VBA 编辑器中，我们可以编写和调试 VBA 代码。
在 VBA 编辑器中，我们需要编写一个子程序，用于自动播放幻灯片。
首先，我们需要通过定义一个幻灯片放映对象来获取当前演示文稿的幻灯片放映状态。
然后，我们可以使用 `SlideShowSettings` 对象来设置自动播放的参数，例如循环播放、时间间隔等。
最后，我们使用 `Run` 方法来启动幻灯片放映。
以下是一个简单的示例代码：```Sub AutoPlaySlideshow()Dim SlideShow As SlideShowSettingsSet SlideShow = ActivePresentation.SlideShowSettings' 设置自动播放的参数SlideShow.AdvanceMode = ppSlideShowUseSlideTimingsSlideShow.ShowType = ppShowTypeKioskSlideShow.RunEnd Sub```在编写完代码之后，我们可以关闭 VBA 编辑器，返回到 PowerPoint 主界面。
现在，我们需要将自动播放的代码与 PowerPoint 中的一个按钮或快捷键关联起来，以方便我们随时启动自动播放功能。
宏功能设置
宏功能设置宏功能是现代电子设备中常见的一项功能，通过宏功能，用户可以设定一组按键序列来执行一系列操作，从而实现某种特定功能。
宏功能的设置可以方便快捷地完成一些重复性的任务，提高工作效率。
首先，宏功能的设置需要在设备的设置界面进行操作。
打开设备的设置界面，找到宏功能设置选项。
点击进入宏功能设置界面后，用户可以看到已有的宏功能列表，也可以创建新的宏功能。
在创建新的宏功能时，用户需要给这个宏功能起一个名称，然后设定触发宏功能的按键序列。
选择触发宏功能的按键后，用户可以通过按键的添加按钮来逐步添加其他需要执行的按键。
这些按键可以是普通的按键，也可以是组合键。
在添加按键的过程中，用户可以自由排序按键的顺序，也可以设定按键之间的时间间隔。
除了添加按键，用户还可以添加一些特殊的指令来实现更复杂的功能。
比如，用户可以设定在按下某个按键后，逐个输入一段特定的文本。
这个功能在编辑长篇文档时特别有用，可以大大减少重复工作。
宏功能的设置还可以涉及到一些高级功能，比如条件判断和循环。
在条件判断中，用户可以设定根据某个条件是否满足，执行不同的按键序列。
这个功能可以根据不同的情况灵活选择执行的操作。
在循环功能中，用户可以设定一个按键序列循环执行多次，从而简化一些重复性的操作。
完成宏功能设置后，用户可以保存设置并退出设置界面。
之后，在使用设备时，只需要按下设定的宏功能触发按键，设备就会自动执行按键序列，完成设定的功能。
然而，宏功能的设置也需要用户注意一些问题。
首先，由于宏功能是通过一系列按键来触发，所以用户需要确保这些按键在实际使用中是可行的，不会与其他已有的功能冲突。
其次，宏功能的设置需要仔细考虑，以免误操作导致不必要的麻烦。
最后，当设备需要与其他设备连接时，宏功能可能会受到限制，用户需要在连接时考虑这些因素。
总的来说，宏功能是一项非常实用的功能，可以帮助用户完成一些重复性的任务，提高工作效率。
用户可以通过设备的设置界面进行宏功能的设置，设定触发宏功能的按键和执行的按键序列。
怎么启用宏功能
怎么启用宏功能在计算机软件中，宏（Macro）是一种能够自动执行一系列任务或命令的功能。
通过定义和调用宏，用户可以简化繁琐的操作，提高工作效率。
在许多办公软件中，如Microsoft Office、Google Sheets等，都有宏功能可以使用。
本文将介绍如何在不同软件中启用宏功能，帮助您更高效地完成工作。
一、Microsoft Office中的宏功能Microsoft Office是一套广泛使用的办公软件套件，包括Word、Excel、PowerPoint等。
其中的宏功能可以通过以下步骤启用：1. 打开Microsoft Office软件，例如Word或Excel。
2. 点击菜单栏上的“文件”选项。
3. 在文件选项中，选择“选项”（可能是“首选项”或“设置”）。
4. 在弹出的选项对话框中，选择“自定义功能区”。
5. 在右侧的“主选项卡”列表中选择需要启用宏功能的菜单选项，例如“开发工具”。
6. 在下方的“自定义功能区”列表中，勾选“开发工具”。
7. 点击“确定”保存设置。
8. 现在，您会在菜单栏中看到已启用的宏功能选项，可以开始自定义和执行宏了。
请注意，Microsoft Office中的宏功能强大而复杂，执行宏时需要小心，避免潜在的风险和安全问题。
建议只执行可信任的宏，以确保系统的安全性。
二、Google Sheets中的宏功能Google Sheets是一款基于云端的电子表格软件，与Microsoft Excel类似。
Google Sheets也支持宏功能，可以在菜单栏中启用宏。
以下是启用宏功能的步骤：1. 打开Google Sheets。
2. 点击菜单栏上的“扩展功能”。
3. 在下拉菜单中选择“扩展编辑器”。
4. 在新打开的窗口中，选择“插入”菜单，然后选择“脚本”。
5. 在脚本编辑器中，输入您自定义的宏代码。
6. 点击菜单栏上的“运行”按钮来执行宏代码。
启用宏功能后，您可以使用Google Sheets提供的脚本语言编写和执行各种功能，自动化重复的任务并提高工作效率。
ppt2010怎么加载宏功能
ppt2010怎么加载宏功能
正常在制作表格时，往往需要添加宏，但是刚开始使用ppt软件并不知道宏功能在哪，怎么办?下面店铺介绍加载宏功能的方法，希望能帮到大家。
ppt2010加载宏的方法步骤
1.打开Excel 2010-文件-选项
2.选项-开发工具，选择之后，确定即可
3.菜单栏出现-开发工具，选择加载项
4.加载宏-分析工具库-确定
5.录制宏，单击左下按钮即可。
ppt放映控制快捷键
N、Enter、Page Down、右箭头(→)、下箭头(↓)或空格键：执行下一个动画或换页到下一张幻灯片
P、Page Up、左箭头(←)，上箭头(↑)或Backspace：执行上一个动画或返回到上一个幻灯片
B或句号：黑屏或从黑屏返回幻灯片放映
W或逗号：白屏或从白屏返回幻灯片放映
s或加号：停止或重新启动自动幻灯片放映
Esc、Ctrl+Break或连字符(-)：退出幻灯片放映
E：擦除屏幕上的注释
H：到下一张隐藏幻灯片
T：排练时设置新的时间
O：排练时使用原设置时间
M：排练时使用鼠标单击切换到下一张幻灯片
同时按下两个鼠标按钮几秒钟：返回第一张幻灯片
Ctrl+P：重新显示隐藏的指针或将指针改变成绘图笔
Ctrl+A：重新显示隐藏的指针和将指针改变成箭头
Ctrl+H：立即隐藏指针和按钮
Ctrl+U：在15秒内隐藏指针和按钮
Shift+F10(相当于单击鼠标右键)：显示右键快捷菜单Tab：转到幻灯片上的第一个或下一个超级链接
Shift+Tab：转到幻灯片上的最后一个或上一个超级链接。
WPSOffice高级功能如何使用宏录制器自动执行复杂的幻灯片操作
WPSOffice高级功能如何使用宏录制器自动执行复杂的幻灯片操作在现代办公软件中，WPSOffice无疑是一款功能强大且备受青睐的产品。
除了基本的文档处理功能外，WPSOffice还提供了许多高级功能，其中之一便是宏录制器。
宏录制器能够帮助用户自动执行复杂的任务，特别是在幻灯片操作方面，为用户带来极大的便利。
本文将介绍WPSOffice高级功能如何使用宏录制器自动执行复杂的幻灯片操作，并提供一些实用的技巧和建议。
首先，让我们了解一下WPSOffice中的宏录制器是什么。
宏录制器是一种功能，允许用户通过记录和回放一系列操作来快速执行复杂的任务。
在幻灯片操作中，宏录制器可以记录用户对幻灯片的插入、删除、隐藏、更改格式等操作。
以下是一些使用宏录制器来自动执行幻灯片操作的常见场景和步骤：1. 自动插入幻灯片：使用宏录制器可以记录用户插入新幻灯片的操作，并通过设置快捷键或按钮，将其自动化。
这样，在用户需要多次插入幻灯片时，只需按下快捷键或点击按钮，即可自动完成插入操作。
2. 幻灯片转场效果：WPSOffice提供了多种精美的转场效果供用户选择。
通过使用宏录制器，用户可以记录选择特定的转场效果的操作，并将其应用于幻灯片切换过程中。
这样，用户无需手动选择每个幻灯片的转场效果，而只需一键应用到整个演示文稿中。
3. 文本和对象动画：宏录制器还可以用于记录和执行文本和对象的动画效果。
用户可以记录添加动画效果、设置起始时间和持续时间、定义动画顺序等操作，并将其应用于幻灯片中的文本和对象。
这样，用户可以轻松地实现幻灯片中的动态效果，从而提高演示文稿的吸引力。
4. 幻灯片播放设置：在幻灯片展示过程中，用户可以使用宏录制器来记录和自动执行相关的播放设置。
比如，记录自动播放幻灯片的延迟时间、循环播放设置、点击鼠标后的行为等操作。
通过自动执行这些设置，用户可以轻松地控制幻灯片的播放方式，实现个性化的呈现效果。
总结起来，WPSOffice的宏录制器功能能够极大地简化幻灯片操作，并提高工作效率。
PPT常用宏代码
PPT常⽤宏代码PPT中常⽤宏代码倒计时宏代码Option ExplicitPublic Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Tmr()'Just in the eventuality that you click the start button twice'isRunning stores the current state of the macro'TRUE = Running; FALSE = IdleStatic isRunning As BooleanIf isRunning = True ThenEndElseisRunning = TrueDim TMinus As IntegerDim xtime As Datextime = Now'On Slide 1, Shape 1 is the textboxWith ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text = "Ladies & Gentlemen." & vbCrLf & _ "Please be seated. We are about to begin." With .Shapes(1)'Countdown in secondsTMinus = 120Do While (TMinus > -1)' Suspend program execution for 1 second (1000 milliseconds)Sleep 1000xtime = Now.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")) - _ TimeSerial(Hour(Now), Minute(Now), Second(Now) + TMinus), "hh:mm:ss") TMinus = TMinus - 1' Very crucial else the display won't refresh itselfDoEventsLoopEnd With' 3-2-1-0 Blast off and move to the next slide or any slide for that matter SlideShowWindows(1).View.GotoSlide (2) isRunning = False.Shapes(2).TextFrame.TextRange.Text = "Click here to start countdown" EndEnd WithEnd IfEnd Sub批量删除幻灯⽚备注之宏代码Sub DeleteNote()Dim actppt As PresentationDim pptcount As IntegerDim iChose As IntegerDim bDelete As BooleanDim sMsgBox As StringDim dirpath As StringDim txtstring As StringsMsgBox = "运⾏该宏之前，请先作好备份！继续吗？"iChoice = MsgBox(sMsgBox, vbYesNo, "备份提醒")If iChoice = vbNo ThenExit SubEnd IfsMsgBox = "导出备注后，需要删除PPT备注吗？"iChoice = MsgBox(sMsgBox, vbYesNo, "导出注释")If iChoice = vbNo ThenbDelete = FalseElsebDelete = TrueEnd IfSet actppt = Application.ActivePresentationdirpath = actppt.Path & "\" & /doc/442666394.html & " 的备注.txt"pptcount = actppt.Slides.Count'打开书写⽂件Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile(dirpath, True)'遍历pptWith actpptFor i = 1 To pptcounttxtstring = .Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text If (bDelete) Then .Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""End Ifa.writeline (.Slides(i).SlideIndex)a.writeline (txtstring)a.writeline ("")Next iEnd Witha.CloseEnd SubUsing SetTimer/KillTimer APIOption Explicit'API DeclarationsDeclare Function SetTimer Lib "user32" _(ByVal hwnd As Long, _ByVal nIDEvent As Long, _ByVal uElapse As Long, _ByVal lpTimerFunc As Long) As LongDeclare Function KillTimer Lib "user32" _(ByVal hwnd As Long, _ByVal nIDEvent As Long) As Long' Public VariablesPublic SecondCtr As IntegerPublic TimerID As LongPublic bTimerState As BooleanSub TimerOnOff()If bTimerState = False ThenTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)If TimerID = 0 ThenMsgBox "Unable to create the timer", vbCritical + vbOKOnly, "Error" Exit SubEnd IfbTimerState = TrueElseTimerID = KillTimer(0, TimerID)If TimerID = 0 ThenMsgBox "Unable to stop the timer", vbCritical + vbOKOnly, "Error" End IfbTimerState = FalseEnd IfEnd Sub' The defined routine gets called every nnnn milliseconds.Sub TimerProc(ByVal hwnd As Long, _ByVal uMsg As Long, _ByVal idEvent As Long, _ByVal dwTime As Long)SecondCtr = SecondCtr + 1ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text = CStr(SecondCtr) End Sub 改变表格边框颜⾊及线条粗细之宏代码Option ExplicitSub HowToUseIt()Call SetTableBorder(ActivePresentation.Slides(1).Shapes(1).Table)End SubSub SetTableBorder(oTable As Table)Dim I As IntegerWith oTableFor I = 1 To .Rows.CountWith .Rows(I).Cells(1).Borders(ppBorderLeft).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithWith .Rows(I).Cells(.Rows(I).Cells.Count).Borders(ppBorderRight).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithNext IFor I = 1 To .Columns.CountWith .Columns(I).Cells(1).Borders(ppBorderTop).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithWith .Columns(I).Cells(.Columns(I).Cells.Count).Borders(ppBorderBottom).ForeColor.RGB = RGB(255, 153, 51).Weight = 10End WithNext IEnd WithEnd Sub删除所有隐藏幻灯⽚的宏代码Sub DelHiddenSlide()Dim sld As Slide, shp As Shape, found As BooleanDofound = FalseFor Each sld In ActivePresentation.SlidesIf sld.SlideShowTransition.Hidden = msoTrue Thenfound = Truesld.DeleteEnd IfNextLoop While found = TrueEnd SubPPT⾃动⽣成⼤纲宏：Dim strFileName As String' Both I & J are used as countersDim I As IntegerDim J As Integer' Working on the active presentation.With ActivePresentation'Display the input box with the default 'Titles.Txt'strFileName = InputBox("Enter a filename to export slide titles", "Provide filename...", "Titles.txt") 'Check if the user has pressed Cancel (Inputbox returns a zero length string)If strFileName = "" ThenExit SubEnd If' Do some good housekeeping and check for the existence of the file.' Ask the user for further directions in case it does. : )If Dir(.Path & "\" & strFileName) <> "" ThenIf MsgBox(strFileName & " already exists. Overwrite it?", _vbQuestion + vbYesNo, "Warning") = vbNo ThenExit SubEnd IfEnd If' Open the file for exporting the slide titles. File is created in the same folder as the open presentation.' If the Presentation is a new one (No path) then it will get created in the Root Folder Open .Path & "\" & strFileName For Output As #1For I = 1 To .Slides.Count' Returns TRUE if there is a TitlePlaceholderIf .Slides(I).Shapes.HasTitle Then' Now loop thru the PlaceHolders and pick the text from the TitlePlaceHolderFor J = 1 To .Slides(I).Shapes.Placeholders.CountWith .Slides(I).Shapes.Placeholders.Item(J)If .PlaceholderFormat.Type = ppPlaceholderTitle Then ' Just inserted for debugging purposes...Debug.Print .TextFrame.TextRange' Write the title text to the output filePrint #1, .TextFrame.TextRangeEnd IfEnd WithNext JEnd IfNext I'Close the open fileClose #1End WithEnd Sub。
powerpoint播放幻灯片自动运行的宏
powerpoint播放幻灯片自动运行的宏
powerpoint播放幻灯片自动运行的宏
很少有人提及，在powerpoint演示文稿播放幻灯片时，如何让相应的宏自动运行。
我们都知道在office中，任何一个办公软件都可以使用宏。
仍然，powerpoint演示文稿却没有相应的自动运行的宏。
但是，我们可以借助其它的办法来实现：
在幻灯片播放时，自动运行宏。
一、OnSlideShowPageChange宏的介绍
该宏是在幻灯片开始放映时或在幻灯片放映切换过程中自动运行的宏。
所使用的方法为：
Sub OnSlideShowPageChange()
'这里就是你的代码了
End Sub
二、OnSlideShowTerminate宏的介绍
该宏是在幻灯片放映结束时自动运行的宏，可以用它来清理相关的信息。
使用方法如下：
Sub OnSlideShowT erminate()
'这里就是你的代码了
End Sub
事实上，以上两种宏，是一种事件触发而已，但是我们可以根据幻灯片在播放时所触发的事件，就可以在其内部编写ＶＢＡ代码，来实现相应的功能，因为上述的两种宏都是自动运行的。
当然，别忘记了让你的演示文稿ＰＰＴ的宏的安全级别设置为最低。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Selection.MoveRight Unit:=wdCharacter, Count:=1
ห้องสมุดไป่ตู้
Next j
End Sub
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
.Borders.Shadow = False
End With
With Options
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(0.6)
.BottomMargin = CentimetersToPoints(0.6)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(0.8)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(0.5)
.FooterDistance = CentimetersToPoints(0.9)
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
Attribute VB_Name = "NewMacros"
Sub 一页9张PPT自动排版()
Attribute 一页9张PPT自动排版.VB_Description = "宏在 2008-6-16 由 欣宇 录制"
Attribute 一页9张PPT自动排版.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1"
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
.DefaultBorderColor = wdColorAutomatic
.LineWidth = wdLineWidth050pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height = 184
ActiveDocument.InlineShapes(i).Width = 262
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.LayoutMode = wdLayoutModeLineGrid
End With
'【调整每张幻灯片的大小为高184宽262，也许还有更佳的值，可自己尝试】
Next i
'【给每张幻灯片加边框】
Selection.HomeKey Unit:=wdStory
Dim j As Integer
For j = 1 To ActiveDocument.InlineShapes.Count
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.InlineShapes(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
'
'制作：啄木论坛() 欣宇 版权所有
'
'【调整页边距及页眉页脚距，适用于A4纸】
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then