精华内容
下载资源
问答
  • word设置每页50

    万次阅读 2018-05-21 13:05:37
    Step1:边距->自定义边距Step2:版式->行号->勾选添加行号Step3:在步骤2中即可显示行号了。再在步骤2 所在页面选择文档网络-&...Step6:选择只指定网络,行数改50即可。...

    Step1:页边距->自定义边距

    Step2:版式->行号->勾选添加行号


    Step3:在步骤2中即可显示行号了。再在步骤2 所在页面选择文档网络->字体设置。


    Step4:修改字号为小五号,点击确定。


    Step6:选择只指定行网络,行数改为50即可。


    展开全文
  • 要将word文档每页单独保存一个word文档,首先需要能够逐页遍历word文档。 逐页遍历word文档可以使用word的定位功能。 代码如下: Sub SplitToOnePage() Const wdNumberOfPagesInDocument = 4 Const ...

     要将word文档的每页单独保存为一个word文档,首先需要能够逐页遍历word文档。

    逐页遍历word文档可以使用word的定位功能。

    代码如下:

    Sub SplitToOnePage()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    =====================================
    可以保存任何内容
    
    Option Explicit
    
    Sub SplitPagesAsDocuments()
    	Dim oSrcDoc As Document
    	Dim oNewDoc As Document
    	Dim strSrcName As String
    	Dim strNewName As String
    	Dim oRange As Range
    	Dim nIndex As Integer
    	Dim fso As Object
    	Set fso     = CreateObject("Scripting.FileSystemObject")
    	Set oSrcDoc = ActiveDocument
    	Set oRange  = oSrcDoc.Content
    	oRange.Collapse wdCollapseStart
    	oRange.Select
    
    	For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    		oSrcDoc.Bookmarks("\page").Range.Copy
    		oSrcDoc.Windows(1).Activate
    		Application.Browser.Target = wdBrowsePage
    	Application.Browser.Next
    
    	strSrcName                  = oSrcDoc.FullName
    	strNewName                  = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
    	fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
    	Set oNewDoc                 = Documents.Add
    	Selection.Paste
    	oNewDoc.SaveAs strNewName
    	oNewDoc.Close False
    Next
    
    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing
    MsgBox "结束!"
    End Sub
    ==========================================
    可以保存任何内容
    
    Sub QQ1722187970()
        Const wdNumberOfPagesInDocument = 4
        Const wdGoToPage = 1
        Const wdGoToAbsolute = 1
        Dim oDoc As Document
        Dim oRng As Range
        Dim oDocTemp As Document
        Set oDoc = Word.ActiveDocument
        Dim sPath As String
        sPath = Word.ActiveDocument.Path
        Dim iPageNo As Long
        '获取总页数
        With oDoc
        iPageNo = .Range.Information(wdNumberOfPagesInDocument)
            For I = 1 To iPageNo
                '定位到页开始
                Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
                oRng.Select
                '定位整个页面区域
                oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
                oRng.Copy
                Set oDocTemp = Word.Documents.Add
                With oDocTemp.Application.Selection
                    .Paste
                End With
                oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
                oDocTemp.Close
            Next I
        End With
    End Sub
    ===========================================
    只能保存文字 
    Option Explicit
    
    Sub SaveParagraph()
    	Dim i As Integer
    	Dim PageNo As Integer
    	Dim aDoc As Document
    	Dim myDoc As Document
    	Dim sPage As String
    	Set myDoc              = ThisDocument
    	'文档视图设定为页面方式
    	ActiveWindow.View.Type = wdPageView
    	myDoc.Repaginate
    	'获得文档页数并赋值给变量 PageNo
    	PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)
    
    	For i = 1 To PageNo
    		myDoc.Activate
    		' 光标移动到文档某一页的开始
    		Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Name: = i
    		' 全选文档某一页的所有内容
    		Selection.EndKey Unit: = wdStory, Extend: = wdExtend
    		sPage = Selection.Text
    		'保存到一个文件中
    		Set aDoc = Documents.Add
    		aDoc.Content.Text = sPage
    		aDoc.SaveAs FileName: = "c:\" & CInt(i) & ".doc"
    		aDoc.Close
    	Next
    
    End Sub
    

    word中怎样把不同颜色的下划线文字变成对应的颜色

    展开全文
  • 具体操作步骤: 我的是WPS,不过操作步骤应该都一样。 1,设置出现行号 举例子:【未成功】 ...可能行号会不足50。...接下来设置每显示50。 2,设置每显示50 成功: 结束。 ...

    具体操作步骤:

    我的是WPS,不过操作步骤应该都一样。

    1,设置出现行号

    举例子:【未成功】

     

    可能行号会不足50行。这是因为上下页边距的问题。

    接下来设置每一页显示50行。

    2,设置每一页显示50行

    成功:

    结束。

     

     

     

     

    展开全文
  • 问:我在Word中制作了一张超长...Word文档长表格每页自动添加表头 图1  答:Word的重复标题只对表格内文字有效,对表头是无效的。Word中的表格在设置重复标题后,有一个有趣的特点,那就是当表格上方没有




     
      问:我在Word中制作了一张超长表格,为了让每一页表格都能有表头和标题行,我设置了重复标题行。但是出现的只有标题行,而总标题、单位、日期等表头部分却没能出现。请问要怎么做才能让每页自动添加表头(图1)?

    为Word文档长表格每页自动添加表头
    图1

      答:Word的重复标题行只对表格内文字有效,对表头是无效的。Word中的表格在设置重复标题行后,有一个有趣的特点,那就是当表格上方没有任何文字或空行时,出现在标题行及以上区域的图片、文本框就会重复出现在每一页的相同位置。利用这点即可轻松让表头出现在每一页。

      在Word 2010中载入表格,切换到“页面布局”选项卡,单击“页边距”,选择最下面的“自定义边距”,在弹出的窗口中将“页边距”中“上”的值设置为5厘米(图2),操作的目的是给表头预留空白空间。

    为Word文档长表格每页自动添加表头
    图2

      接着选中表头部分的全部内容进行剪切,剪切后表格上面一般会保留一个空行,按Delete键删除空行以确保表格上没有任何文字。然后切换“插入”选项卡,单击“文本框”,选择“绘制文本框”,拖动鼠标画出一个文本框,把剪切的表头粘贴到文本框中,再选中文本框从“格式”选项卡中设置形状填充为“无填充颜色”,形状轮廓为“无轮廓”。最后调整好文本框的大小,并拖动到标题行上的表头位置即可。

      现在,只要在表格首行的标题行左侧单击一下,在选中标题行时就会同时选中表头(图3),再切换到“表格工具”的“布局”选项卡,单击“重复标题行”即可让表头和标题行一起出现在每一页了。

    为Word文档长表格每页自动添加表头
    图3

      注意:操作中务必注意在表格标题行以上区域,除文本框外不能有其他的文字或空行,否则表头将无法重复出现。除文本框外添加图形、图片等都是可以的。
    展开全文
  • 两篇word文档行间距设置的一样但是显示的不一样的解决方法
  • WPS页眉页脚怎么设置每页不同

    万次阅读 2018-03-12 17:06:54
    WPS页眉页脚怎么设置每页不同?  把鼠标定位到第一页文档的最后,选择“页面布局”——“分隔符”——“连续分节符”然后选中下一页的页眉页脚,单击“同前节”这时再修改此页的页眉页脚就和前一页不一样了
  • Word文档默认设置每的页眉页脚内容都相同。然而在报告、书籍等排版中往往需要不同的页眉页脚来美化排版。本篇文章将分享如何使用C#和免费Word组件来实现该功能。
  • 把WORD文档每拆分成单独的文件

    万次阅读 2016-07-14 15:06:46
    Const nSteps = 200 ' 修改这里控制隔几分割一次 Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ...
  • 博客帮助文档

    万次阅读 多人点赞 2019-12-10 16:52:31
    博客积分规则 博客等级 C币规则(试运营) 博客VIP说明(试运营) 博客专家 如何成为博客专家 企业博客 如何开通企业博客 博客勋章 分类专栏 博客搬家 自定义百度统计 ...1、发布一篇...
  • 1、分节符的用处:经常需要对同一个文档中的不同部分采用不同的版面设置,例如:设置不同的页面方向、边距、页眉和页脚,或重新分栏排版等。这时,如果通过“文件”菜单中的“页面设置”来改变其设置,就会引起...
  • 使用 itext 导出 pdf 文件,一个简单的案例,涉及到:页眉、页脚、大表格、每页显示标题
  • C# 设置Excel打印选项及打印excel文档

    千次阅读 2016-05-18 17:13:38
    C# 设置Excel打印选项及打印excel文档打印Excel文档是一个很常见的操作,但有时候我们会碰到各种不同的打印需求,例如只打印一个Excel工作表的其中一部分,或打印时每页都有表头,或把工作表中超出1页所有内容打印到...
  • 1.页面布局--页面设置--显示页面设置对话框--文档网格--网格--无网格。 2.全选--右键段落--间距-行距--固定值--设置值--13--确定。 右键字体--中午字体--...3.一页为53左右。 13.5的宋体5号,一页为51。 ...
  • ie浏览器设置文档模式

    万次阅读 2018-01-12 13:34:41
    项目在IE浏览器中打开默认是Quirks模式,导致兼容性不太好 ...当然可以手动修改Internet Explorer8 以上模式,但我们不可能引导用户这样去做 可以在代码里通过设置DTD声明让浏览器决定用何种模式 将
  • 如下图所示,我想要封面和目录,摘要等等设置不同的页眉页脚(一般封面和目录不需要页脚)  而从正文开始,套用相同的页眉和以页数作为页脚(注意"第一章 绪论"不是这个文档的第一)  ...
  • 1.实现效果(左上角title变化) 2.核心代码: 这里主要是 meta 属性下面设置一个自定义的键值 title ... // 根据路由元信息设置文档标题 window.document.title = to.meta.title || admin next() }) 3.完整的...
  • Microsoft Office PowerPoint软件系统自带在一张纸上打印多幅幻灯片的功能,只要依次执行:文件 - 打印 - 在打印内容框中选择“讲义” - 在每页幻灯片数中选择适当的数字即可打印出如下图所示的一页多幅幻灯...
  • 页文档解释设置是如何工作以及有哪些设置。基础设置文件只是一个Python 模块,带有模块级别的变量。下面是一些示例设置:ALLOWED_HOSTS = ['www.example.com'] DEBUG = False DEFAULT_FROM_EMAIL = 'webmaster@...
  • 这是一种特殊要求的东西,它要求每页50程序,并要求前30页是程序的前半部分有开头并连续,后30页是程序的后半部分包括结尾也要连续,30和31页之间可以不连续。这个文档的格式,一般要求有页眉上标记申报的软件名称...
  • 在开发接口的时候,写接口文档已是一件不可忽视的事情,有了更新也要同步更新很麻烦。ASP.NET 创建的Web API项目可以自己配置接口文档的XML显示,这样接口更新和注释更新了重新发布就有了,确实方便不少,下来就介绍...
  • IIS下不能下载文件的docx文档,XLSX文档设置方法   Office 2007的的界面风格默认格式中都是。DOCX,XLSX,PPTX等等后缀,连结中包含此类文件时,界面风格默认什么打不开的其实只要在IIS中的MIME的类型中添加...
  • word文档设置页眉页脚的技巧

    万次阅读 2007-05-31 18:55:00
    word文档设置页眉页脚的技巧 分类:海阔天空在工作中经常遇到对文档的排版问题,现在我以一问一答形式进行解析,希望能对大家有帮助。也许在解答方面不够精准,但是能够达到目的;也许回答有些罗嗦,不过也是为了大家...
  • IText实现对PDF文档属性的基本设置

    千次阅读 2017-01-19 14:52:21
    IText创建PDF、添加水印、对PDF文档属性的设置、IText对加密PDF文档的破解,以及PDFBox对PDF文档是否加密的判断。
  • 在WORD文档的相同位置插入同一图片的宏代码如下: Sub InsPic() Dim pag As Integer For pag = 1 To Selection.Information(wdNumberOfPagesInDocument)  Selection.GoTo what:=wdGoToPage, Name:=...
  • 3、 首页或列表页面等需要指明标题的长度(最多多少个字),个列表的记录数,默认的排序规则等。 4、 表单验证,提示信息等有要求的可以在页面中标明,也可在专门的规则文档中说明。 5、 公共的头,尾...
  • 工作中,有时候碰到需要将一个比较大的word按照指定的页数分割成若干个小的word文档,下面提供分割的方法供参考: 一、按照单页拆分 1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“test.doc”); 2...
  • 3种可以拆分PDF文档页面的简单方法

    千次阅读 2020-07-22 16:50:07
    然后再弹出的页面窗口设置页面范围,因此这种方式只适用于一次连续页面的提取,或将整个文档拆分成单独的一个PDF。 方法2:在线拆分(手机使用) 首先打开浏览器搜索关键字speedpdf就能直接找到官网并打开,...
  • 使用word2010对文档不同页面设置不同的页眉和页码使用word2010对文档不同页面设置不同的页眉同一文档,上述页眉设置好之后设置页码 使用word2010对文档不同页面设置不同的页眉 假设首先需要在第5页设置页眉 ,则...
  • wps不想让读个文档显示多个标签,而是打开多个窗口,方便多个文档的比对工作? 不想要: 而是: 方法: 双击运行exe,然后打开相关文档即可。
  • 参与 Spring 4 中文文档翻译

    万次阅读 多人点赞 2016-01-03 11:43:31
    其中一部分原因是因为Spring 文档有1000多,而且翻译的时候根据章节分配,导致许多人一次要翻译2000~3000文档,致使效率过低。近日已经将文档按照一定的章节重新拆分,一个需要翻译的文件在20~200之间,...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 592,701
精华内容 237,080
关键字:

怎么设置文档每页为多少行