word 设置

原创 2007年09月26日 14:31:00
Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set se1 = WordApp.Selection

      
With doc.PageSetup
            .LineNumbering.Active 
= False
            .Orientation 
= wdOrientLandscape
            .TopMargin 
= CentimetersToPoints(2)
            .BottomMargin 
= CentimetersToPoints(2)
            .LeftMargin 
= CentimetersToPoints(2)
            .RightMargin 
= CentimetersToPoints(2)
            .Gutter 
= CentimetersToPoints(0)
            .HeaderDistance 
= CentimetersToPoints(1.5)
            .FooterDistance 
= CentimetersToPoints(1.75)
            .PageWidth 
= CentimetersToPoints(29.7)
            .PageHeight 
= CentimetersToPoints(21)
            .FirstPageTray 
= wdPrinterDefaultBin
            .OtherPagesTray 
= wdPrinterDefaultBin
            .SectionStart 
= wdSectionNewPage
            .OddAndEvenPagesHeaderFooter 
= False
            .DifferentFirstPageHeaderFooter 
= False
            .VerticalAlignment 
= wdAlignVerticalTop
            .SuppressEndnotes 
= False
            .MirrorMargins 
= False
            .TwoPagesOnOne 
= False
            .GutterPos 
= wdGutterPosLeft
            .LayoutMode 
= wdLayoutModeLineGrid
        
End With

 字体:
 wordApp.Selection.Font.Size 
= 9

'表格:
'
本例只简单地设置了表格居中、自动调整表格列宽、表头居中、标题行重复、设置表格边框线、设置表格纵向居中 
Temp_Table.Rows.Alignment = wdAlignRowCenter 
Temp_Table.AutoFitBehavior wdAutoFitContent 
Temp_Table.Rows(
1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter 
Temp_Table.Rows(
1).Range.Rows.HeadingFormat = wdToggle 
Temp_Table.Borders(wdBorderLeft).LineWidth 
= wdLineWidth150pt 
Temp_Table.Borders(wdBorderRight).LineWidth 
= wdLineWidth150pt 
Temp_Table.Borders(wdBorderTop).LineWidth 
= wdLineWidth150pt 
Temp_Table.Borders(wdBorderBottom).LineWidth 
= wdLineWidth150pt 
Temp_Table.Range.Cells.VerticalAlignment 
= wdCellAlignVerticalCenter 


'调用word打开word文档:

 
Dim wordApp As New Word.Application
            
Dim myDoc As Word.Document
            wordApp 
= CreateObject("Word.Application")

            
With wordApp
                .Visible 
= True
                .Documents.Open(strPath)
            
End With

            
''释放变量 
            'wordApp.DisplayAlerts = False
            'wordApp.Quit()
            'myDoc = Nothing
            'GC.Collect() '强制垃圾回收
           'System.Runtime.InteropServices.Marshal.ReleaseC

'在表格里插入图片:
  oTable.Rows(1).Cells(1).Range.InlineShapes.AddPicture("c: est.jpg")
 

相关文章推荐

word论文页码的设置(封面无编号、目录罗马数字和正文阿拉伯数字)

一般论文前面的几页是封面之类的,是不需要页码的。比如论文的前面3页是姓名、导师、课题等信息,而第4页是摘要,第5页是目录。 论文格式要求: 1、前面3也不添加页码; 2、第4页和第5页的摘要页码...
  • ljp1919
  • ljp1919
  • 2014年12月28日 15:58
  • 38294

word2007无法使用宏的解决方法-设置宏与安装VBA组件

word2007无法使用宏的解决方法汇总,包括宏设置和安装VBA组件
  • iracer
  • iracer
  • 2015年12月11日 21:16
  • 2865

word中设置标题自动编号

Word中标题设置好了,怎么添加编号呢,如果文档比较多的,手动一个个添加是比较费时费事的,小青灿,分享下Word中怎么设置标题的自动编号。 工具/原料 ...
  • mws1108
  • mws1108
  • 2017年06月02日 08:56
  • 209

word中让人抓狂的自动编号设置方法备忘

在word 2007中使用自动编号,一级编号是1. 2. 3.,二级编号是1.1, 1.2, 1.3,在2.之后本来应该是2.1,但总是自动编成1.1。这个问题记得我毕设的时候就遇到过了,今天又遇到一...
  • viggin
  • viggin
  • 2011年04月20日 12:34
  • 9963

C#打印Word 图表的一些属性设置

最近项目研究打印Word图表的问题,网上这方面资料挺少的,很多关于打印Word表格的,图表方面的资料挺少,MSND上也没有具体的资料,有几个demo,但都是很浅显的应用。其实我想找的是word图表各项...

WORD文档中划线的设置方法

在WORD里修改文件时,中划线可表示删除,很有用 1、使用”格式”菜单中的”字体”命令里效果项的”删除线”在WORD里修改文件时,中划线可表示删除,很有用,使用不熟练的朋友可能一时很难找到,其实设置...

“Word文件设置了多级列表,却还是不能创建目录”的解决办法

在编辑Word文件时,尽管设置了多级列表,但还是不能成功添加目录。一个主要的问题是, 系统读到的各个列表的大纲级别都是“正文文本”,那么我们做法是:如下图,首先将光标置于需要添加至目录的标题处,然后...

【不为人知的Word文档分节符设置】

分节符是指为表示节的结尾插入的标记。分节符包含节的格式xp系统下载设置元素,如页边距、页面的方向、页眉和页脚,以及页码的顺序。   您可以使用分节符改变文档中一个或多个页面的版式或格式。系统吧举例如...

word 2013如何从第三页开始设置页码

Word2013从第三页开始作为首页设置页码的方法。

Word 如何设置图片编号

本短文,主要介绍Word的题注和交叉引用功能,本文以Office 2010为例,其他版本大同小异。(转载请注明出处)   大家在写论文或者各种报告时,肯定会插入图片,如果图片数量很多,遇到下列...
  • mazq024
  • mazq024
  • 2011年12月20日 00:14
  • 2546
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:word 设置
举报原因:
原因补充:

(最多只允许输入30个字)