A3的版面如何變A4

本帖最後由 home8486 於 2011-5-31 21:20 編輯

我用A3的橫式製作一個表格，請問各位先進我想改為A4的版面要如何做，但不是從列印的地方去更改(A3縮小為A4)?
抱歉，我所畫的表格裡面已經有打文字資料了，所以我從A3改為A4 的時候，整個文字都跑掉了。

樓主熱帖

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-31 21:45 | 只看該作者

回復 1# home8486

可否請您上傳簡單的範例

學如逆水行舟不進則退

TOP

mark15jill

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

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 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

home8486