⑴ 如何用vba把excel轉換成word
這個看你要怎麼轉，是一行對應Word一行，還是一格對應Word一行。
你這樣說太籠統了。最好上圖說明。
⑵ js導出word,如何設置word的頁面寬度
oDC.PageSetup.TopMargin = oDC.Application.CentimetersToPoints(3.17); oDC.PageSetup.BottomMargin = oDC.Application.CentimetersToPoints(3.17); oDC.PageSetup.LeftMargin = oDC.Application.CentimetersToPoints(1.54); oDC.PageSetup.RightMargin = oDC.Application.CentimetersToPoints(1.54); oDC.PageSetup.Gutter = oDC.Application.CentimetersToPoints(0); oDC.PageSetup.HeaderDistance = oDC.Application.CentimetersToPoints(1.5); oDC.PageSetup.FooterDistance = oDC.Application.CentimetersToPoints(1.75); oDC.PageSetup.PageWidth = oDC.Application.CentimetersToPoints(21); oDC.PageSetup.PageHeight = oDC.Application.CentimetersToPoints(29.7);
這些都是具體的參數設置。上下左右頁邊距，等等。最後兩行是設置紙質的寬度和高度的，21 29.7是A4紙的寬和高。
⑶ VBA 把Excel的內容復制到Word的代碼
正好前幾天在研究從EXCEL數據導出到WORD中。源代瑪整理如下，有一些路徑，文件名等需要變更信息的相信你能看明白（已用粗體標識）。提供的只是一個初學者的思路，該代碼還有很大可優化空間，因為生成WORD文件的時候估計每個要用3-5秒時間，批量生成時就很煩（批量生成就是用循環，文件名稱可以使用時間戳 & 隨機數 & 自定義名稱,一定不能只用時間戳，因為一秒鍾有的時候會抽瘋循環兩次以上，名稱完全一致會報錯滴）。
Dim MyExcel As Workbook '定義WORKBOOK變數
Set MyExcel = Workbooks("D:你需要導出表的絕對路徑")
Dim MyWord As Object '定義變數
Dim MyArray '定義數組變數
Dim MyString as String
MyArray = MyExcel.Sheets("工作表名稱").Range("A2:E2").Value '需要從EXCEL中導出的內容放到數組中，因為操作數組比直接調用RANGE要快得多。
Set MyWord = CreateObject("Word.Application") '生成WORD對象
MyString = MyArray1(1, 1) '通過操作數組給變數賦值，可以通過循環給多個變數賦值。
MyFileName = "生成WORD名稱名" '文件名稱
MyWord.documents.Add '新建文件
MyWord.documents(1).Range.InsertAfter MyString '往WORD內寫入數據
fn = "D:" & MyFileName '生成文件名
MyWord.documents(1).SaveAs fn '另存文件
MyWord.Close False '不保存關閉文件
MyWord.Quit False
Set MyWord = Nothing '清空變數
Erase MyArray1 '注銷數據
⑷ 如何將大量word文檔的頁面格式，批量的設置成需要的格式
點一個WORD文件-新建宏....
Sub 批量格式設置() '此代碼為指定文件夾中所有選取的WORD文件的進行格式設置
Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
' On Error Resume Next '忽略錯誤
'定義一個文件夾選取對話框
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
.Filters.Clear '清除所有文件篩選器中的項目
.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加篩選器的項目為所有WORD文件
.AllowMultiSelect = True '允許多項選擇
If .Show = -1 Then '確定
Application.ScreenUpdating = False
For Each vrtSelectedItem In .SelectedItems '在所有選取項目中循環
Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
With Doc
With .PageSetup '進行頁面設置
.Orientation = wdOrientPortrait '頁面方向為縱向
.TopMargin = CentimetersToPoints(2.2) '上邊距為2.2cm
.BottomMargin = CentimetersToPoints(2.2) '下邊距為2.2cm
.LeftMargin = CentimetersToPoints(2.5) '左邊距為2.5cm
.RightMargin = CentimetersToPoints(2.5) '右邊距為2.5com
.Gutter = CentimetersToPoints(0) '裝訂線0cm
.HeaderDistance = CentimetersToPoints(1.5) '頁眉1.5cm
.FooterDistance = CentimetersToPoints(1.75) '頁腳1.75cm
.PageWidth = CentimetersToPoints(21) '紙張寬21cm
.PageHeight = CentimetersToPoints(29.7) '紙張高29.7cm
.SectionStart = wdSectionNewPage '節的起始位置：新建頁
.OddAndEvenPagesHeaderFooter = False '不勾選「奇偶頁不同」
. = False '不勾選「首頁不同」
.VerticalAlignment = wdAlignVerticalTop '頁面垂直對齊方式為「頂端對齊」
.SuppressEndnotes = False '不隱藏章節附註
.MirrorMargins = False '不設置首頁的內外邊距
.BookFoldRevPrinting = False '不設置手動雙面列印
.BookFoldPrintingSheets = 1 '默認列印份數為1
.GutterPos = wdGutterPosLeft '裝訂線位於左側
.LayoutMode = wdLayoutModeLineGrid '版式模式為「只指定行網格」
End With
With .Content.ParagraphFormat '段落格式設置
.LeftIndent = CentimetersToPoints(0) '左縮進0cm
.RightIndent = CentimetersToPoints(0) '右縮進0cm
.SpaceBefore = 0 '段前間距0cm
.SpaceBeforeAuto = False '段前間距不設為「自動」
.SpaceAfter = 0 '段後間距0cm
.SpaceAfterAuto = False '段後間距不設為「自動」
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 24 '行距24磅
.Alignment = wdAlignParagraphJustify '段落設置為兩端對齊
.WidowControl = False '不勾選「孤行控制」
.KeepWithNext = False '不勾選「與下段同頁」
.KeepTogether = False '不勾選「段中不分頁」
.PageBreakBefore = False '不勾選「段前同頁」
.NoLineNumber = False '不勾選「取消行號」
.Hyphenation = True '不勾選「允許西文在單詞中間換行」
.FirstLineIndent = CentimetersToPoints(0) '首行縮進0cm
.OutlineLevel = wdOutlineLevelBodyText '大綱級別為「正文文本」
.CharacterUnitLeftIndent = 0 '段落左縮進0cm
.CharacterUnitRightIndent = 0 '段落右縮進0cm
.CharacterUnitFirstLineIndent = 0 '特殊格式為「無」
.LineUnitBefore = 0 '段前間距為0
.LineUnitAfter = 0 '段後間距為0
.AutoAdjustRightIndent = True '自動調整段落的右縮進
.DisableLineHeightGrid = False '勾選「如果定義了文檔網格，則對齊網格」，即指定段落中的字元與行網格對齊
.FarEastLineBreakControl = True '將東亞語言文字的換行規則應用於指定的段落
.WordWrap = True '在指定段落或文本框的西文單詞中間斷字換行
.HangingPunctuation = True '指定段落中的標點將可以溢出邊界
. = False
. = True '自動在指定段落的中文文字和拉丁文字之間添加空格。
. = True '自動在指定段落中的中文文字與數字之間添加空格
.BaseLineAlignment = wdBaselineAlignAuto '自動調整基線字體對齊方式
End With
''''''''''新增部分
With .Content
With .Font
.NameFarEast = "宋體"
.NameAscii = "Times New Roman"
.Size = 12
End With
With .Paragraphs.First
.Range.Font.Size = 16
.Alignment = wdAlignParagraphCenter
End With
End With
.Close True
End With
Next
Application.ScreenUpdating = True
End If
End With
MsgBox "格式化文檔操作設置完畢!", vbInformation
End Sub