vb壓縮word文檔中圖片代碼

Ⅰ 如何用VB代碼壓縮一個文件夾中的所有文件成一個壓縮包

DIR 可以
還可以用FSO 對象,來完成!

Dir 函數

返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁碟卷標相匹配。

語法

Dir[(pathname[, attributes])]

Dir 函數的語法具有以下幾個部分：

部分 描述
pathname 可選參數。用來指定文件名的字元串表達式，可能包含目錄或文件夾、以及驅動器。如果沒有找到 pathname，則會返回零長度字元串 ("")。
attributes 可選參數。常數或數值表達式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。

設置值

attributes 參數的設置可為：

常數 值 描述
vbNormal 0 (預設) 指定沒有屬性的文件。
vbReadOnly 1 指定無屬性的只讀文件
vbHidden 2 指定無屬性的隱藏文件
VbSystem 4 指定無屬性的系統文件
vbVolume 8 指定卷標文件；如果指定了其它屬性，則忽略vbVolume
vbDirectory 16 指定無屬性文件及其路徑和文件夾。

注意 這些常數是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數來替換真正的數值。

Ⅱ 請問怎麼vb壓縮圖片，內詳

'圖片壓縮處理程序，可以實現高壓縮！
'注JPG壓縮比值為1-255
Public Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Public Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Public Type EncoderParameter
GUID As GUID
NumberOfValues As Long
type As Long
Value As Long
End Type
Public Type EncoderParameters
count As Long
Parameter As EncoderParameter
End Type

Public Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Public Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Public Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hPal As Long, BITMAP As Long) As Long
Public Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Public Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Public Declare Function CLSIDFromString Lib "ole32" (ByVal Str As Long, id As GUID) As Long
Public Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb As Long) As Long

