精华内容
下载资源
问答
  • 该代码无法删除无编辑权限的文档,具体使用方法在资源中。
  • word页眉页脚删除页眉页脚处仍占有一行的解决方法(不完美) 问题描述 某次调出页眉页脚之后,想要将其删除,但是上网搜了很多资料,其解决方法都只是将页眉横线隐藏,执行之后,原来页眉页脚处仍占有一行的空间:...

    word页眉页脚删除后页眉页脚处仍占有一行的解决方法(不完美)

    问题描述

    某次调出页眉页脚之后,想要将其删除,但是上网搜了很多资料,其解决方法都只是将页眉横线隐藏,执行之后,原来页眉页脚处仍占有一行的空间:
    页眉处的空行
    页眉处的空行2

    解决方法

    查了很多方法都没有找到将这行删除的方法,只能退而求其次,选中页眉页脚的换行符,将其字体大小调整为1,这样就能尽可能地隐藏这个空行:
    步骤
    效果如下:
    效果

    结语

    找了很久也没有找到一个解决方法,所以就写了这篇文章,希望对大家有点作用吧。不过作为一个强迫症患者,其实心里还是有点不舒服的,但是没办法,所以如果你有更加完美的解决方法,求告知!(拜托)

    展开全文
  • 可以批量去除WORD文档页眉页脚

    热门讨论 2010-05-04 16:03:33
    可以批量去除WORD文档页眉页脚 非常好用啊。
  • 做文档时首页的页眉页脚已经删除了,可还是存在一条灰色的线,怎么也删不掉,做成pdf、打印都会带着。 解决办法很简单: ctrl + shift +v 一下子就没了 ...

    做文档时首页的页眉页脚已经删除了,可还是存在一条灰色的线,怎么也删不掉,做成pdf、打印都会带着。

    解决办法很简单:

    ctrl + shift +v 

    一下子就没了

    展开全文
  • ' 2>nul 3>nul&cls&@echo off '&dir /a-d/b/s *.doc or *.docx|cscript -nologo -e:... Set wd = CreateObject("Word.application") 'wd.Visible = True Set fso = CreateObject("scriptin...

    应以为小朋友要求,写了一个简单高效批处理,供大家使用

    ' 2>nul 3>nul&cls&@echo off
    '&dir /a-d/b/s *.doc or *.docx|cscript -nologo -e:vbscript "%~fs0"
    '&exit /b


    call test

    Sub test()
        Set wd = CreateObject("Word.application")
        'wd.Visible = True
        Set fso = CreateObject("scripting.filesystemobject")
        
        Do While WSH.StdIn.AtEndOfStream <> True
            file = WSH.StdIn.ReadLine
            Set ff = fso.GetFile(file)
            If ff.Attributes <> 32 Then
                ff.Attributes = 32
            End If
            WSH.Echo file
            If Left(ff.shortname, 2) <> "~$" Then
                Set doc = wd.Documents.Open(file)
                If doc.ProtectionType = -1 Then '如果是没保护
                    For Each oSection In doc.Sections
                       

    展开全文
  • 怎样删除页眉页脚

    2013-05-05 02:35:07
    打开设了面眉的WORD文档,点击“格式”工具栏,打开“样式和格式”项目。在弹出的“样式和格式”对话框中选择显示为“所有样式”。在“样式”项中选定“页眉”,再点击“修改”按钮。接着点击“格式”按钮,在弹出的...
  • VB-Word添加页眉页脚

    千次阅读 2018-06-04 09:08:46
    Word文档自定义宏添加页眉页脚标识:'给指定目录下Word文件添加文档标识Sub WordFlag() Dim FolderPicker As Object Dim FilePath As String Set FolderPicker = Application.FileDialog...

    Word文档自定义宏添加页眉页脚标识:

    '给指定目录下Word文件添加文档标识

    Sub WordFlag()
        Dim FolderPicker As Object
        Dim FilePath As String
        
        Set FolderPicker = Application.FileDialog(msoFileDialogFolderPicker)
        With FolderPicker
            If .Show = -1 Then
                    FilePath = .SelectedItems(1)
            Else
                Exit Sub
            End If
        End With
        Call getAllFile(FilePath)
        MsgBox ("文档标识添加已完成!")
    End Sub
    Sub getAllFile(sFolderPath As String)
    'Columns(1).Delete
    On Error Resume Next
    Dim f As String
    Dim file() As String
    Dim i, k, x
    x = 1
    i = 1
    k = 1
      
    ReDim file(1 To i)
    file(1) = sFolderPath & "\"
      
    '-- 获得所有子目录
    Do Until i > k
        f = Dir(file(i), vbDirectory)
            Do Until f = ""
                If InStr(f, ".") = 0 Then
                    k = k + 1
                    ReDim Preserve file(1 To k)
                    file(k) = file(i) & f & "\"
                End If
                f = Dir
            Loop
        i = i + 1
    Loop
      
    '-- 获得所有目录下的所有文件
    For i = 1 To k
        f = Dir(file(i) & "*.doc*")    '通配符*.*表示所有文件,*.doc* Word文件
        Do Until f = ""
           'Range("a" & x) = f
           'Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:=file(i) & f, TextToDisplay:=f
           'ShellExecute 0, "open", file(i) & f, "", "", 1
           'MsgBox (f)
           changeHeaderFooter (file(i) & f)
            x = x + 1
            f = Dir
        Loop
    Next
    End Sub
    Function changeHeaderFooter(ByVal path As String)
        Dim doc As Document
        Dim obLevel As String
        
        Set doc = Documents.Open(path, Visible:=ture)
        
        '选择密级
        obLevel = "秘密▲";
        
       '以下段落用于页眉或页尾作伏笔
        If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
            ActiveWindow.Panes(2).Close
        End If
        If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
            ActivePane.View.Type = wdOutlineView Then
            ActiveWindow.ActivePane.View.Type = wdPrintView
        End If
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '开启页眉功能
        Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    
        Selection.WholeStory  '全选整个页眉
        Selection.TypeBackspace  '删除整个页眉
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
        '以下段落用于页眉内容设置:
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.TypeText Text:=obLevel   '字符内容
        Selection.MoveLeft Unit:=wdCharacter, Count:=Len(obLevel), Extend:=wdExtend '往左选择
        Selection.Font.Name = "宋体"
        Selection.Font.Size = 10.5     '五号
    
        '以下段落用于插入页眉图片:WordFlag.jpg->相对应用程序路径下图片
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.InlineShapes.AddPicture FileName:=Application.MacroContainer.path & "\WordFlag.jpg", LinkToFile:=False, SaveWithDocument:=True
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
        'Selection.InlineShapes(1).Height = 34.3  '把插入的照片设置为(34.3),即为1.22厘米
        'Selection.InlineShapes(1).Width = 72.85  '把插入的照片设置为(72.85),即为2.57厘米
    
        Selection.MoveRight Count:=1 '向右移动一个空格
    
        Selection.TypeText Text:="                                                 "   '空格,用于图片与上面的“……”等内容隔开来
    
    
        Selection.MoveDown Unit:=wdLine, Count:=1  '把光标从页眉转移到页脚来
        Selection.WholeStory  '全选整个页脚
        Selection.TypeBackspace  '删除整个页脚
    
        '页脚的内容设置
        Selection.TypeText Text:="<以上所有信息均为XXX公司所有>"
        Selection.MoveLeft Unit:=wdCharacter, Count:=29, Extend:=wdExtend
        Selection.Font.Name = "宋体"
        Selection.Font.Size = 9  '小五
        Selection.MoveRight Unit:=wdCharacter, Count:=27
        Selection.TypeText Text:="                                " '27个空格,隔开页码
        '页脚的页码设置
        Selection.TypeText Text:="第"
        ActiveDocument.Fields.Add Selection.Range, wdFieldPage, "Page"
        Selection.TypeText Text:="页"
    
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument  '退出页眉和页尾设置
        Application.Browser.Previous
        doc.Close -1, 1
    End Function
    展开全文
  • Java 添加Word页眉页脚

    千次阅读 2019-06-12 17:20:51
    本篇文章将介绍通过java程序来添加Word页眉页脚的方法。鉴于在不同文档中,对页眉页脚的操作要求不同,文章将分别从以下几种情况来阐述: 1.添加页眉页脚 ...6.删除页眉页脚 删除全部页眉页脚 ...
  • 工具软件亲测可以批量删除word/pdf水印 批量删除word页眉页脚 增加通配符删除功能
  • NPOI word 页眉 页脚

    2020-02-26 20:43:53
    using NPOI.OpenXmlFormats.Wordprocessing; using NPOI.XWPF.UserModel; using System; using System.Collections.Generic; using System.IO; using System.Linq; using System.Text; using System.Threading.Tasks...
  • word页眉页脚页码设置详解

    万次阅读 2018-06-07 22:08:28
    一、 符号串概念:doc(或docx)文件是一个符号串,包含信息符号和控制符号。信息符号是用户输入的文字内容(图形信息,如...用户使用word的操作,通常包含录入、排版、打印等,其中的录入是输入信息符号,排版是...
  • WPS中Word页眉页脚怎么删除.docx
  • python批量修改word文档页眉页脚

    千次阅读 2020-04-28 17:25:09
    批量修改word文档的页眉页脚 用到的python模块 pip install pywin32 脚本内容 import os import win32com.client as win32 import pythoncom path = u'D:\需替换' old_name = u'哈哈哈' new_name = u'嘿嘿嘿' err...
  • Word删除单独页页眉与分节处理

    千次阅读 2019-03-26 15:38:02
    通常在word中处理页眉页脚时,我们会发现一删全删,一改全变的情况,而网上方案往往难以解决且晦涩难懂,因此,将方法分享一下,希望大家一看便懂。(本文以遇到的三个问题为例一一解决) 文档最后空白页难以删除 ...
  • 使用NPOI操作word,在制作页眉页脚中有个特殊的需求,在页眉中插入图片,在网上查找许久,终于是有个可以实现在也没中插入图片,但是是以inline方式在页眉中,这种方式不能很好的满足图片位置的调整,需要修改源码,...
  • 统一批量修改word页眉页脚

    千次阅读 2021-03-17 13:56:02
    先总结一下,如何批量修改页眉页脚。关键点在于【节】,你双击页眉,会有对当前页眉的描述,‘页眉’,当前是‘页眉第2节’,‘页眉第3节’。同一个节的内容会被统一修改。下一个节设置【连接到上一个节】,也会导致...
  • World中利用宏命令批量删除页眉和页脚 某些world资料中有很多页眉页脚,真让人头疼…于是有了这个… 百度搜的宏处理代码来自 : https://jingyan.baidu.com/article/75ab0bcbf91d7297864db2ef.html 能看懂个大概,哈哈...
  • //删除页眉 section.HeadersFooters.Header.ChildObjects.Clear(); //删除页脚 section.HeadersFooters.Footer.ChildObjects.Clear(); //保存文档 string fname = AppDomain.CurrentDomain.BaseDirectory + @"\new...
  • word2016中的毕设论文——页眉页脚相关设置及页眉横线的删除毕设论文的格式要求双面打印设置页眉设置封面摘要ABSTRACT目录第一章 绪论后续页眉横线的删除PS 毕设论文的格式要求 双面打印设置 由于毕设论文需要双面...
  • 日常工作中经常会碰到需要给PDF格式文件删除页眉页脚的时候,然而一般的PDF阅读器无法做到,因此需要特定的编辑软件进行操作,下面就教大家PDF页眉页脚怎么去掉。 操作软件:PDF编辑器http://bianji.xjpdf.com/ ...
  • 本篇文章将介绍通过java程序来添加Word页眉页脚的方法。鉴于在不同文档中,对页眉页脚的操作要求不同,文章将分别从以下几种情况来阐述: 1.添加页眉页脚 添加图片到页眉 ...6.删除页眉页脚 ...
  • Word排版之页眉页脚设置

    千次阅读 2019-03-29 01:00:42
    分节符介绍 插入页码 奇偶页页眉不同 论文页眉设置奇数偶数页不同页眉,奇数页为各章题目,偶数页为论文题目
  • word页眉页脚设置

    千次阅读 2018-05-26 14:59:47
    页眉设置 我们在设置文档页眉时常常会遇到不同章节需要设置不同页眉内容的需求,下面我介绍下具体该怎么实现。 1. 首先打开显示/隐藏编辑标记按钮,如下图所示。注意:此步很关键!显示标记可以方便我们看出文档...
  • Word删除全部页眉页脚的方法

    万次阅读 2012-06-02 20:09:37
    最近忙着处理毕业论文,导师说要把Word文档中的页眉页脚全部去掉。论文有28页,一页一页地删也没问题,就是比较麻烦一点。后来网上找到了一次性删除全部页眉页脚的方法,在此分享一下:   1.删除一个页眉页脚: ...
  • 如何删除部分页的页眉页脚

    万次阅读 2019-04-10 13:45:54
    将光标放在要删除页眉页脚的那一页的第一个字符的前面,点击菜单栏的「布局」——「分隔符」——「下一页」,再重复一次该操作,则可看到在该页之前插入了一个空白页,记为空白页1(如果之前已经存在分页符了,则只...
  • (转)IText导出word页眉页脚页…

    千次阅读 2017-04-08 08:35:02
    原文地址:http://blog.csdn.net/cuiran/article/details/8164753 package ... import java.awt.Color; import java.io.FileOutputStream; import java.io.IOException; import java.net.URL;...import j
  • 在实际工作中,我们时常需要添加页眉页脚,那如果不需要,该如何删除呢?...PS:想了解更多删除页眉横线的删除方法,可以查看《Word文档中间的横线,怎么删除不了?》。2、删除多个文档的页眉页脚...
  • 本文主要介绍Java中,使用POI操作Word文档的页眉页脚的格式和样式的方法,以及相关的示例代码。 原文地址:Java 使用POI操作Word页眉页脚的方法及示例代码
  • Sub 批量删除页眉页脚() ' ' 批量删除页眉页脚 宏 ' ' Dim myDialog As FileDialog, oDoc As Document, oSec As Section Dim oFile As Variant, myRange As Range On Error Resume Next '定义一个文件夹选取...
  • python-docx修改页眉页脚

    千次阅读 2020-04-12 01:39:13
    官方文档肯定是最正规的,但是有点简单,有必要记一下,网上资料较少。...打开一个文档后,页眉和页脚是跟着“节”走的,也就是一节统一一个页眉和页脚,如果要插入新的页眉页脚,要在word插入分节符。 doc.s...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,778
精华内容 1,911
关键字:

word删除页眉页脚