CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede bha140795 Nybegynder
04. januar 2007 - 15:41 Der er 6 kommentarer og
2 løsninger

VBA til Word 2003

Jeg skal bruge en VBA kode der gør muligt at få al tekst i en tekstboks, som er placeret i sidehovedet, ind i en variabel. Jeg vil tro at jeg skal bruge en kommando noget i retning af:

text_range = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Select

Men jeg kan ikke få det til at virke.
Avatar billede Flemming Vadet - Smart Office DK Professor
04. januar 2007 - 15:53 #1
Det virker uanset om tekstboksen er i headder eller ej... det hjælper selvfølgelig lige at kende index nummeret eller navnet på tekstboksen.

text_range = ActiveDocument.Shapes(1).TextFrame.TextRange.Text
Avatar billede Flemming Vadet - Smart Office DK Professor
04. januar 2007 - 15:54 #2
dette vil sikkert også virke... dog ikke testet.
text_range = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).TextFrame.TextRange.Text
Avatar billede bha140795 Nybegynder
04. januar 2007 - 17:25 #3
text_range = ActiveDocument.Shapes(1).TextFrame.TextRange.Text virker kun når tekstboksen ikke står i et sidehoved.

text_range = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).TextFrame.TextRange.Text giver mig følgende fejl:

"runtime error 5917
Dette objekt understøtter ikke vedhæftet tekst"
Avatar billede Flemming Vadet - Smart Office DK Professor
04. januar 2007 - 19:23 #4
text_range = ActiveDocument.StoryRanges(wdPrimaryHeaderStory).ShapeRange(1).TextFrame.TextRange.Text
Avatar billede bha140795 Nybegynder
05. januar 2007 - 08:14 #5
desværre - jeg får samme fejl - har du selv testet?
Avatar billede supertekst Ekspert
05. januar 2007 - 18:45 #6
Forslag:

Sub test()
    tekst = hentSidehoved
End Sub
Private Function hentSidehoved()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    hentSidehoved = Selection.Text
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Function
Avatar billede Flemming Vadet - Smart Office DK Professor
05. januar 2007 - 19:01 #7
den sidste jeg har skrevet virker fint... men du skal måske ændre ET-TALLET til noget andet... ellers prøv på et helt nyt dokument.
Avatar billede bha140795 Nybegynder
06. januar 2007 - 09:22 #8
Ja, jeg har fået det til at virke. Tak for det.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Word kurser
Tag et kursus i Word og øg effektiviteten
Se alle Word kurser

Flere spørgsmål fra Word kategorien

Titel Indlæg Oprettet Seneste aktivitet
Foto i Word med tekstboks Af hkprofil i Word 15 12/12/202418:54 13/12/202411:13
Stavekontrol kun på dansk Af brejl i Word 11 10/12/202412:51 10/12/202420:01
Ændring i flettefelt, når man fletter data i en Word fil Af Jens Christiansen i Word 0 08/12/202409:13 -
Tænd sluk ur Af Gustav i Word 2 04/12/202415:17 04/12/202415:44
Sti og filnavn i sidefod Af boro23 i Word 2 27/11/202411:44 27/11/202412:36
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:03 Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
23/1214:43 html <Input.. Danske bogstaver Af pjotre i Andet software
23/1214:35 Brænde musik fra usb drev til cd Af Caso i Andet hardware
21/1222:16 Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42 Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »


Premium
Teaser billede
Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer
Læs mere »
Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter
Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret
Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge
Se alle »
Computerworld
Teaser billede
Mord på it-profil truer San Franciscos status som tech-mekka: Byen er forvandlet til en zombie-by
Læs mere »
Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed
Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR
Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)
Se alle »
CIO
Teaser billede
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Læs mere »
Software-selskabernes prisstigninger får nu danske virksomheder til at søge mod open source
AI er et falmende buzzword: Lad mig fluks dele en god og en dårlig nyhed
En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Se alle »
White paper
Teaser billede
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Læs mere »
Beskyt virksomheden mod trusler – og hold ressourceforbruget nede
Cyberangreb bliver mere kostbare: Er du forberedt?
Sådan gør du: Elektronisk dokumentudveksling i praksis
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »