返回列表 上一主題 發帖

A3的版面如何變A4

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 2011-6-1 10:46 | 顯示全部帖子
本帖最後由 mark15jill 於 2011-6-1 10:52 編輯

[/code]回復 1# home8486

    如同版大說的 能否告知您使用的OFFICE版本 以及 附檔???

基本上 從 A3 變 A4 本來格式就會有所跑掉  因為紙張大小不同

該預設之邊界 及 行數 也會跟著改變

以下是我用巨集 (2007) 版本 所紀錄的更改A3 A4 程式碼..

[code]Sub 巨集2()
'
' 巨集2 巨集
'
'
    WordBasic.PageSetupMargins Tab:=1, PaperSize:=8, TopMargin:="2.54", _
        BottomMargin:="2.54", LeftMargin:="3.17", RightMargin:="3.17", Gutter:= _
        "0", PageWidth:="29.7", PageHeight:="42", Orientation:=0, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, _
        HeaderDistance:="1.5", FooterDistance:="1.75", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=2, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=1, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
    Selection.TypeText Text:="目前是A3"
  
  Selection.TypeParagraph
    WordBasic.PageSetupMargins Tab:=1, PaperSize:=9, TopMargin:="2.54", _
        BottomMargin:="2.54", LeftMargin:="3.17", RightMargin:="3.17", Gutter:= _
        "0", PageWidth:="21", PageHeight:="29.7", Orientation:=0, FirstPage:=0, _
        OtherPages:=0, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, _
        HeaderDistance:="1.5", FooterDistance:="1.75", SectionStart:=2, _
        OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, _
        CountBy:=0, TwoOnOne:=0, GutterPosition:=0, LayoutMode:=2, DocFontName:= _
        "", FirstPageOnLeft:=0, SectionType:=1, FolioPrint:=0, ReverseFolio:=0, _
        FolioPages:=1
    Selection.TypeText Text:="目前是A4"
End Sub

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題