CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede henrik1975 Nybegynder
10. januar 2006 - 16:54 Der er 1 kommentar

Tabeller i Word

Jeg har et worddokument som består af en serie tabeller. Jeg vil gerne have en overskrift med tabelnummer tilføjet vha. visual basic.

Jeg prøver at gøre det med:

For Each oSec In WordApp.ActiveDocument.Sections

            iTab = -1

            For Each oTab In oSec.Range.Tables

                iTab = iTab + 1
                sTab = CStr("Table " & oSec.Index & "." & iTab)

                oTab.Range.Next.InsertBefore sTab & vbCrLf & vbCrLf

            Next oTab

        Next oSec

Men så havner tabelnumrene under de enkelte tabeller. Hvordan får jeg dem flytter op over tabellerne istedet?
Avatar billede supertekst Ekspert
12. januar 2006 - 10:24 #1
Kan dette anvendes - søger tabeller og ikke sektioner:

Sub tabeller2()
Dim antalTabeller
    WordBasic.startofdocument
    antalTabeller = ActiveDocument.Tables.Count
   
    If antalTabeller > 0 Then
        For f = 0 To antalTabeller - 1
            Selection.GoTo What:=wdGoToTable, Count:=f + 1
            WordBasic.lineup
            WordBasic.Insert "Table " & f & "." & vbCrLf & vbCrLf
        Next f
    End If
End Sub
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
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 11:44 Sti og filnavn i sidefod Af boro23 i Word
I dag 11:02 Zyxel Multy U netværk Af jcr18 i Wifi
I dag 08:52 DOWNLOAD TIL SAMME MAPPE Af snestrup2000 i Browsere
I dag 00:54 Windows 11 Pro - IIS Af bsn i Windows
I går 18:46 Omdanne stik på router til USB Af valby i Routere & Switches
White papers
Flere white papers »


Premium
Teaser billede
Kunderne raser, og priserne er eksploderet: Alligevel er salget af VMware en kæmpe-succes
Læs mere »
Boghandler er blevet en af Danmarks førende eksperter i Microsoft Teams: "Til at begynde med virkede det fuldstændig uopnåeligt"
Bryder ind i alle typer smartphones: Politiet bruger israelsk hackervåben mod bander
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Se alle »
Computerworld
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Sådan: Én løsning til compliance, sikkerhed og overblik
Læs mere »
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
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 »