使用excel添加word里页眉页脚关闭编辑模式

8424123

老师，我将excel里的文本内容插入到指定word的页脚处，插入完毕后，打印这个word，目前发现，插入页脚成功后，word处于页眉页脚编辑状态，所以页眉处会有一条横线，如果关闭页眉页脚编辑模式，页眉的横线就没有了，想问下怎么样关闭页眉页脚编辑状态，谢谢，就是这句wordobj.sections(1).footers(1).Range.Text = y以后应该加什么代码？




Sub 打印()
    Dim arr, irow%, Spath, i%, Sname$, x As Byte, y As String
    Dim wordapp As Object, wordobj As Object
    Set wordapp = CreateObject("word.application")
    wordapp.Visible = True
    Spath = ThisWorkbook.Path & "\doc\"
    irow = Sheet1.[a65536].End(xlUp).Row
    arr = Range("a1:a" & irow)
    For i = 2 To UBound(arr)
    x = Range("b" & i).Value
    y = Range("c" & i).Value
        Sname = Dir(Spath & arr(i, 1) & "*.*")
        Set wordobj = wordapp.documents.Open(Spath & Sname)
            Sub 打印()
    Dim arr, irow%, Spath, i%, Sname$, x As Byte, y As String
    Dim wordapp As Object, wordobj As Object
    Set wordapp = CreateObject("word.application")
    wordapp.Visible = True
    Spath = ThisWorkbook.Path & "\doc\"
    irow = Sheet1.[a65536].End(xlUp).Row
    arr = Range("a1:a" & irow)
    For i = 2 To UBound(arr)
    x = Range("b" & i).Value
    y = Range("c" & i).Value
        Sname = Dir(Spath & arr(i, 1) & "*.*")
        Set wordobj = wordapp.documents.Open(Spath & Sname)
            wordobj.sections(1).footers(1).Range.Text = y
           wordobj.PrintOut copies:=CStr(x)
            wordobj.Close
    On Error Resume Next
    Next
End Sub

8424123

顶，跪求答案

ddmc

这个 不是 关闭 页眉页脚编辑状态的事
页眉  Headers
页脚 footers

' wordobj.sections(1).Headers(1).Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle =  wdLineStyleNone '引用word   ； 段落下边框线

  wordobj.sections(1).Headers(1).Range.ParagraphFormat.Borders(-3).LineStyle = 0                                         '没引用word ；段落下边框线= -3   'wdLineStyleNone  =0

8424123

ddmc 发表于 2022-12-10 12:17
这个 不是 关闭 页眉页脚编辑状态的事
页眉  Headers
页脚 footers

老师，段落下边框线= -3 ，确实没有下边框线了，如果改成-1或者-2为什么就有了边框线了呢？这是什么原理？

8424123

老师，这种方式插入操作，会不会影响word正文的排版，有各种文档，文档里也可能有图片或者表格，插入页脚会不会影响排版？如果会影响，能不能避免

ddmc

8424123 发表于 2022-12-10 18:17
老师，段落下边框线= -3 ，确实没有下边框线了，如果改成-1或者-2为什么就有了边框线了呢？这是什么原理 ...

wdBorderBottom  =-3  ’常量  段落下边框线 =-3
wdLineStyleNone  =0   ‘常量  线型 = 0  无格式。

wordobj.sections(1).Headers(1).Range.ParagraphFormat.Borders(-3).LineStyle = 0  

只对  wordobj的 第 1节 ，的页眉(1) 的Range  段落下边框线的 进行线型 变更。正文不变

如 文档有 多节 ，都要 改变。 使用用变量  j
wordobj.sections(  j   ).Headers(1).Range.ParagraphFormat.Borders(-3).LineStyle = 0

8424123

ddmc 发表于 2022-12-10 20:09
wdBorderBottom  =-3  ’常量  段落下边框线 =-3
wdLineStyleNone  =0   ‘常量  线型 = 0  无格式。
...

老师，这个-3就没框线了，为什么如果写-2或者-4就都有框线了呢

ddmc

8424123 发表于 2022-12-11 10:59
老师，这个-3就没框线了，为什么如果写-2或者-4就都有框线了呢