LeftIndent = Application.CentimetersToPoints(-1.6) LineSpacing = Application.LinesToPoints(1) Private Sub AddFooterToRange(rng As Word.Range) The same principle applies for the Footer. Cell(1, 1). filename:="image path", LinkToFile:=False, SaveWithDocument:=True Columns(2).SetWidth ColumnWidth:=300, RulerStyle:=wdAdjustNone Rows.SetLeftIndent LeftIndent:=-37, RulerStyle:=wdAdjustNone Borders.OutsideLineStyle = wdLineStyleNone Borders.InsideLineStyle = wdLineStyleNone Tables.Add Range:=rng, NumRows:=1, NumColumns:=2, DefaultTableBehavior:=wdWord8TableBehavior, AutoFitBehavior:=wdAutoFitFixed
Private Sub AddHeaderToRange(rng As Word.Range) Sub UpdateHeader()ĭim oDoc As Word.Document, oSec As Word.Section, rng As Word.Range An image on the left side and text on the right side. The example below creates a header in all pages, consisting of a table with two cells. You need to add the header/footer into the wdHeaderFooterFirstPage range for the first page and into wdHeaderFooterPrimary for all other pages depending on the header/footer settings of the document. = wdAlignParagraphRightĪ = wdSeekCurrentPageFooter , LinkToFile:=False, SaveWithDocument:=True FooterDistance = CentimetersToPoints(1.0) Now on the 5th page, enable the header/footer sections by double clicking the top/bottom of the page respectively. From the drop-down list, click Next Page under Section Break. HeaderDistance = CentimetersToPoints(1.0) From the Word Ribbon, click the tab Page Layout and then click Breaks under the group Page Setup. (In Microsoft Word 2003, you need to choose the Options under the Tools menu) Now, click on the Display tab from the left panel.
#How to delete a header on page 1 of word document code
I have tried a few different methods such as iterating through each shape on the page but in that case, the header and footer prints out multiple times on each page depending on how many shapes are in the document.Ĭurrently my code is looking for any current header and footer and deleting them, then it just inserts my header and footer on the first page and leaves the remaining pages in the document's header and footer blank.Ĭan anyone tell me where I am going wrong? Sub HeaderFooter()Ī = wdSeekCurrentPageHeader If you want to permanently remove the white space from Word file to resolve Word Doc missing header problem, then perform the following steps: First of all, click on the File menu and choose Options from the left panel. I am trying to add a header and a footer to each page of a word document via a macro.
0 kommentar(er)
