CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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.

Synes godt om

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

Synes godt om

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

Synes godt om

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"

Synes godt om

Flemming Vadet - Smart Office DK Professor

04. januar 2007 - 19:23 #4

text_range = ActiveDocument.StoryRanges(wdPrimaryHeaderStory).ShapeRange(1).TextFrame.TextRange.Text

Synes godt om

bha140795 Nybegynder

05. januar 2007 - 08:14 #5

desværre - jeg får samme fejl - har du selv testet?

Synes godt om

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

Synes godt om

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.

Synes godt om

bha140795 Nybegynder

06. januar 2007 - 09:22 #8

Ja, jeg har fået det til at virke. Tak for det.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Hævet og sænket skift i Word på mac Af Supersejemig i Word	1	14/06/202414:32	14/06/202416:35
Hvide streger langs kanter i tabel Af Stine i Word	2	24/05/202410:13	24/05/202410:29
Udskrive logo på kuvert Af lurup i Word	2	06/05/202420:43	07/05/202408:39
Spalter Af Nysum i Word	1	24/04/202418:28	24/04/202422:37
Hjælp til flettefiler Af Vicky i Word	2	17/04/202409:37	17/04/202413:06

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS