Vba insert file name in footer of word doc -


this code have footer, need insert field file name. great!

with wdapp.activedocument.sections(1).footers(1).range.paragraphs(1)     .range.text = "aa service company - heating & cooling" & vbcr & "550 anthony trail; northbrook, il 60062" & vbcr & "phone:"     .range.insertafter vbcr & "page "     set r = .range     e = .range.end     r.start = e     .range.fields.add r, wdfieldpage     .range.insertafter " of "     e = .range.end     r.start = e     .range.fields.add r, wdfieldnumpages     .alignment = wdalignparagraphright     end 


Comments

Popular posts from this blog

node.js - Node js - Trying to send POST request, but it is not loading javascript content -

javascript - Replicate keyboard event with html button -

javascript - Web audio api 5.1 surround example not working in firefox -