• 
  

  hur du tar bort en tom sida i Word i VBA

  
  

Visual Basic for Applications ( VBA ) är det språk som programmerare kan använda för att utöka Words standard funktionalitet . Med VBA kan programmerare automatisera många av de steg-för-steg manuella procedurer som Word -användare regelbundet utföra . Ta bort en tom sida med VBA består huvudsakligen av dessa två uppgifter : välja en sida och avgöra om att urvalet är tom eller inte . En största fördelen med hjälp av VBA för att uppnå dessa uppgifter är den tid som sparas genom att slippa göra dem för hand
1 .
Öppna alla Word- dokument som består av flera sidor . Se till att minst en eller två av sidorna har endast utskrivbara tecken såsom vagnreturer eller sidbrytningar och att de återstående sidorna har minst en skrivbara tecken .
2 .
Öppna VBA integrerad utvecklingsmiljö (IDE ) genom att trycka Alt plus F11 . Tryck på " Infoga " -menyn rubrik , följt av att trycka på " Module " för att infoga en ny modul i ditt dokument . Du kommer att skapa VBA -programmet i denna modul . .
3
Skriv eller klistra in följande subrutinen in den nya koden modulen :



Public Sub deleteBlankPage ()

Selection. GoTo Vad :=wdGoToBookmark , Namn :=" \ sidan "

End Sub



Denna subrutin leder VBA att gå till en specifik , dolda bokmärke Word har för varje dokument. Den dolda bokmärke kallas " \ sida " och hänvisar till sidan fortsätter den aktuella markeringen eller insättningspunkten .
4 .
Typ denna kod i området under uttalande från föregående steg som börjar med " Selection " :



Om isBlankSelection Då

Selection . Ta bort

End If



Denna del av koden leder VBA att anropa en funktion ( som du ska skriva i ett senare steg ) som bestämmer om det aktuella urvalet är tom eller inte . Om det är , leder koden VBA att radera valet
5
Skriv in följande kod efter " End Sub " uttalande att genomföra funktionen " isBlankSelection " : . .





Publik funktion isBlankSelection ( )

För varje C I Selection. Characters

Om ( c <> vbCr och c <> vbTab Och vbFormFeed och c <> " " ) Då

isBlankSelection=False

Exit Funktion

End If

Nästa

isBlankSelection=True

End Function





Denna funktion utför en serie av iterationer ( i. e. "loop " ) genom enskilda tecken i den markerade texten . "Om " kodblock utför en rad tester på karaktären för att avgöra om karaktären är tom . " Blank "definieras som de icke utskrivbara tecken: Vagnretur , fliken form foder eller utrymme . Om den nu testade karaktären är ingen av de nyss nämnda , rapporterar funktionen omedelbart tillbaka " False ", vilket innebär att urvalet inte är tomt.
6 .
Tryck Alt + F11 för att återgå till Word- dokumentet och klicka på någon av sidorna med icke utskrivbara tecken.
7 .
Tryck Alt + F8 för att visa listan med VBA -makron och dubbelklicka sedan på " deleteBlankPage -punkt för att köra makrot . Ditt program kommer att välja , ta sedan bort sidan .
8 .
Klicka på någon sida med synliga tecken och köra programmet igen . Denna gång programmet kommer inte att radera sidan .

Previous：nothing Next：OCX verktyg

Relaterade artiklar