各位先進您們好：
我碰到一個問題就是使用巨集在套用浮水印時，浮水印只會出現在第二頁以後，第一頁都不會出現，但是手動手動套用時卻可以全部出現，請問是否有什麼問題？煩請各位先進看看是否有辦法解決這個問題！
錄製程式如下
Sub 套用浮水印()
'
' 套用浮水印 巨集
' 巨集錄製於 2012/12/27，錄製者 jackyshi
'
ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:= _
"D:\My Documents\My Pictures\1-Report Paper.jpg", LinkToFile:=False, _
SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "WordPictureWatermark1"
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(29.71)
Selection.ShapeRange.Width = CentimetersToPoints(21.02)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
我的word 檔,第一頁頁碼是0(零),是否有關係,但是因為報告格式已固定,無法修改,是否有解決方案
從 APP 打開
X