/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Find papir format i et word dokument?
Fra : knseeberg
Vist : 497 gange
40 point
Dato : 17-03-02 00:57

Hvordan finder jeg et papir format i et word dokument (A4, A3 o.s.v.) ved et kald fra et script eller et program?

 
 
Kommentar
Fra : knseeberg


Dato : 19-03-02 23:38

Dette har jeg prøvet men det giver ikke papirformat. Det giver kun et tal og ikke et papirformat.

Kommentar
Fra : knseeberg


Dato : 19-03-02 23:38

Dette har jeg prøvet men det giver ikke papirformat. Det giver kun et tal og ikke et papirformat.

Accepteret svar
Fra : CADmageren

Modtaget 40 point
Dato : 23-03-02 11:59

Hej knseeberg

Det tal du får ud, svarer til papirstørrelsen, som du kan finde i hjælp.
Her har jeg samlet dem sammen og lavet en funktion.
Den virker for A4-A5. Du må selv udfylde resten.
Hvis du bruger special størrelser, kan det være nødvendigt at bruge .pageheight eller .pagewidth.


Function GetPaperSize() As String
Select Case ActiveDocument.PageSetup.PaperSize
Case wdPaper10x14: Stop
Case wdPaper11x17: Stop
Case wdPaperA3: GetPaperSize = "A3"
Case wdPaperA4: GetPaperSize = "A4"
Case wdPaperA4Small: Stop
Case wdPaperA5: GetPaperSize = "A5"
Case wdPaperB4: Stop
Case wdPaperB5: Stop
Case wdPaperCSheet: Stop
Case wdPaperCustom: Stop
Case wdPaperDSheet: Stop
Case wdPaperEnvelope10: Stop
Case wdPaperEnvelope11: Stop
Case wdPaperEnvelope12: Stop
Case wdPaperEnvelope14: Stop
Case wdPaperEnvelope9: Stop
Case wdPaperEnvelopeB4: Stop
Case wdPaperEnvelopeB5: Stop
Case wdPaperEnvelopeB6: Stop
Case wdPaperEnvelopeC3: Stop
Case wdPaperEnvelopeC4: Stop
Case wdPaperEnvelopeC5: Stop
Case wdPaperEnvelopeC6: Stop
Case wdPaperEnvelopeC65: Stop
Case wdPaperEnvelopeDL: Stop
Case wdPaperEnvelopeItaly: Stop
Case wdPaperEnvelopeMonarch: Stop
Case wdPaperEnvelopePersonal: Stop
Case wdPaperESheet: Stop
Case wdPaperExecutive: Stop
Case wdPaperFanfoldLegalGerman: Stop
Case wdPaperFanfoldStdGerman: Stop
Case wdPaperFanfoldUS: Stop
Case wdPaperFolio: Stop
Case wdPaperLedger: Stop
Case wdPaperLegal: Stop
Case wdPaperLetter: Stop
Case wdPaperLetterSmall: Stop
Case wdPaperNote: Stop
Case wdPaperQuarto: Stop
Case wdPaperStatement: Stop
Case wdPaperTabloid: Stop
End Select

End Function




Med venlig hilsen
www.cadmageren.dk

Michael Christoffersen

"Enkle Løsninger - Stor Effekt"


Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177409
Tips : 31962
Nyheder : 719565
Indlæg : 6407776
Brugere : 218874

Månedens bedste
Årets bedste
Sidste års bedste