Søg
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
VB script Af Jenshentze i Word 3 06/09/202611:47 02/10/202623:09
Kan man få Word viewer gratis Af Strawberry i Word 2 27/08/202621:03 28/08/202605:14
Lokal konto? Af Jytte i Word 7 21/06/202620:16 24/06/202606:52
Opret Logo via bogmærke og placer en knap på et Dotx dokument Af per2edb i Word 0 22/04/202613:38 -
Indholdsfortegnelse ændrer sig, når jeg gemmer som PDF Af Jan K i Word 7 08/04/202610:38 10/04/202612:12
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 dag 01:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
I går 20:16 Snapchat Af made18 i Apps til iOS
31/1013:01 Måned og år på graf Af mort1 i Excel
31/1012:28 2 diske Af dcedata1977 i Andet hardware
31/1012:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
White papers
Flere white papers »