HOW TO MODIFY WORD HEADER VIA VBA?

In fact, through macro recording, you can completely understand, some problems can be easily solved by yourself, macro recording is a very important step in learning VBA, you have to try more:

As follows. if <>wdpanenone thenend if

if = wdnormalview or activewindow. _

wdoutlineview then

wdprintview

end if

wdseekcurrentpageheader"Blank").insert where:= _,richtext:=true

text:="Dark, dark, dark"

Modify as follows: sub deletes header footer ().

dim myrange as range

on error resume next

for each osec in 'A loop in a section of a document.

set myrange =

Delete the content in the header.

wdlinestylenone 'Paragraph lower border line.

set myrange =

Delete the content in the footer.

nextend sub

Dear, this sentence needs to be changed:

replace(replace(, "abc", 111"), chr(13), because, if you look closely, you will see that the text in the header has a carriage return character at the end, just like the end of a paragraph or **, which is also part of the header. You can use len (look at the length of the header, which includes the carriage return character at the end (chr(13)). So, when you replace it with replace, the carriage return character is still there.

Note: The key is that when assigning a value, Word VBA does not contain the last carriage return character by default; It's easier to program, otherwise you'll have to remember to add a chr (13) at the end every time, which will annoy you to death!

Finally, the solution is to use replace again and remove the carriage return before assigning the value.

sub abc()

dim mysec as section

dim myshape1 as shape, myshape2 as inlineshape

Change the AAA in all headers to BBB, please replace the corresponding content by yourself, if you need to delete AAA, BBB is empty.

for each mysec in

replace(, "aaa", "bbb")next mysec

Deletes all drawing objects in the document.

for each myshape1 in

next myshape1

Deletes all embedded objects in the document.

for each myshape2 in

next myshape2

Save the document without prompting.

noprompt:=true

end sub

sub test()

falsewithleftheader = "" 'The left of the header is set to: Empty.

centerheader = "&f" 'The header is set to: file name.

rightheader = "" 'The right of the header is set to: empty.

leftfooter = "&b Confidential &b" 'The left of the footer is set to: bold Confidential.

centerfooter = "&d" 'In the footer, it is set to: Current Date.

rightfooter = "Page &p" 'The right of the footer is set to: page number.

end with

trueend sub

sub setpagefont() = false with .leftheader = The left of the header is set to: null

centerheader = f" 'In the header, set the blind hall as: file namerightheader = The right of the header is set to:

Emptyleftfooter = b confidential &b" 'The left of the footer is set to: bold Confidential.

centerfooter = d" 'The footer in the mausoleum is set to: Current Daterightfooter = Page &p" 'The footer grinding right is set to:

Page end with = trueend sub

This macro is to find and replace the selected text, if it is not selected, it cannot be replaced.

Record macros. So-called macros are batch scripts. In fact, it is also a vb**.

Why is it possible to replace page numbers in the conventional substitution method, but with vb** it just doesn't.

You can do this, save Word as XML, and then use a VB script to manipulate this XML

Is it the text in the footer?