图片名字前的数字按序替换或者按序自动编号~~

Tobin_Zhang

以下代码中，如何嵌入一段代码，使光标所在位置之后的图片名字，前方的数字从1开始，按顺序进行排列或者按序替换或者按序自动编号~~~
蓝色代码为设置光标所在位置之后的图片尺寸 3.4*2.55inch


Sub Adjust_ImageSize()

    Dim myInlineshape As InlineShape
    Dim i As Integer
   
    Application.ScreenUpdating = False
    With ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
       For Each myInlineshape In .InlineShapes
        i = i + 1

            With myInlineshape
                .LockAspectRatio = msoFalse
                .Height = InchesToPoints(2.55)
                .Width = InchesToPoints(3.4)
            End With
        Next   


对文档中多个不连续表格中，图片名字前的数字按序排列或者按序替换或者

按序

自动编号~~


    Application.ScreenUpdating = True
End Sub

蓝桥玄霜

图片改名的代码：

Tobin_Zhang

蓝桥玄霜 发表于 2020-1-16 14:28
图片改名的代码：

您好，老师，非常感谢您的解答，本人学过一些Excel VBA，但对WORD VBA不太了解，特向老师请教三个问题：
1. = Left(xh, Len(xh) - 2)  这里为什么要  减 2，我改成-1或者0，最后都会形成  一个空格+一个换行。
2. Word中，  cells(j)表示当前 table 中的  第j个单元格；cell(I,j) 表示 第I行j列 的单元格？cells(j)和cell(I,j)分别适用于什么场合？
3. Word中，range、table、cell三者的所属关系是什么？到底谁包含谁？看一些资料，有时候range在前，有时候range在后，很迷糊....

蓝桥玄霜

1，就是因为xh里面的最后有2个不可见内容：一个Chr(9)Tab+一个Chr(10)换行;
2，cells(j)要放在Range后面：Tables(1).Range.Cells(j).Range.Text
表示表格中的第几个，比如表格Table有4行3列组成，第一行第一列的是Tables(1).Range.Cells(1)
第一行第三列的是Tables(1).Range.Cells(3)；第二行第一列的是Tables(1).Range.Cells(4)
Cell(i,j)是第i行第j列，写法：Tables(1).Cell(1,3).Range.Text 表示第一行第三列
两者区别在多一个s   这个与Excel中的单元格概念有点相似，也容易迷惑。
3，Table在前面，cell(i,j)--Range--Cells(j)--Range
这个是与Excel不一样，容易迷惑。习惯了就好。可以在VBE窗口查看doc里面的各种对象与属性。

Tobin_Zhang

蓝桥玄霜 发表于 2020-1-17 08:15
1，就是因为xh里面的最后有2个不可见内容：一个Chr(9)Tab+一个Chr(10)换行;
2，cells(j)要放在Range后面： ...

谢谢老师~~又学习了很多知识~~

凌空一羽

Sub lkyy()
Dim doc As Document, tb As Table, tbs As String
Set doc = ActiveDocument
For Each tb In doc.Tables
    c = tb.Rows.Count
    For i = 2 To c Step 2
        For j = 1 To 2
            n = n + 1
            tb.Cell(i, j).Range.Find.Execute "([0-9]{1,2}).", , , 1, , , , , , n & ".", 1
        Next
    Next
Next
End Sub

For Each tb In doc.Tables
    c = tb.Rows.Count
    For i = 2 To c Step 2
        For j = 1 To 2
            n = n + 1
            'tbs = Replace(Replace(tb.Cell(i, j).Range.Text, Chr(7), ""), Chr(13), "")
            tb.Cell(i, j).Range.Find.Execute "([0-9]{2}).", , , 1, , , , , , n & ".", 1
        Next
    Next
Next
End Sub

Tobin_Zhang

凌空一羽 发表于 2020-2-8 21:42
Sub lkyy()
Dim doc As Document, tb As Table, tbs As String
Set doc = ActiveDocument

非常感谢老师的知道~~

凌空一羽

Tobin_Zhang 发表于 2020-2-9 20:32
非常感谢老师的知道~~

我可能复制多了……
Sub lkyy()
Dim doc As Document, tb As Table, tbs As String
Set doc = ActiveDocument
For Each tb In doc.Tables
    c = tb.Rows.Count
    For i = 2 To c Step 2
        For j = 1 To 2
            n = n + 1
            tb.Cell(i, j).Range.Find.Execute "([0-9]{1,2}).", , , 1, , , , , , n & ".", 1
        Next
    Next
Next
End Sub