代码暂存

Arctime Pro字幕通用样式

Style: SUBTITLE,阿里巴巴普惠体 H,75,&H0000B3FF,&H000000FF,&H00000000,&H00000000,0,0,0,0,100.0,100.0,0.0,0.0,1,2.0,2.8846154,2,10,10,40,1

• 紫色版

Style: StyleName,阿里巴巴普惠体 H,75,&H00F56F8B,&H000000FF,&H00790743,&H00790743,0,0,0,0,100.0,100.0,0.0,0.0,1,2.0,2.5,2,10,10,59,1

• HOK

Style: StyleName,Source Han Sans CN Regular,64,&H00FFFEFF,&H000000FF,&HD2000000,&HFF000000,0,0,0,0,100.0,100.0,0.0,0.0,3,14.538461,0.0,2,10,10,40,1

PPT导出1080P 60FPS的宏

Sub PowerPointVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Your PowerPoint Video.mp4", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=60, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub

将多个重复命名编号不同的文件名称进行修改

我现在有image001.png、image002.png、image003.png到image578.png的文件。需要让他们后面的序号全部加2并且去掉前面的00格式，如image001.png要改为image3.png。

import os
import shutil
# 遍历目录下的文件
directory = "./your_directory_path"  # 替换为实际的目录路径
destination_directory = "./your_directory_path"  # 替换为实际的目标文件目录路径
for filename in os.listdir(directory):
    if filename.startswith("image"):
        # 提取序号部分并将其转换为整数
        index = int(filename[5:8])

        # 修改序号加2并格式化为不带前导零的字符串
        new_index = str(index + 2)

        # 构造新的文件名
        new_filename = "image" + new_index + ".png"

        # 创建原文件的路径和新文件的路径
        old_path = os.path.join(directory, filename)
        new_path = os.path.join(destination_directory, new_filename)

        # 重命名文件
        os.rename(old_path, new_path)

复制文件

import shutil

def copy_folder(src_folder, dest_folder):
    try:
        # 使用shutil.copytree()函数来复制文件夹及其内容
        shutil.copytree(src_folder, dest_folder)
        print(f"成功复制文件夹 {src_folder} 到 {dest_folder}")
    except FileNotFoundError:
        print(f"文件夹 {src_folder} 不存在")
    except FileExistsError:
        print(f"目标文件夹 {dest_folder} 已存在")

if __name__ == "__main__":
    source_folder = "D:/BaiduNetdiskDownload/fk"  # 替换为要复制的源文件夹的路径
    destination_folder = "E:/film"  # 替换为目标文件夹的路径

    copy_folder(source_folder, destination_folder)

红警3导出当前幻灯片为图片并且调整缩放

Sub ExportCurrentSlideAsImage()
    Dim Slide As Slide
    Dim ExportPath As String
    Dim ImageHeight As Long
    Dim ScaleFactor As Double
    
    ' 设置导出路径
    ExportPath = "F:\谷歌浏览器下载\" ' 更改为实际路径
    
    ' 设置图片高度
    ImageHeight = 1920
    
    ' 获取当前活动的幻灯片
    Set Slide = Application.ActiveWindow.View.Slide
    
    ' 计算缩放比例
    ScaleFactor = ImageHeight / Slide.Parent.PageSetup.SlideHeight
    
    ' 创建导出图片
    Slide.Export ExportPath & "Slide" & Slide.SlideIndex & ".png", "PNG", Slide.Parent.PageSetup.SlideWidth * ScaleFactor, Slide.Parent.PageSetup.SlideHeight * ScaleFactor
End Sub

导出全部幻灯片为图片并且调整缩放

Sub ExportSlidesAsImages()
    Dim Slide As Slide
    Dim ImagePath As String
    Dim SlideNumber As Integer
    Dim ImageName As String
    
    ' 设置图片保存的文件夹路径
    ImagePath = "F:\PPT图片导出\2025-05\"
    
    ' 遍历每一页的幻灯片
    For Each Slide In ActivePresentation.Slides
        SlideNumber = Slide.SlideNumber
        ' 设置图片文件名，这里以"SlideX"作为文件名，X代表幻灯片页码
        ImageName = ImagePath & "Slide" & SlideNumber & ".png"
        
        ' 另存为图片
        Slide.Export ImageName, "PNG", 1920, 1080
    Next Slide
End Sub

拼合音频

from pydub import AudioSegment  
import os  
import shutil  
  
# 指定包含音频文件的文件夹路径  
folder_path = "F:\谷歌浏览器下载\RA2_EVA"  
output_file = "F:\谷歌浏览器下载\merged.mp3"  
  
# 获取文件夹中所有的音频文件  
audio_files = [f for f in os.listdir(folder_path) if f.endswith(".wav")]  
  
# 创建一个空的音频文件，它将用于合并所有音频文件  
merged_audio = AudioSegment.silent(duration=5000)  # 5秒无声的音频，单位是毫秒  
  
  
for file in audio_files:  
    file_path = os.path.join(folder_path, file)  
    audio = AudioSegment.from_file(file_path, format="wav")  
    merged_audio = merged_audio + audio + AudioSegment.silent(duration=5000)  # 添加5秒的空白  
  
# 保存合并后的音频文件  
merged_audio.export(output_file, format="wav")