Word

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