WPS清除图片段落布局脚本

WPS文档中如果存在大量图片,没有居中对齐的情况,一个个调整太费时费力, 写了个脚本批量处理, 脚本如下:

javascript 复制代码
/**
 * 清除图片段落布局
 */
function clearImageParagraphLayout_v2() {
    try {
        const doc = Application.ActiveDocument;
        if (!doc) return alert("请先打开文档");

        const processedParaIds = new Set();
        let totalProcessed = 0;

        // 处理嵌入式图片(更可靠的获取方式)
        const inlineShapes = doc.InlineShapes;
        for (let i = 1; i <= inlineShapes.Count; i++) {
            try {
                const shape = inlineShapes.Item(i);
                const para = shape.Range.Paragraphs.Item(1);
                if (para && !processedParaIds.has(para.ParaID)) {
                    resetParagraphFormat(para);
                    processedParaIds.add(para.ParaID);
                    totalProcessed++;
                }
            } catch (e) {
                // 跳过有问题的图片
                continue;
            }
        }

        // 处理浮动式图片(兼容不同版本的锚点获取)
        const shapes = doc.Shapes;
        for (let j = 1; j <= shapes.Count; j++) {
            try {
                const shape = shapes.Item(j);
                // 尝试不同的锚点获取方式
                let para;
                if (shape.Anchor) {
                    para = shape.Anchor.Paragraphs.Item(1);
                } else {
                    para = shape.Range.Paragraphs.Item(1);
                }

                if (para && !processedParaIds.has(para.ParaID)) {
                    resetParagraphFormat(para);
                    processedParaIds.add(para.ParaID);
                    totalProcessed++;
                }
            } catch (e) {
                // 跳过有问题的图片
                continue;
            }
        }

        alert(`已处理 ${totalProcessed} 个包含图片的段落\n共检测到 ${inlineShapes.Count + shapes.Count} 张图片`);
    } catch (e) {
        alert("操作失败:" + e.message);
    }
}

// 重置段落格式的辅助函数(使用具体数值代替常量,避免版本问题)
function resetParagraphFormat(para) {
    para.FirstLineIndent = 0;
    para.LineSpacingRule = wdLineSpaceSingle;
    para.Alignment = 1;
}
相关推荐
wtsolutions1 天前
Excel to JSON by WTSolutions 4.0.0 版本更新公告
json·excel·wps·插件·转换·加载项·wtsolutions
wtsolutions1 天前
Excel to JSON by WTSolutions 4.0.0 Update Announcement
json·excel·wps·addin·wtsolutions·conversion
程序员学长李白2 天前
WPS绿色纯净版(无联网功能) v10.1.0.6876
经验分享·电脑·wps·推荐
templarzq5 天前
WPS的ppt不显示页码问题
wps
低调电报6 天前
在WPS可以显示图片,word中不能显示的原因及解决
经验分享·word·wps
CHN悠远9 天前
飞腾D3000安装debian13后使用WPS的方法
wps
❀͜͡傀儡师10 天前
docker 安装WPS
docker·容器·wps
罗政11 天前
WPS Excel快速插入一批图片
excel·wps
罗政12 天前
WPS Excel快速进行跨表数据合并
excel·wps
dyxal13 天前
linux系统上 WPS Office新增字体
linux·运维·wps