关于word中宏的问题，我录制了一个关于给图片加边框的宏，加上了循环就不对了的

在word中怎么批量给图片加边框，我自己录制了一个宏，但是怎么循环？~

Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdColorAutomatic
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub

将下述两句改为
.OutsideLineStyle = wdLineStyleSingle
.OutsideLineWidth = wdLineWidth050pt
其实你在wdLineStyleThinThickSmallGap处单击鼠标右键，选择“定义”就能看到所有可选值。

Sub Macro1()
'
' Macro1 Macro
' 宏在 2009-11-12 由 雨林木风 录制
'
for each iShape in activedocument.inlineshapes '遍历
iShape.select '选定
With Selection.InlineShapes(1)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.Color = wdColorAutomatic
End With
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth150pt
.DefaultBorderColor = wdColorAutomatic
End With
next '循环
End Sub

---

游仙区13680986609： 我在word里录制了一段宏,请问如何才能让它自动重复执行100次? - ？
圣潘清咽： sub 苹果日记年到月前() for ii = 1 to 100 你上录制的程序块 next end sub

游仙区13680986609： 关于word 中利用宏解决文档第一个英文字母大字的问题想录制一个宏,例子:在其它地方粘贴过来一段:ALL that certain….,把它粘贴到一个空白文档后,... - ？
圣潘清咽：[答案] Sub Macro1() Dim oParagraph Dim strContent Dim i,s For Each oParagraph In ActiveDocument.Paragraphs strContent = LTrim(oParagraph.Range.Text) If Len(strContent) 0 Then i = InStr(strContent,＂ ＂) If i Then s = Left(strContent,i - 1) strContent ...

游仙区13680986609： 在word文档中“宏”的相关问题! - ？
圣潘清咽： 宏: 微软的office软件运行用户自己编写叫VBA的脚本来增加其灵活性,进一步扩充它的能力.如完成一个一打开word文件同时要打开某个文件的功能,必须要自己编写一段称之为宏的脚本.具体做法是在“工具”菜单“宏”-“宏”弹出的对话...

游仙区13680986609： word文档无法打开的原因是启用了宏如何解决? - ？
圣潘清咽： 有一些Word必须用宏才能打开的.如果想打开,在WORD的工具——宏——安全性,选安全性“中”,再打开该文档,点“启用宏”.就可以看了. 前提是,这个Word有没有毒,有时病毒会通过宏来感染电脑.简单的说,word中的宏是为了达到某一目的由编辑者录制的一系列指令的集合.如果宏安全性设置为非常高,可能会出现打开含有宏文件时失败的现象,可以试试:工具-宏-安全性,把安全级别设为高,中,低等.如果来源不可靠的文件,最好不要随意打开.

游仙区13680986609： 如何在Word中利用“录制宏”进行文字排版 - ？
圣潘清咽： 1.录制你自己的宏(1)运行Word,并新建一个文件.打开“工具”菜单栏,选择“宏”,在二级菜单中选择“录制新宏”.(2)出现“录制宏”对话框,随便为宏取个名按“确定”即可,这时会出现一个悬浮的“停止录”工具,宏录制就已经开...

游仙区13680986609： 在Word中,怎样创建一个宏,宏是要来做什么 - ？
圣潘清咽： WORD宏篇对于宏来说,可以把它看成一段Visual Basic程序代码,它可以像摄像机一样,把你的操作记录下来,应用于更多类似要求的文档. 1、创建宏要创建宏,既可以使用宏记录器录制一系列操作,也可以在 Visual Basic 编辑器 中输入 ...

游仙区13680986609： 宏如何设置word中的宏是什么,怎么设置,详细一点,谢谢! ？
圣潘清咽： 在word中使用“工具”/“宏”/“录制宏”,然后在该文档中进行一些必要的设置,设置完毕后,关闭“录制宏”对话框,这样一个宏就录制好了.然后是给宏取一个名,将它拖移到桌面的工具栏中.这样你在另一篇文档中若要使用和该宏——即前面那篇文档相同的设置,只要你选中文本,点击工具栏中的宏就可以迅速完成.这就是宏的录制与使用过程.

游仙区13680986609： word里的宏是什么? - ？
圣潘清咽： 其实就是程序,你可以录制一个宏,比如开始录制,你把字体变红色,然后停止录制.当你执行宏的时候,就会把你选中的字变成红色.就是利用宏来完成的.

游仙区13680986609： 我把已录制好宏的word 文件发给别人,而别人没有发现宏?这是怎么回事,如何处理,请大师告诉我,谢谢 - ？
圣潘清咽： 对方的宏安全设置可能非常高,把宏关闭了.需打开宏的安全设置,设置为“中”左右就可以了. WORD2003设置方法: 工具--宏--安全性--“中”选取,确定.关闭WORD,重新打开你那份文档.2007: 单击“WORD左上角的按钮” ,然后单击右下角的“WORD 选项 依次单击“信任中心”、“信任中心设置”和“宏设置”. 可先选择“禁用无数字签署的所有宏”,如果不行就选择“启用所有宏(不推荐,可能会运行有潜在危险的代码)”

游仙区13680986609： WORD中如何录制新宏 ？
圣潘清咽： 1.在电脑上打开一个word文档,而后在文档中输入文字并选中,点击“开发工具”菜单选项. 2.接着在弹出的选项中点击录制宏,而后会弹出一个新的宏对话框,输入宏名称以及保存位置. 3.输入完宏名称后,点击快捷键,在弹出的对话框中设置启用宏的快捷键. 4.设置完毕后,关闭窗口,而后进入宏命令录制阶段,这里将文字执行加粗并倾斜操作.