zoukankan      html  css  js  c++  java
  • word宏 加水印

    word加水印的宏代码:不是加载页眉或者页脚,是加在正文中,但是加在正文成功后,只能在当前页插入水印,如果实现每页都插入水印

    Sub water()
    '
    ' water 宏
    ' 添加水印
    '
     ActiveDocument.Sections(1).Range.Select
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.HeaderFooter.Shapes.AddTextEffect(1, _
            "作废", "宋体", 1, False, False, 0, 0).Select
      
        Selection.ShapeRange.TextEffect.NormalizedHeight = False
        Selection.ShapeRange.Line.Visible = False
        Selection.ShapeRange.Fill.Visible = True
        Selection.ShapeRange.Fill.Solid
        Selection.ShapeRange.Fill.ForeColor.RGB = -603923969
        Selection.ShapeRange.Fill.Transparency = 0.5
        Selection.ShapeRange.Rotation = 30
        Selection.ShapeRange.LockAspectRatio = True
        Selection.ShapeRange.Height = CentimetersToPoints(2.58)
        Selection.ShapeRange.Width = CentimetersToPoints(4.07)
        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

    这个是加载在页眉。

    Sub water()
    '
    ' water 宏
    ' 添加水印
    '
     ActiveDocument.Sections(1).Range.Select
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
       
        Selection.Document.Shapes.AddTextEffect(1, _
            "作废", "宋体", 1, False, False, 0, 0).Select
      
        Selection.ShapeRange.TextEffect.NormalizedHeight = False
        Selection.ShapeRange.Line.Visible = False
        Selection.ShapeRange.Fill.Visible = True
        Selection.ShapeRange.Fill.Solid
        Selection.ShapeRange.Fill.ForeColor.RGB = -603923969
        Selection.ShapeRange.Fill.Transparency = 0.5
        Selection.ShapeRange.Rotation = 30
        Selection.ShapeRange.LockAspectRatio = True
        Selection.ShapeRange.Height = CentimetersToPoints(2.58)
        Selection.ShapeRange.Width = CentimetersToPoints(4.07)
        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

    这个是加载在正文中,但是不能实现加载每页

  • 相关阅读:
    from collections import defaultdict ; from collections import namedtuple
    向日葵,teamviewer
    Seach in google: "tensorflow:Error encountered when serializing"
    lsof, fuser 命令杀进程。target is busy (In some cases useful info about processes that use the device is found by lsof(8) or fuser(1).)
    个税专项 http://www.sohu.com/a/284804458_260616?_f=index_news_0
    Insert video into ppt
    Is the phrase "anything and everything" redundant?
    税率等级
    Gstreamer overview
    Deep Learning for Generic Object Detection: A Survey
  • 原文地址:https://www.cnblogs.com/hack1506/p/1905352.html
Copyright © 2011-2022 走看看