PPT

拡大鏡の使い方
Windowキー+「+」
Windowキー+「ー」
Windowキー+ESC
CTL+ALT+SPACE 

Word廋身

这次年度报告包含400张PPT,Word文件搞到500M。

特意研究了一下Word廋身方法

1.将PPT导出到Word文件中。
File-》发送-》Word文档
2.Word文档另存为HTML格式
这时所有图片都自动转换为GIF格式,存于一个单独目录下。
3.批量插入这些图片
顺序插入图片。倒序拷贝

文本框中自动参照的编号

点选显示所有格式
调整Anchor的位置顺序,然后自动标号
或者定义宏

Sub setpicsize()
For i = 0 To ActiveDocument.InlineShapes.Count - 1
If ActiveDocument.InlineShes(i).Type = 3 Then
Dim a, b As Long
a = ActiveDocument.InlineShapes(i).Height
b = ActiveDocument.InlineShapes(i).Width
With ActiveDocument.InlineShapes(i)
.LockAspectRatio = msoTrue
.Height = 150
.Width = 210
End With
End If
Next i
End Sub

Sub setpicoutline()
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth100pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth100pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth100pt
.Color = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth100pt
.Color = wdColorAutomatic
End With
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth100pt
.DefaultBorderColor = wdColorAutomatic
End With
Next i
End Sub