office 宏 记录

word中写宏并设置快捷键的方法

 

写入你要建立的宏名字，然后点“创建”

别删除已有代码，在你新创建的sub里箭头位置写内容

 

 

添加到快速访问：文件-》选项-》快速访问工具栏，在下拉菜单中选择宏，选择你刚建的宏，添加到右侧。

 

 

然后在快速访问栏上就出现一个按钮，点这个按钮就会执行对应的宏。

 

 

 下面是具体可用的宏。

 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

1、修改word中所有图片的宽度自适应页面宽度（如果图片宽度小于word页面宽度，以图片宽度为准）

Sub 图片自适应()
'
' 图片自适应 宏
'
    pw = ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - ActiveDocument.PageSetup.RightMargin
    
    Dim oInlineShape As InlineShape
    
    For Each oInlineShape In ActiveDocument.InlineShapes '遍历所有嵌入型图片
    With oInlineShape
    
        .LockAspectRatio = msoTrue '锁定宽高比
        
        .ScaleWidth = 100 '先都设成原始大小
        
        If .Width > pw Then
            .Width = pw '如果图片大小大于页面宽度，调整为页宽
        End If

        '.Range.Select.Selection.ClearFormatting  '清除图片格式，如缩进等
        '.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中
        .Range.Style = "图片格式" '给图片应用 图片格式 这个自定义样式
        
    End With
    Next
End Sub

 

2、word所有图

 待续。。。。