⑴ 如何用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