Word2003 & 2007 VBA 通用模板宏(2020元旦版) 2019-10-17

13032383987

自从用了你这个模板之后再添加自己的宏就老是出错，最常见的问题就是出现未定义变量的错误，用word自带的模板用起来就是正常运行的，请大侠指点下迷津是哪里弄错了？

kingtau

小白正在研究您的代码，能学到不少东西，3Q

13032383987

Sub 批量设定选定区域图片宽度()
    On Error Resume Next
    M = InputBox("请输入要调整图片的宽度：", "厘米单位", 14) * 28.35
    If Selection.Type = wdSelectionInlineShape Then
        For n = 1 To Selection.InlineShapes.Count
            pw = Selection.InlineShapes(n).Width
            ph = Selection.InlineShapes(n).Height
            Selection.InlineShapes(n).Width = M
            Selection.InlineShapes(n).Height = ph * M / pw
        Next
    ElseIf Selection.Type = wdSelectionShape Then
        Selection.ShapeRange.Width = M
    ElseIf Selection.Type = wdSelectionNormal Then
        Selection.Range.ShapeRange.Width = M
        For n = 1 To Selection.Range.InlineShapes.Count
            pw = Selection.Range.InlineShapes(n).Width
            ph = Selection.Range.InlineShapes(n).Height
            Selection.Range.InlineShapes(n).Width = M
            Selection.Range.InlineShapes(n).Height = ph * M / pw '11111
        Next
    End If
End Sub

13032383987

上面是我从论坛里面找的提示未定义变量

413191246se

朋友，我的代码是要求必须定义变量才能运行的，因为有“Option Explicit”6语句，请重新检查一下代码吧！

相见是缘8

13032383987 发表于 2019-11-22 18:29
Sub 批量设定选定区域图片宽度()
    On Error Resume Next
    M = InputBox("请输入要调整图片的宽度： ...

你要先选定文档内要修改的图片后，再运行代码即可。

如你要将文档内的图片全部修改，用下面这个代码即可。

Sub 批量设定选定区域图片宽度()
    On Error Resume Next
    m = InputBox("请输入要调整图片的宽度：", "厘米单位", 14) * 28.35
    Selection.WholeStory
    If Selection.Type = wdSelectionInlineShape Then
        For n = 1 To Selection.InlineShapes.Count
            pw = Selection.InlineShapes(n).Width
            ph = Selection.InlineShapes(n).Height
            Selection.InlineShapes(n).Width = m
            Selection.InlineShapes(n).Height = ph * m / pw
        Next
    ElseIf Selection.Type = wdSelectionShape Then
        Selection.ShapeRange.Width = m
    ElseIf Selection.Type = wdSelectionNormal Then
        Selection.Range.ShapeRange.Width = m
        For n = 1 To Selection.Range.InlineShapes.Count
            pw = Selection.Range.InlineShapes(n).Width
            ph = Selection.Range.InlineShapes(n).Height
            Selection.Range.InlineShapes(n).Width = m
            Selection.Range.InlineShapes(n).Height = ph * m / pw '11111
        Next
    End If
    Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

13032383987

413191246se 发表于 2019-11-24 21:56
朋友，我的代码是要求必须定义变量才能运行的，因为有“Option Explicit”6语句，请重新检查一下代码吧！

谢谢大侠耐心解答，那再请教下，为什么同样的代码，在word默认的模板下面就能正常运行呢，至于你说的要定义变量我也是觉得正确，难道默认的会为这些变量自动生成定义，请大侠不吝赐教

13032383987

相见是缘8 发表于 2019-11-25 07:43
你要先选定文档内要修改的图片后，再运行代码即可。

如你要将文档内的图片全部修改，用下面这个代码即 ...

谢谢大侠解答，我现在的问题不是设置指定图片或者整篇图片调整大小，是搞不明白这个代码添加进默认的模板里面能够正常运行使用，在楼主提供的这个模板里面添加此代码运行会出现未定义变量的错误

413191246se

朋友，因为通用模板 Normal.dot 模块内有"Option Explicit"语句，就是强制用户必须声明所有变量才行，这样做是有好处的，能节省内存、减少出错机率（有时会键入错误）等，所以，最好请按 F8 键逐行进行调试。

lhlh1024

感谢正在需要排版工具，我想做一个高亮显示不同的字体的东西，自己研究研究