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纸的宽和高。

python操作word文档表格

office 2007中不能直接打开VB编辑器，请按Alt + F11打开。

import win32com.client # 导入脚本模块 WordApp = win32com.client.Dispatch(＂Word.Application＂) # 载入WORD模块 WordApp.Visible = True # 显示Word应用程序 1、 新建Word文档 doc = WordApp.Documents.Add() # 新建空文件 doc = WordApp.Documents.Open(r＂d:\2011专业考试计划.doc＂) # 打开指定文档 doc.SaveAs(r＂d:\2011专业考试计划.doc＂) # 文档保存 doc.Close(-1) # 保存后关闭，doc.Close（)或doc.Close(0)直接关闭不保存 2、 页面设置 doc.PageSetup.PaperSize = 7 # 纸张大小， A3=6, A4=7 doc.PageSetup.PageWidth = 21*28.35 # 直接设置纸张大小， 使用该设置后PaperSize设置取消 doc.PageSetup.PageHeight = 29.7*28.35 # 直接设置纸张大小 doc.PageSetup.Orientation = 1 # 页面方向， 竖直=0， 水平=1 doc.PageSetup.TopMargin = 3*28.35 # 页边距上=3cm,1cm=28.35pt doc.PageSetup.BottomMargin = 3*28.35 # 页边距下=3cm doc.PageSetup.LeftMargin = 2.5*28.35 # 页边距左=2.5cm doc.PageSetup.RightMargin = 2.5*28.35 # 页边距右=2.5cm doc.PageSetup.TextColumns.SetCount(2) # 设置页面分栏=2 3、 格式设置 sel = WordApp.Selection # 获取Selection对象 sel.InsertBreak(8) # 插入分栏符=8， 分页符=7 sel.Font.Name = ＂黑体＂ # 字体 sel.Font.Size = 24 # 字大 sel.Font.Bold = True # 粗体 sel.Font.Italic = True # 斜体 sel.Font.Underline = True # 下划线 sel.ParagraphFormat.LineSpacing = 2*12 # 设置行距，1行=12磅 sel.ParagraphFormat.Alignment = 1 # 段落对齐，0=左对齐，1=居中，2=右对齐 sel.TypeText(＂XXXX＂) # 插入文字 sel.TypeParagraph() # 插入空行 注：ParagraphFormat属性必须使用TypeParagraph（)之后才能二次生效

为什么每次打开word都要安装配置？

1、点“运行”，在运行对话框中输入：reg add HKCU\Software\Microsoft\Office\12.0\Word\Options /v NoReReg /t REG_DWORD /d 12、开始-》运行-》输入regedit-》打开注册列表，找到HKEY_LOCAL_MACHINE\SOFTWARE\Classes，右键—》权限—》高级，选下面第二张图中第二个选项CREATOR OWNER ，点编辑，在完全控制，允许那边打钩，确定，这时可能防火墙会跳出警告，点放过，重启，解决问题。

3、打开“我的电脑”——“C盘”——“Program Files\Common Files\Microsoft Shared\OFFICE12\Office Setup Controller”——找到一个“SETUP.EXE”的文件，对此文件重命名，随便改成什么名字都可以。

重装解决方法：1. 首先打开office的安装路径：C:\Program Files\Common Files\microsoft shared\OFFICE12\Office Setup Controller2. 注意：如果office安装在其它盘，请到相应路径下依次找到“Office Setup Controller”文件夹；3. 在该文件夹下，找到＂SETUP.EXE＂安装文件（有的电脑显示的是SETUP）,4. 将其改成＂SETUPa.EXE＂或其它文件名即可。

这样当word启动后就找不到这个安装文件了。

5. 更改之后，第一次打开word会出现短暂的安装提示，待第二次打开后就一切正常。

打开Office2007版Word时,老是出现一个“配置进度”的窗口说“正在...

展开全部 1. 通过重装Office以后解决此问题（太笨）2. 注册如若是Office 2003的对应问题，在运行对话框中输入：reg add HKCU\Software\Microsoft\Office\11.0\Word\Options /v NoReReg /t REG_DWORD /d 1回车即可若是Office 2007的对应问题，在运行对话框中输入：reg add HKCU\Software\Microsoft\Office\12.0\Word\Options /v NoReReg /t REG_DWORD /d 1回车即可3. 改文件，也最简单打开“我的电脑”——“C盘”——“Program Files\Common Files\Microsoft Shared\OFFICE12\Office Setup Controller”——找到一个“SETUP.EXE”的文件，对此文件重命名4. 改注册表开始-》运行-》输入regedit-》打开注册列表，找到HKEY_LOCAL_MACHINE\SOFTWARE\Classes，右键—》权限—》高级，选下面第二张图中第二个选项CREATOR OWNER ，点编辑，在完全控制，允许那边打钩！确定！（图中的选项值是我修改后的）这时可能防火墙会跳出警告，你点放过，重启，OK！解决问题！ 试试看...

如何在word里面编辑将A4纸分成对等的两页？

楼主可以直接写VBA，因为录制的宏其实也是VBA代码。

比如，下面这几个步骤可以批量修改文档中所有表格的字体/字号为12磅黑体。

