word vba另存为图片

word 文档中的图片怎么用vba 批量自动保存为逐个的jpg 文件呢？

不用VBA，编程一般人玩不了，给你一个最简单的方法，可以一下子把所有的图片一下子保存都保存下来。

1、你先把Word文档复制一个副本，用于保存原文档。

2、打开Word文档，Word菜单→另存为→选择htm网页格式，找到位置，保存。

退出文档。

3、在保存网页的位置，找到与文档相同名字的一个文件夹，你想要的图片都在文件夹内了。

4、整理一下文件夹内的图片，OK。

（可能会有较多不想要的其他东西，可以删除），也可以把文件夹外的网页文件删除了。

在word中想用vba实现依次新建文档并插入指定文件夹中的图片并命名...

以word2007为例，方法如下：1、点击图片，另存为“筛选过的网页”。

2、打开存放的文件夹，就多了一个网页文件夹。

3、打开网页文件夹，看看刚才存放的图片，其格式就是jpg。

vba word中如何将已选中部分 另存为txt 应该怎么弄

你在word文档里面插入以下宏：Private Sub Document_Open()If ActiveDocument.ProtectionType = wdNoProtection ThenActiveDocument.Protect _Type:=wdAllowOnlyFormFields, NoReset:=TrueEnd IfEnd Sub如果要高级一点的方法，可以参考官网：http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx

word vba 另存pdf问题？

经测试编写VBA代码如下：Sub 嵌入式图片加边框（）Application.ScreenUpdating = FalseDim a As IntegerDim pic As InlineShapeDim aBorder As Bordera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfFor Each pic In ActiveDocument.InlineShapespic.Borders.Enable = TrueWith picFor Each aBorder In pic.BordersWith aBorder.LineWidth = wdLineWidth025pt.Color = wdColorBlueEnd WithNext aBorder.ScaleHeight = 100.ScaleWidth = 100End WithNextApplication.ScreenUpdating = TrueEnd SubSub 取消边框（）Dim a As Integera = ActiveDocument.InlineShapes.CountIf a = 0 ThenMsgBox （＂没有发现嵌入式图片＂）End IfActiveDocument.InlineShapes(1).Borders.Enable = FalseEnd SubPrivate Sub CommandButton1_Click()嵌入式图片加边框End SubPrivate Sub CommandButton2_Click()取消边框End Sub效果如下：

转载请注明出处51数据库 » word vba另存为图片