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;
}
相关推荐
骆驼爱记录3 天前
WPS页码设置:第X页共Y-1页
自动化·word·excel·wps·新人首发
YQ_015 天前
Ubuntu下安装WPS
linux·ubuntu·wps
qq_546937276 天前
Word _ WPS 通用公文排版助手,支持标题、正文一键规范,发文机关、函线、装订线、公章、页码等常用部件一键解决
word·wps
Young.Dr7 天前
如何在wps/ppt里面拉伸图片 产生立体感,编辑顶点进行拉伸
wps
河北之花7 天前
文本类(TEXT)、行列操作函数(ROW、COLUMN)、逻辑类函数(AND、OR)
wps
骆驼爱记录8 天前
WPS文档标题一键加形状
自动化·word·excel·wps·新人首发
还不秃顶的计科生9 天前
wps/word单倍行距加入公式空白间隙仍然很大?
word·wps
PythonFun12 天前
打造专业模板:WPS文字型窗体域实战指南
wps
河北之花12 天前
查找类(VLOOKUP)、查找类(FIND、SEARCH)、计算文本长度类函数(LEN、LENB)
wps
河北之花13 天前
公式及单元格引用
wps