'*************************************************************************
'** 作 者 ： laviewpbt
'** 函 數 名 ： SavePic
'** 輸 入 ： pic(StdPicture) - 圖象句柄
'** ： FileName(String) - 保存路徑
'** ： Quality(Byte) - JPG圖象質量
'** ： TIFF_ColorDepth(Long) - TTF格式的顏色深度
'** ： TIFF_Compression(Long) - TTF格式的壓縮比
'** 輸 出 ： 無
'** 功能描述 ： 把圖象保存為JPG、TIFF、PNG、GIF、BMP格式
'** 日 期 ：
'** 修 改 人 ： laviewpbt
'** 日 期 ： 2005-10-23 14.43.52
'** 版 本 ： Version 1.2.1
'*************************************************************************
Public Sub SavePic(ByVal pict As StdPicture, ByVal FileName As String, PicType As String, _
Optional ByVal Quality As Byte = 80, _
Optional ByVal TIFF_ColorDepth As Long = 24, _
Optional ByVal TIFF_Compression As Long = 6)
Screen.MousePointer = vbHourglass
Dim tSI As GdiplusStartupInput
Dim lRes As Long
Dim lGDIP As Long
Dim lBitmap As Long
Dim aEncParams() As Byte
On Error GoTo ErrHandle:
tSI.GdiplusVersion = 1 ' 初始化 GDI+
lRes = GdiplusStartup(lGDIP, tSI)
If lRes = 0 Then ' 從句柄創建 GDI+ 圖像
lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
If lRes = 0 Then
Dim tJpgEncoder As GUID
Dim tParams As EncoderParameters '初始化解碼器的GUID標識
Select Case PicType
Case ".jpg"
CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
tParams.count = 1 ' 設置解碼器參數
With tParams.Parameter ' Quality
CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID ' 得到Quality參數的GUID標識
.NumberOfValues = 1
.type = 4
.Value = VarPtr(Quality)
End With
ReDim aEncParams(1 To Len(tParams))
Call CopyMemory(aEncParams(1), tParams, Len(tParams))
Case ".png"
CLSIDFromString StrPtr("{557CF406-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
ReDim aEncParams(1 To Len(tParams))
Case ".gif"
CLSIDFromString StrPtr("{557CF402-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
ReDim aEncParams(1 To Len(tParams))
Case ".tiff"
CLSIDFromString StrPtr("{557CF405-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
tParams.count = 2
ReDim aEncParams(1 To Len(tParams) + Len(tParams.Parameter))
With tParams.Parameter
.NumberOfValues = 1
.type = 4
CLSIDFromString StrPtr("{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"), .GUID ' 得到ColorDepth參數的GUID標識
.Value = VarPtr(TIFF_Compression)
End With
Call CopyMemory(aEncParams(1), tParams, Len(tParams))
With tParams.Parameter
.NumberOfValues = 1
.type = 4
CLSIDFromString StrPtr("{66087055-AD66-4C7C-9A18-38A2310B8337}"), .GUID ' 得到Compression參數的GUID標識
.Value = VarPtr(TIFF_ColorDepth)
End With
Call CopyMemory(aEncParams(Len(tParams) + 1), tParams.Parameter, Len(tParams.Parameter))
Case ".bmp" '可以提前寫保存為BMP的代碼，因為並沒有用GDI+
SavePicture pict, FileName
Screen.MousePointer = vbDefault
Exit Sub
End Select
lRes = GdipSaveImageToFile(lBitmap, StrPtr(FileName), tJpgEncoder, aEncParams(1)) '保存圖像
GdipDisposeImage lBitmap ' 銷毀GDI+圖像
End If
GdiplusShutdown lGDIP '銷毀 GDI+
End If
Screen.MousePointer = vbDefault
Erase aEncParams
Exit Sub
ErrHandle:
Screen.MousePointer = vbDefault
MsgBox "在保存圖片的過程中發生錯誤:" & vbCrLf & vbCrLf & "錯誤號: " & Err.Number & vbCrLf & "錯誤描述: " & Err.Description, vbInformation Or vbOKOnly, "錯誤"
End Sub

把以上的代碼復制到模塊

Ⅲ 如何批量壓縮多個word文檔中的圖片

批量壓縮多個word文檔中的圖片的方法：

1、選中需要壓縮的圖片；

2、單擊圖片工具格式----壓縮圖片按鈕；

Ⅳ word里圖片怎麼壓縮

大家在平時使用word辦公時，經常要插入圖片，有時插入的圖片過多導致文件特別大，電腦會反映很慢，下面小編教大家如何壓縮word中的圖片
工具/原料
Microsoft Word
方法一：使用壓縮圖片命令
1
首先打開Word文檔，左鍵雙擊文檔中的圖片，然後在菜單欄中選擇壓縮圖片。

2
在壓縮圖片中選擇壓縮選中的圖片還是壓縮文檔中的所有圖片，然後在更改解析度中根據需要選擇一種確定。

3
此時會出現提示，點擊應用就行了。

4
小編保存給大家看一下壓縮前和壓縮後的Word文檔大小。

END
方法二：存儲時壓縮
打開Word後點擊左上角的文件按鈕，然後點擊另存為。

在另存為窗口點擊工具，選擇壓縮圖片。

3
在壓縮設置中根據個人需要點選目標輸出的形式，最後確定保存，此時Word中的所有圖片就全部被壓縮了。

Ⅳ 刪除word中指定大小圖片的代碼（VB）

Office文件損壞的恢復技巧 Word文件修復 Excel文件修復 假如你手頭還沒有用來恢復Office文件的商業軟體，你可以先試試以下5個技巧。 1.任何文件類型 按下Shift鍵的同時雙擊資源管理器中的文件。這樣可以阻止運行自動化的VB代碼以及其他可能引發文件錯誤的自動命令。 2. Microsoft Word 假如你可以打開文件，但是其內容卻混亂不堪，你不妨用Show/Hide按鈕顯示格式化。然後從文檔的開頭選中所有的文本(除了文檔底部的段落標記)。把文本拷貝、粘貼到一個新文檔里。假如沒起作用，你可能需要拷貝和粘貼其中部分段落來重建文檔。 3. Excel 假如出問題的Excel文件不大，其中只有一個數據表，那麼你可以嘗試一下能否用Word打開它。在Word的Open對話框里選中All Files文件類型然後直接打開即可，或者從文件類型框中的Recover Text From Any File選項。 4. PowerPoint PowerPoint文件特別容易損壞而且如果不採用專門的商業軟體恢復起來也特麻煩。不過你可以嘗試以下的補救措施：打開一個新建的空白文件，然後選擇Insert-Slides選項從損壞的幻燈文件中把幻燈片導入新文件。 5. Access 執行資料庫修復和壓縮操作可能會恢復損壞的Access資料庫。假如以上方法不奏效你可以再把對象導入新的Access文件試試。 Word文件在日常工作和生活中已經無處不在，它常常記錄著許多重要信息，被用戶視為重點保護對象。然而，由於種種原因（譬如磁碟損傷、病毒感染或者程序出錯等），文件損毀的事情也時有發生。一旦事關重大的Word文件損毀了，用戶的焦急之情溢於言表。別急，讓我給你一根救命稻草，它就是Word文件的救星——DocRepair。 軟體名稱：DocRepair 軟體版本：2.10 軟體平台：Windows XP/2000/Me/98/95/NT 軟體授權：共享 軟體大小：654K 下載地址： DocRepair是一款專門用來修復Word文件的實用軟體。它支持所有版本的Microsoft Word，操作簡單，經過四步便能輕松幫你修復原本損壞的Word文件。 Step 1:(圖1） 選擇需要修復的Word文件； Step 2:（圖2） 根據需要設定「Recovery Options」：如果文件內容使用的是非英語，或者用戶需要修復包含在文件中的圖片，都可在「Recovery Options」中進行相應的選擇。 另外，有一個「Use Salvage Content Retrieval Mode」選項，在第一次恢復Word文件時最好不要選，因為它雖然可能更大程度上的修復損壞的文件內容，但同時也會產生一些多餘的垃圾字元。如果在第一次恢復後的文件中仍有部分內容沒有搶救回來，那就可以使用這個選項，進行加強型的修復。 Step 3:（圖3） 該軟體將文件讀入內存，並分析其結構和存在的問題，最後對該文件進行修復，恢復其中的內容。用戶可以預覽修復好的文件內容及其包含的圖片（圖4）。如果對修復結果不滿意，就可以退回到第二步去選擇「Use Salvage Content Retrieval Mode」選項進行增強的修復。 Step 4:（圖5） 將修復好的文件保存到用戶指定的文件夾，便大功告成了。 Excel文件是一個工作簿，一般可以包含255個工作表，每個工作表中可以包含大量的數據。如果一個Excel文件部分受損，不能正常打開，該怎麼辦呢？這里向大家介紹兩種解救方法。 手動處理 進入Word，打開要修復的XLS文件，如果Excel只有一個工作表，會自動以表形式裝入Word，若文件是由多個工作表組成，每次只能打開一個工作表。打開後，先將文件中損壞的數據刪除。 用滑鼠選中〔表格〕→〔轉換〕→〔表格轉文本]，注意可用「，」間隔符或其他分隔符，另存為一個TXT文本文件。在Excel中直接打開該文本文件，在打開時，Excel會提示文本導入向導，一般情況下只要直接點擊〔下一步〕即可，打開後另存為其他的Excel文件即可。 注意：這種修復的方法是利用Word的直接讀取Excel文件的功能實現，該方法在文件頭沒有損壞，只是文件內容有損壞的情況下比較有效；對文件頭已經損壞的Excel文件，此方法可能不成

Ⅵ 如何在VBA中調用Word中圖片壓縮功能

感謝樓主，測試成功，Very good！～～～顯然是摘來的內容！

Sub ystp()

For Each pic In ActiveSheet.Shapes

If pic.Type = 13 Then

SendKeys ^{ENTER}, False

Application.CommandBars(Picture).Controls(壓縮圖片(&C)...).Execute

End If

Next

End Sub

Ⅶ 怎麼壓縮word中的圖片

• 首先打開Word文檔，左鍵雙擊文檔中的圖片，然後在菜單欄中選擇壓縮圖片。

  

Ⅷ vb word文檔轉換為圖片

方法很多，建議你不要編程序。你又不會編程序，幹嘛費這勁。
簡單方法是：
一、把WORD文件打開，全選，並且COPY到剪貼板
二、打開畫圖板軟體，粘貼過來
三、另存為*.BMP 或者*.jpg 格式的文件
完成