Visual Basic ( VB ) är ett programmeringsspråk från Microsoft som kan skapa fristående program , och även utöka funktionerna i programmen i Microsoft Office-paketet . En funktion VB kan förlänga involverar bilder länkade till Office-dokument . Ett VB program kan lagra en bild i ett dokument , i stället för att länka bilden till dokumentet . Även om detta ger en större storlek dokument än en med en länkad bild , kommer dokumentet lider inte ett stort problem med en med länkade bilder : möjligheten att den länkade bilden lossnar från dokumentet . Instruktioner
1
Öppna Microsoft Word och klicka på " Infoga " -menyn " Picture " posten . Klicka på " Från fil " alternativet . Du kommer att länka till en bild i det aktuella dokumentet , sedan använda Visual Basic för att bädda in bilden .
2
Navigera till någon bildfil på hårddisken , kontrollera sedan " Länka till fil " CHEC - KBOX på " Infoga bild " dialogrutan . Detta säkerställer att bilden inte kommer att ( ännu ) bäddas in i dokumentet , men kopplat till den . Tryck på " Infoga " -knappen för att länka bilden .
3
Tryck " Alt " och " F9 " för att visa alla fältkoder i det aktuella dokumentet . ( Fältkoder är Word symboler visas som text som representerar annat innehåll , inklusive uppdateras automatiskt tidsstämplar eller länkade bilder ) . Bilden du in kommer att avslöja sin " INCLUDEPICTURE " fältet kod , som visar att bilden är länkad , men ännu inte inbäddade .
4
Tryck " Alt och " F11 " för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) . Denna miljö innehåller verktyg för att skriva program för att bädda in bilden .
5
Klicka på " Infoga " -menyn rubrik är " Module " objekt för att skapa ett nytt fönster för att ange programkod .
6
Klistra in programmet i slutet av detta steg i modulens fönster . programmet itererar genom varje fält kod i det aktuella dokumentet . Om ett fält kod representerar en länkad bild , programmet " unlinks " fältet kod , vilket innebär att det ersatte bildlänk med den faktiska bilden .
Public sub embedImages ( ) katalog
Dim jag
Dim x
Dim nxtField
Set x = ActiveDocument.Fields ( 1 ) katalog
inte ( x Is Nothing ) katalog
Set nxtField = x.Next
p Om x.Type = WdFieldType.wdFieldIncludePicture Sedan
x.Unlink
End If
Set x = nxtField
Wend
End Sub
7
Klicka något uttalande i " Ta bort länk " program du just skrev , tryck " F5 " för att köra programmet .
8
Tryck " Alt " och " F11 " för att återgå till dokumentet . bildfältet koden från steg 3 är borta . Ditt program har ersatt det med bilden . dubbelt Tryck " Alt " och " F9 " för att bekräfta att inga andra " INCLUDEPICTURE " fältkoder finns i dokumentet .
Addera
