如何用vba代码把图片的宽度批量设置为10厘米，页边距都设置为2厘米，并给页面加上页码

zzpsx

如何用vba代码把图片的宽度批量设置为10厘米，并给页面加上页码.zip (2.81 KB, 下载次数: 8)

2024-6-19 09:05 上传

点击文件名下载附件

如何用vba代码把图片的宽度批量设置为10厘米，页边距都设置为2厘米，并给页面加上页码

batmanbbs

zzpsx

batmanbbs 发表于 2024-6-19 19:12

发文本么更好

batmanbbs

zzpsx 发表于 2024-6-19 19:44
发文本么更好

需要审核，审核非常慢，没有多少代码，自己OCR一下即可

PS：代码已发，不着急等审核后才能看到

batmanbbs

1. ' 臭冬瓜（QQ：84299244），分享日期：2024.06.19
   
2. Option Explicit
   
3. 
   
4. Sub 指定参数排版()
   
5. '
   
6. ' 1.图片宽度设置为10厘米
   
7. ' 2.页边距都设置为2厘米
   
8. ' 3.添加页码
   
9. '
   
10.     Dim defPicWidth!, defPageMargin!
    
11.     defPicWidth = CentimetersToPoints(10)
    
12.     defPageMargin = CentimetersToPoints(2)
    
13. 
    
14.     Application.ScreenUpdating = False
    
15.     With ActiveDocument
    
16.         Dim myInShape As InlineShape
    
17.         For Each myInShape In .InlineShapes
    
18.             With myInShape
    
19.                 .LockAspectRatio = msoTrue
    
20.                 .Width = defPicWidth
    
21.                 .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
22.             End With
    
23.         Next myInShape
    
24.         Set myInShape = Nothing
    
25. 
    
26.         With .PageSetup
    
27.             .TopMargin = defPageMargin
    
28.             .BottomMargin = defPageMargin
    
29.             .LeftMargin = defPageMargin
    
30.             .RightMargin = defPageMargin
    
31.             .FooterDistance = defPageMargin - CentimetersToPoints(0.5)
    
32.         End With
    
33. 
    
34.         .Styles("页眉").Borders.Enable = False
    
35.         With .Sections.First.Footers(wdHeaderFooterPrimary).Range
    
36.             .Fields.Add .Duplicate, wdFieldEmpty, "page", False
    
37.             .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
38.         End With
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41. End Sub

复制代码

zzpsx

batmanbbs 发表于 2024-6-19 19:49

页码格式想改成： 第几页 共几页

batmanbbs

zzpsx 发表于 2024-6-21 15:53
页码格式想改成： 第几页 共几页

照着截图修改一下

zzpsx

batmanbbs 发表于 2024-6-21 16:41
照着截图修改一下

求改好的完整的代码文字版，谢谢。

batmanbbs

zzpsx 发表于 2024-6-22 13:44
求改好的完整的代码文字版，谢谢。

sorry，后面的的代码没有保存

zhanglei1371

自己敲一遍记得更深刻。