hvordan du fjerner en tom side i ord i VBA

Indlæg af Allan Busk-Mathiasen     opdateret: 2012-01-08

Visual Basic for Applications ( VBA ) er det sprog, programmører bruger til at udvide Word 's standard funktionalitet . Med VBA , kan programmører automatisere mange af de trin -for-trin vejledning procedurer , som Word brugere regelmæssigt gennemføre . Fjernelse en tom side med VBA består hovedsagelig af disse to opgaver : at vælge en side og vurdere, hvorvidt denne udvælgelse er tom eller ej. En væsentligste fordel ved at bruge VBA til at opnå disse opgaver er tiden reddet fra ikke at skulle gøre dem i hånden
1 .
Åbn et Word- dokument består af flere sider . Sørg for , at mindst én eller to af siderne kun har udskrives tegn som retur -eller sideskift , og at de resterende sider har mindst én udskrives tegn .
2 .
Åbn VBA integreret udviklingsmiljø ( IDE ) ved at trykke Alt plus F11 . Tryk på " Indsæt " menuen overskriften , efterfulgt af at trykke på " Modul " for at indsætte et nyt modul i dit dokument . Skal du oprette VBA -programmet i dette modul . .
3
Skriv eller indsæt følgende underprogram i den nye kode modul :

Public Sub deleteBlankPage ( )

Selection. GoTo Hvad :=wdGoToBookmark , Navn :=" \ side "
End Sub

Denne subrutine dirigerer VBA at gå til en bestemt , skjult bogmærke, Word fastholder for hvert dokument. Den skjulte bogmærke kaldes " \ side " og henviser til den side fortsatte den nuværende markering eller indsættelsespunktet .
4 .
Skriv denne kode ind i området under den erklæring fra det foregående trin , der begynder med " Selection " :

Hvis isBlankSelection Så
Selection . Slet
End If

Denne del af koden dirigerer VBA til at kalde en funktion ( som du skriver i et senere trin ) , der bestemmer om den aktuelle valg er tom eller ej. Hvis det er , den kode dirigerer VBA for at slette valget
5
Skriv følgende kode efter " End Sub " erklæring til at gennemføre funktionen " isBlankSelection " : .



Public Function isBlankSelection ( )
For Each c I Selection. Characters
Hvis ( c <> vbCr Og c <> vbTab Og c <> vbFormFeed Og c <> " " ) Derefter
isBlankSelection=False
Exit Funktion
End If
Næste
isBlankSelection=True
End Function



Denne funktion udfører en række iterationer ( i. e. " loop " ) gennem de enkelte karakterer for den aktuelt valgte tekst . Den " hvis " kodeblokken udfører en række test på tegnet til at afgøre, om tegnet er tom . " Blank " er defineret som disse udskrives tegn : Carriage Return , fanen form foder eller rum. Hvis den aktuelt afprøvede karakter er ingen af de netop nævnte , den funktion umiddelbart rapporter tilbage " Falsk ", hvilket betyder , at udvælgelsen ikke er tom .
6 .
Tryk Alt + F11 for at vende tilbage til Word-dokumentet , og klik på en af siderne med udskrives tegn .
7 .
Tryk Alt + F8 for at få vist listen over VBA -makroer , derefter dobbeltklik på " deleteBlankPage " element til at køre makroen . Deres program vil vælge , så slette siden .
8 .
Klik på en side med synlige tegn og køre programmet igen . Denne gang vil programmet ikke slette siden .


Previous:hvad er Komodo rubin debugger ? Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change