Question

使用2010年的单词，我需要在所有页面上放置图像水印。我录制了宏，想知道确切的

ActiveDocument.Sections(1).Range.Select
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Shapes.AddPicture(FileName:="image.jpg", LinkToFile:=False, SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "WordPictureWatermark11907540"
 Selection.ShapeRange.PictureFormat.Brightness = 0.85
Selection.ShapeRange.PictureFormat.Contrast = 0.15
    Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(20.32)
Selection.ShapeRange.Width = CentimetersToPoints(27.09)
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

Answer 1

虽然我同意Tamar的学位评论，但我发现非常有用以及Microsoft如何处理事情是通过Macro Recorder。

有时试图猜测他们在幕后所做的事情令人不安。进入Word，做一个想要弄清楚如何去做的样本。然后，从一个全新的Word文档开始，打开宏录制器并开始录制并执行步骤以使您的水印到位。然后停止录音机。然后，您可以查看录制的宏，它将在Visual Basic中，但它将提供一些可能有助于包括对象引用，属性的东西。希望这有帮助，也适用于其他M $产品（Word，Excel，Outlook等）

EDIT ---

要访问不在正常功能区内的其他功能，否则需要双击，右键单击等，您可以自定义功能区。在Word（或Excel）中，右键单击功能区中的空白区域，然后单击＆＃34;自定义功能区＆＃34;。这将在左侧选择列表中默认显示最常用命令的对话框。在右侧是常见的功能区主选项卡，如：主页，插入，页面布局等。您可以为测试目的添加新选项卡，然后开始将所需的命令添加到功能区选项卡以运行，例如标题左侧选择区域上方是一个组合框，用于＆＃34;选择命令来自＆＃34; （默认为热门命令）。将其更改为＆＃34;所有命令＆＃34;并且您将获得比预期更多的方式...然后，将您需要的那些添加到功能区的自定义选项卡中，保存并退回到您的文档。现在，启动您的宏录制器，您将拥有所有那些通过双击，右键单击等原本无法获得的命令。

word image水印自动化

1 个答案: