麻烦哪位帮我看看这个VBA代码要怎么改一下

好像是空格之类的问题。修改如下就可以了： Sub Example() With ActiveDocument.Sections(1)  .Footers(wdHeaderFooterPrimary).PageNumbers.Add _  PageNumberAlignment:=wdAlignPageNumberOutside, _  FirstPage:=True End With End Sub 或者，干脆： Sub Example() With ActiveDocument.Sections(1)  .Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberOutside, FirstPage:=True End With End Sub