PPT printing saves paper and changes the PPT background

1. Open the PPT, edit the part to be printed, and save it as-> file format. Select Windows Metafile and save it!

2. Open the word, use the word macro, and edit the macro code of these images:
(1) Click "Tools"> "macros"> "macros"
(2) create a new macro with a name that you can easily remember
(3) copy the following content to it and save it (you can close it directly)

Dim I as integer

For I = 1 to activedocument. inlineshapes. Count

Activedocument. inlineshapes (I). Height = 170*1.1

Activedocument. inlineshapes (I). width = 225*1.2

Next I
Create a new word file and set the page, for example:

(1)

(2)

(3) Import files

Click "insert"> "image"> "file" and select the saved Metafile. Pay attention to the order. It is best to first click the first one, and then Ctrl + A "open"

(4) Conversion

Click "Tools"-> "macro"-> "macro", find the macro file you just saved, and click "run"

Save it.

More specific macro code:

Sub ppt () dim I as integerfor I = 1 to activedocument. inlineshapes. count activedocument. inlineshapes (I ). height = 170*1.1 activedocument. inlineshapes (I ). width = 225*1.2 next iend subsub PPT plus border () with activedocument. styles (wdstylenormal ). font if. namefareast =. nameascii then. nameascii = "" end if. namefareast = "" end with activedocument. pagesetup. linenumbering. active = false. orientation = wdorientportrait. topmargin = centimeterstopoints (1.6 ). bottommargin = centimeterstopoints (0.9 ). leftmargin = centimeterstopoints (1.4 ). rightmargin = centimeterstopoints (1 ). gutter = centimeterstopoints (0 ). headerdistance = centimeterstopoints (0.5 ). footerdistance = centimeterstopoints (0.9 ). pagewidth = centimeterstopoints (21 ). pageheight = centimeterstopoints (29.7 ). firstpagetray = wdprinterdefaultbin. otherpagestray = wdprinterdefaultbin. sectionstart = wdsectionnewpage. oddandevenpagesheaderfooter = false. differentfirstpageheaderfooter = false. verticalalignment = wdalignverticaltop. suppressendnotes = false. optional margins = false. twopagesonone = false. bookfoldprinting = false. bookfoldrevprinting = false. bookfoldprintingsheets = 1. gutterpos = wdgutterposleft. layoutmode = wdlayoutmodelinegrid end with '[add page number, center footer] selection. sections (1 ). footers (1 ). pagenumbers. add pagenumberalignment: = _ wdalignpagenumbercenter, firstpage: = true if activewindow. view. splitspecial <> wdpanenone then activewindow. panes (2 ). close end if activewindow. activepane. view. type = wdnormalview or activewindow. _ activepane. view. type = wdoutlineview then activewindow. activepane. view. type = wdprintview end if activewindow. activepane. view. seekview = wdseekcurrentpageheader If selection. headerfooter. isheader = true then activewindow. activepane. view. seekview = wdseekcurrentpagefooter else activewindow. activepane. view. seekview = wdseekcurrentpageheader end if activewindow. activepane. view. type = wdnormalview or activewindow. _ activepane. view. type = wdoutlineview then if activewindow. panes. count = 2 then activewindow. panes (2 ). close end if activewindow. view. splitspecial = wdpanecurrentpageheader else activewindow. view. seekview = wdseekcurrentpageheader end if activewindow. activepane. view. seekview = wdseekmaindocument activewindow. activepane. verticalpercentscrolled = 0' [adjust the size of each slide to 184x262. You can try dim I as integer for I = 1 to activedocument. inlineshapes. count activedocument. inlineshapes (I ). height = 184 activedocument. inlineshapes (I ). width = 262 next I '[Add a border to each slide. It feels ugly to have no border.] selection. homekey unit: = wdstory dim J as integer for j = 1 to activedocument. inlineshapes. count selection. moveright unit: = wdcharacter, Count: = 1, extend: = wdextend with selection. inlineshapes (1). borders (wdborderleft ). linestyle = wdlinestylesingle. linewidth = wdlinewidth050pt. color = wdcolorautomatic end. borders (wdborderright ). linestyle = wdlinestylesingle. linewidth = wdlinewidth050pt. color = wdcolorautomatic end. borders (wdbordertop ). linestyle = wdlinestylesingle. linewidth = wdlinewidth050pt. color = wdcolorautomatic end. borders (wdborderbottom ). linestyle = wdlinestylesingle. linewidth = wdlinewidth050pt. color = wdcolorautomatic end. borders. shadow = false end with options. defaultborderlinestyle = wdlinestylesingle. defaultborderlinewidth = wdlinewidth050pt. defaultbordercolor = wdcolorautomatic end with selection. moveright unit: = wdcharacter, Count: = 1 next jend sub

How to change the PPT Background:

Change to black and white background for easy printing:

View-master-slide master-delete all old masters. When a new I blank master is created, the background is white.