批量删除Word文档内，所有页眉页脚上的文本框及框内的文字

相见是缘8

413191246se 发表于 2021-10-29 01:03
相见，请再试试：

老师好！

好像还是不成，删后见附件第4页、11页，还有横线。

相见是缘8

413191246se 发表于 2021-10-29 00:46
相见，必须在 VBE 中按 F8 一步一步地逐步运行此宏，才能选中，在 Word 界面是不能选中的。

老师好！
这样操作就看不见哪！

413191246se

* 相见，你要对文本框做什么呢？（可以让文档窗口和VBE窗口各一半，这样就看到了！）
* 执行我 10 楼代码后，再执行下面的代码即可（你所看到的横线，不是页眉的，只是几个制表符而已，替换为无就好了！）：
Sub aaaa_del_tab()
    ActiveDocument.Content.Find.Execute "^t", , , 0, , , , , , "", 2
    ActiveDocument.Content.Find.Execute " ^p", , , 0, , , , , , "^p", 2
End Sub

相见是缘8

413191246se 发表于 2021-10-29 20:07
* 相见，你要对文本框做什么呢？（可以让文档窗口和VBE窗口各一半，这样就看到了！）
* 执行我 10 楼代码 ...

老师好！
找到文本框后，好逐个查看或处理！

相见是缘8

413191246se 发表于 2021-10-29 20:07
* 相见，你要对文本框做什么呢？（可以让文档窗口和VBE窗口各一半，这样就看到了！）
* 执行我 10 楼代码 ...

老师好！

执行你 10 楼的代码后，再执行你 13 楼的代码，只是删除了图片中蓝色箭头所指的横线，图片中红色箭头所指的眉页上的横线还在。

413191246se

相见，我10楼代码，在我 Word 2019 中测试没有问题！页眉没有横线（原来的文本框被删除了！）。
不知你那里为什么会有问题。。。

相见是缘8

413191246se 发表于 2021-10-30 23:15
相见，我10楼代码，在我 Word 2019 中测试没有问题！页眉没有横线（原来的文本框被删除了！）。
不知你那 ...

老师好！
那可能是版本的原因，我是用公司 2003 版本的电脑测试多遍删不掉！

jiangxiaoyun

相见是缘8 发表于 2021-10-31 06:09
老师好！
那可能是版本的原因，我是用公司 2003 版本的电脑测试多遍删不掉！

你按照我给图片那个方法，录制个宏执行试试呗。虽然很长，但能用就行。至少我这边16版的能用

相见是缘8

jiangxiaoyun 发表于 2021-11-1 13:36
你按照我给图片那个方法，录制个宏执行试试呗。虽然很长，但能用就行。至少我这边16版的能用

老师好！

按你所教方法录制了一个宏，运行提示如图1，不知什么原因？

Sub Macro1()

' Macro1 Macro

' 宏在 2021-11-2 由 Windows用户 录制

    If ActiveWindow.View.SplitSpecial <>wdPaneNone Then

        ActiveWindow.Panes(2).Close

    End If

    If ActiveWindow.ActivePane.View.Type =wdNormalView Or ActiveWindow. _

        ActivePane.View.Type = wdOutlineViewThen

        ActiveWindow.ActivePane.View.Type =wdPrintView

    End If

    ActiveWindow.ActivePane.View.SeekView =wdSeekCurrentPageHeader

    With Selection.PageSetup

        .LineNumbering.Active = False

       .Orientation =wdOrientPortrait

        .TopMargin = CentimetersToPoints(2.8)

        .BottomMargin =CentimetersToPoints(1.38)

        .LeftMargin = CentimetersToPoints(3.01)

        .RightMargin =CentimetersToPoints(2.91)

        .Gutter = CentimetersToPoints(0)

        .HeaderDistance =CentimetersToPoints(0)

        .FooterDistance =CentimetersToPoints(0)

        .PageWidth = CentimetersToPoints(21)

        .PageHeight = CentimetersToPoints(29.7)

        .FirstPageTray = wdPrinterDefaultBin

        .OtherPagesTray = wdPrinterDefaultBin

        .SectionStart = wdSectionContinuous

        .OddAndEvenPagesHeaderFooter = True

        .DifferentFirstPageHeaderFooter = False

        .VerticalAlignment = wdAlignVerticalTop

        .SuppressEndnotes = True

        .MirrorMargins = False

        .TwoPagesOnOne = False

        .BookFoldPrinting = False

        .BookFoldRevPrinting = False

        .BookFoldPrintingSheets = 1

        .GutterPos = wdGutterPosLeft

        .LayoutMode = wdLayoutModeDefault

    EndWith

    ActiveWindow.ActivePane.View.SeekView =wdSeekMainDocument

End Sub

413191246se

相见，你现在的附件有两个了，到底以哪个为准？请说明一下。