用于打印图像的 Word 宏答案

【问题标题】：Word macro for print images用于打印图像的 Word 宏
【发布时间】：2022-11-13 07:31:41
【问题描述】：

我有个问题。在我们的工作中，我们必须为珠宝模具打印图像，这是一项无聊且重复的任务：我选择了一张 0.5 厘米的图像并复制它，每次将其放大 2 毫米，直到达到 5 厘米。

我们如何使这项任务自动化？

我不知道如何使用宏。

预期结果：

【问题讨论】：

如果您从 0.5 厘米开始并以 0.2 厘米的增量增加宽度或高度，则无法获得宽度或高度为 5 厘米的图像（如果适用）。
问：我们如何使这项任务自动化？答：使用宏。问：我不知道如何使用宏。 A：这听起来是一个很好的学习机会，不是吗？具体来说，听起来 Word 的 Record macro 可能就是您正在寻找的东西。点击链接，或看这里：youtube.com/watch?v=R9v6d_5SVB8

标签： vba ms-word

【解决方案1】：

以下宏采用选定的内联形状，将其宽度格式化为 0.5cm，然后复制它，以 0.25cm 的增量增加宽度，直到达到 5cm 宽度。如果您愿意，您可以编辑代码以使用图像高度。

Sub PicDemo()
  Application.ScreenUpdating = False
  Dim i As Long, iShp As InlineShape, Rng As Range
  With Selection
    Set iShp = .InlineShapes(1): Set Rng = .Range
    With iShp
      .LockAspectRatio = True
      .Width = CentimetersToPoints(0.5)
    End With
    For i = 3 To 20
      With Rng
        .Collapse wdCollapseEnd
        .FormattedText = iShp.Range.FormattedText
        .InlineShapes(1).Width = CentimetersToPoints(0.25 * i)
      End With
    Next
  End With
  Application.ScreenUpdating = True
End Sub

PC 宏安装和使用说明请见：http://www.gmayor.com/installing_macro.htm

Mac 宏安装和使用说明，请参阅：http://word.mvps.org/Mac/InstallMacro.html

无论哪种情况，您都应该能够简单地将代码从此处复制/粘贴到 VBE 中，而无需重新输入任何内容。

【讨论】：

好建议。但老实说，我认为 OP 使用“记录宏”可能会更好，而不是输入（并可能尝试调试/故障排除）VBA 脚本。希望她能有动力尝试至少一种选择，并回复它对她的工作方式。
鉴于宏记录器和一盒石头一样聪明，我怀疑有人会发现你的建议将它用于这样的任务特别有用。生成的代码将非常冗长且效率低下 - 您也应该知道。
而现在，我怎样才能学会做同样的事情呢？我必须学习信息学或类似的东西吗？
您需要学习 VBA 编码。 FWIW，我从来没有上过 VBA 编码课程——都是自学的（我在网上找到了大量的学习和改编代码）。
它工作得很好。我爱你。