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中设置多级标题

最近在写论文,需要用到如下格式的标题 第一章 1.1 xxx 1.1.1 xxx 1.1.1.1 xxx 1.1.1.2 xxx 1.1.2 xxx 1...
  • tina_ttl
  • tina_ttl
  • 2016年10月11日 21:34
  • 2503

Word2010中如何设置多级编号 把默认标题的样式设置为带有多级编号

Word2010中如何设置多级编号 把默认标题的样式设置为带有多级编号_爱玩_新浪博客  http://blog.sina.com.cn/s/blog_63f0486b01016ji9.html...
  • suifengpiao_2011
  • suifengpiao_2011
  • 2016年05月27日 16:39
  • 3090

poi操作word,能控制字体和颜色

转帖、摘自:http://topic.csdn.net/u/20081211/15/64547f4c-6fc8-4a20-8131-ba18d7e7b902.html  1 ,new doc :C:/...
  • Mirage520
  • Mirage520
  • 2010年05月25日 00:17
  • 3502

word2010设置多级别标题

 Word是我最长使用的办公软件,如何快速高效的为word设置多级别标题就显得非常重要。 今天仔细找了为标题样式设置多级别编号的相关技巧。 操作关键点: 1.为大纲设置多级...
  • happymatilian
  • happymatilian
  • 2017年01月11日 18:04
  • 751

设置navigationbar的标题样式和背景颜色

NSDictionary *attributes=[NSDictionary dictionaryWithObjectsAndKeys:[UIColor whiteColor],NSForegroun...
  • sinat_28585351
  • sinat_28585351
  • 2016年01月22日 11:56
  • 277

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

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

word中如何设置多级编号,只要两步搞定

最近写文档比较多,总是对设置多级编号有些头疼,找帮助也没有得到更好的信息。 今天无意中发现一个小窍门,跟大家分享一下。 首先,设置第一个多级编号,这个相对比较简单,可以写3个标题(我的习惯),然后右键...
  • hehuii
  • hehuii
  • 2010年06月23日 11:00
  • 14657

word中的页码设置和分页、分节问题

如何查看word页码中的所有格式标记: 1、点击word的开始菜单。 2、在开始菜单中,点击右下角的word选项。 3、在word选项中,点击显示选项。 4、在现实选项中,点击显示所有格式标...
  • masterShaw
  • masterShaw
  • 2016年05月27日 14:37
  • 2234

POI导出word设置页面大小及边距

/** ==========文档创建====开始======== */ CustomXWPFDocument docx = new CustomXWPFDocument(); // 设置页面大小间距 ...
  • wujie_cnhn123456
  • wujie_cnhn123456
  • 2017年06月23日 11:38
  • 1415

Mac OS X 下 word 的快捷键如何修改

一般可以通过 “键盘” -> “应用快捷键” 来设置App对应的快捷键。 但是试了一下 word 是灰的,无法选择,所以这个不行。 修改方法是: 直接打开 word,在 “工具” -> ...
  • robertsong2004
  • robertsong2004
  • 2016年12月18日 16:15
  • 2220
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:word 设置
举报原因:
原因补充:

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