第二个循环总是从 1 开始的循环内的 VBA 循环

Question

我有下面的代码循环遍历 PPT 演示文稿中的所有幻灯片。如果幻灯片属于其中一个部分并且没有隐藏，它将以适当的名称保存它们。我试图在保存的名称（即 TEST#）之后获取数字，以便每个部分始终从 1 开始。因此，如果 IDSS 部分中有五张幻灯片，从幻灯片 5 开始，那么它们将被保存：IDSS1、IDSS2 等。我在下面的方式只是将其与当前幻灯片编号一起保存。感谢您提供的任何帮助！

编辑以提供更多清晰

我在这个 PPT 演示文稿中有许多不同的幻灯片，所有这些幻灯片都位于一个特定的命名部分中。对于此示例，假设总共有 6 张幻灯片。幻灯片 1-3 在名为“测试”的部分中，幻灯片 3 被隐藏。幻灯片 4-6 在“IDSS”部分，没有一个是隐藏的。我需要代码来遍历所有幻灯片，找出哪些在“TEST”部分，并将它们命名为“TEST1”和“TEST2”（第三张幻灯片被跳过，因为它是隐藏的）。然后它移动到“IDSS”部分并将幻灯片保存为“IDSS1”、IDSS2”和“IDSS3”。这是名称后面的数字，我无法在每个部分重新启动为 1。希望这能成功更清晰。

Dim sld As Slide

TestSection = SectionIndexOf("Test") 'Name of a section is in the quotes.

IDSSslides = SectionIndexOf("IDSS")

i = 1
For Each sld In ActivePresentation.Slides

    If sld.sectionIndex = TestSection And ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoFalse Then
        ActivePresentation.Slides(i).Export filenamepng & "TEST" & i & ".png", "PNG"
    ElseIf sld.sectionIndex = IDSSslides And ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoFalse Then
        ActivePresentation.Slides(i).Export filenamepng & "IDSS" & i & ".png", "PNG"
    End If
i = i + 1
Next

Answer 1

你的问题不是很清楚，但我认为这是你需要的，试试看告诉我

    Dim sld As Slide

TestSection = SectionIndexOf("Test") 'Name of a section is in the quotes.

IDSSslides = SectionIndexOf("IDSS")

dim i as integer 'Counter for TEST 
dim j as integer'Counter for IDSS 

i = 1 
j=1

For Each sld In ActivePresentation.Slides

    If sld.sectionIndex = TestSection And sld.SlideShowTransition.Hidden = msoFalse Then
        sld.Export filenamepng & "TEST" & i & ".png", "PNG"
        i=i+1
    ElseIf sld.sectionIndex = IDSSslides And sld.SlideShowTransition.Hidden = msoFalse Then
        sld.Export filenamepng & "IDSS" & j & ".png", "PNG"
        j=j+1
    End If
Next