C word add watermark, if you have a few day, how to cycle to add?-CodePudding

I want to add watermark to word, word did not section, add success, a document by accident has four section, add can only add the page in the first quarter, when the other section to add not, is there any way, please? Vord recorded macros are such
ActiveDocument. Sections (1). Range. Select
ActiveWindow. ActivePane. The SeekView=wdSeekCurrentPageHeader
Selection. HeaderFooter. Shapes. AddTextEffect (PowerPlusWaterMarkObject1, _
"Company confidential", "tahoma", 1, False, False, 0, 0). Select
Selection. The ShapeRange. Name="PowerPlusWaterMarkObject1
"Selection. The ShapeRange. TextEffect. NormalizedHeight=False
Selection. The ShapeRange. Line. The Visible=False
Selection. The ShapeRange. The Fill. The Visible=True
Selection. The ShapeRange. The Fill. Solid
Selection. The ShapeRange. The Fill. ForeColor. RGB=grey - 25
Selection. The ShapeRange. The Fill. Transparency=0.5
Selection. The ShapeRange. Rotation=315
Selection. The ShapeRange. LockAspectRatio=True
Selection. The ShapeRange. Height=CentimetersToPoints (4.13)
Selection. The ShapeRange. Width=CentimetersToPoints (16.52)
Selection. The ShapeRange. WrapFormat. AllowOverlap=True
Selection. The ShapeRange. WrapFormat. Side=wdWrapNone
Selection. The ShapeRange. WrapFormat. Type=3
Selection. The ShapeRange. RelativeHorizontalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. RelativeVerticalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. Left=wdShapeCenter
Selection. The ShapeRange. Top=wdShapeCenter
ActiveWindow. ActivePane. The SeekView=wdSeekMainDocument
ActiveDocument. Sections (3). Range. Select
ActiveWindow. ActivePane. The SeekView=wdSeekCurrentPageHeader
Selection. HeaderFooter. Shapes. AddTextEffect (PowerPlusWaterMarkObject4, _
"Company confidential", "tahoma", 1, False, False, 0, 0). Select
Selection. The ShapeRange. Name="PowerPlusWaterMarkObject4
"Selection. The ShapeRange. TextEffect. NormalizedHeight=False
Selection. The ShapeRange. Line. The Visible=False
Selection. The ShapeRange. The Fill. The Visible=True
Selection. The ShapeRange. The Fill. Solid
Selection. The ShapeRange. The Fill. ForeColor. RGB=grey - 25
Selection. The ShapeRange. The Fill. Transparency=0.5
Selection. The ShapeRange. Rotation=315
Selection. The ShapeRange. LockAspectRatio=True
Selection. The ShapeRange. Height=CentimetersToPoints (4.13)
Selection. The ShapeRange. Width=CentimetersToPoints (16.52)
Selection. The ShapeRange. WrapFormat. AllowOverlap=True
Selection. The ShapeRange. WrapFormat. Side=wdWrapNone
Selection. The ShapeRange. WrapFormat. Type=3
Selection. The ShapeRange. RelativeHorizontalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. RelativeVerticalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. Left=wdShapeCenter
Selection. The ShapeRange. Top=wdShapeCenter
ActiveWindow. ActivePane. The SeekView=wdSeekMainDocument
ActiveDocument. Sections (4). Range. Select
ActiveWindow. ActivePane. The SeekView=wdSeekCurrentPageHeader
Selection. HeaderFooter. Shapes. AddTextEffect (PowerPlusWaterMarkObject7, _
"Company confidential", "tahoma", 1, False, False, 0, 0). Select
Selection. The ShapeRange. Name="PowerPlusWaterMarkObject7
"Selection. The ShapeRange. TextEffect. NormalizedHeight=False
Selection. The ShapeRange. Line. The Visible=False
Selection. The ShapeRange. The Fill. The Visible=True
Selection. The ShapeRange. The Fill. Solid
Selection. The ShapeRange. The Fill. ForeColor. RGB=grey - 25
Selection. The ShapeRange. The Fill. Transparency=0.5
Selection. The ShapeRange. Rotation=315
Selection. The ShapeRange. LockAspectRatio=True
Selection. The ShapeRange. Height=CentimetersToPoints (4.13)
Selection. The ShapeRange. Width=CentimetersToPoints (16.52)
Selection. The ShapeRange. WrapFormat. AllowOverlap=True
Selection. The ShapeRange. WrapFormat. Side=wdWrapNone
Selection. The ShapeRange. WrapFormat. Type=3
Selection. The ShapeRange. RelativeHorizontalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. RelativeVerticalPosition=_
WdRelativeVerticalPositionMargin
Selection. The ShapeRange. Left=wdShapeCenter
Selection. The ShapeRange. Top=wdShapeCenter
ActiveWindow. ActivePane. The SeekView=wdSeekMainDocument