1、键入Alt+F11打开VBA编辑器，选择菜单“插入-模块”；2、将下面代码粘贴进去：Sub BatchChangeTableStyle()Dim oTable As TableFor Each oTable In ActiveDocument.TablesoTable.Range.Font.Name = ＂黑体＂ ' 改变表格字体为“黑体”oTable.Range.Font.Size = 12 ' 改变表格字号为12磅NextSet oTable = NothingMsgBox ＂完成！＂End Sub可以根据需要修改上面代码中的字体和字号。

3、键入F5运行看到“完成！”结束；4、切换回Word窗口检查效果。

此外，我不太明白楼主说的“表格页边距”具体是什么意思？是说表格属性窗口里面那个“左缩进”还是其它什么属性？能补充说明一下吗？ ______补充：哦，抱歉原来我可能没有看仔细题目，楼主还有一个重要的要求是需要对“很多文档”批量处理。

下面的代码可以完成完整的需求。

注意需要把代码里面设置文件夹以及设置表格字体/字号和页面边距的那些地方根据你的实际情况修改一下。

Sub BatchChangeTableAndPageMargins()On Error Resume NextConst strRootPath = ＂D:\Temp\Docs\Tables＂ ' 存放所有需要调整的文件的目录Dim arrDocFiles As New CollectionDim fso, oFolder, oFileDim oDoc As DocumentDim oTable As TableSet fso = CreateObject(＂Scripting.FileSystemObject＂)Set oFolder = fso.GetFolder(strRootPath)For Each oFile In oFolder.FilesSet oDoc = Documents.Open(oFile.Path)oDoc.PageSetup.TopMargin = CentimetersToPoints(3) ' 天头oDoc.PageSetup.BottomMargin = CentimetersToPoints(2.8) ' 地脚oDoc.PageSetup.LeftMargin = CentimetersToPoints(2.5) ' 切口oDoc.PageSetup.RightMargin = CentimetersToPoints(2) ' 订口For Each oTable In oDoc.TablesoTable.Range.Font.Name = ＂黑体＂ ' 改变表格字体为“黑体”oTable.Range.Font.Size = 12 ' 改变表格字号为12磅NextoDoc.Close TrueNextSet oTable = NothingSet oDoc = NothingMsgBox ＂完成！＂End Sub

一打开word就the setup controller has encountered ...这个对话框 什么情...

展开全部 office安装控制器出错。

office安装控制器用来管理安装相关的工作，确保安装源存在并完整，比如发现你的序列号不对让你重新输入。

确认每个计算机已经准备妥善，安装引擎开始安装、配置相关选项。

可以直接删除Office Setup Controller目录，不影响OFFICE工作： office 2010对应目录 C:\Program Files\Common Files\Microsoft Shared\OFFICE12\Office Setup Controller office 2007对应目录C:\Program Files\Common Files\Microsoft Shared\OFFICE12\Office Setup Controller office 2000对应目录C:\Program Files\Common Files\Microsoft Shared\OFFICE11\Office Setup Controller 扩展资料： 微软对于Office Setup Controller目录的官方说明： The Office Setup Controller manages the overall 2007 Office system installation experience. It is responsible for making sure that the local installation source is present and complete. After verifying that each computer has been properly prepared。

the Setup engine installs and configures the chosen programs.Changes are made to both the file system and the registry by using the underlying Windows Installer technology, which helps ensure maximum compatibility and robustness for all users. 所以重命名/删除Office Setup Controller目录不会影响OFFICE系列软件的工作。

参考资料： 北方网IT-打开Office文档时问题及解决

代码判断word是否为横版

这个只能在IE上用，使用jscript。

var WordApp=new ActiveXObject(＂Word.Application＂); var wdCharacter=1 var wdOrientLandscape = 1 WordApp.Application.Visible=true; var myDoc=WordApp.Documents.Add(); WordApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape WordApp. Selection.ParagraphFormat.Alignment=1 //1居中对齐，0为居右 WordApp. Selection.Font.Bold=true WordApp. Selection.Font.Size=20 WordApp. Selection.TypeText（＂我的标题＂）； WordApp. Selection.MoveRight(wdCharacter)； //光标右移字符 WordApp.Selection.TypeParagraph（) //插入段落 相当于br WordApp. Selection.Font.Size=12 WordApp. Selection.TypeText（＂副标题＂）； //分行插入日期 WordApp.Selection.TypeParagraph（) //插入段落 var myTable=myDoc.Tables.Add (WordApp.Selection.Range, 8,7) //8行7列的表格 var aa = ＂我的列标题＂ for (i= 0;i<7;i++) { with (myTable.Cell(1,i+1).Range) { font.Size = 12; InsertAfter(aa); ColumnWidth =4; ParagraphFormat.Alignment =1； //设置对齐方式 水平对齐 } } for (i =0;i<7;i++) { for (n =0;n<7 ;n++) { with (myTable.Cell(i+2,n+1).Range) { font.Size = 12; InsertAfter(＂bbbb＂); ParagraphFormat.Alignment =1； //设置对齐方式 水平对齐 } } } myDoc .saveAs(＂d:\\gc.doc＂)； //保存word

转载请注明出处51数据库 » word pagesetup.first