Haves adresseetiketter i Word doc 7 x 3 etiketter ønskes flettefil i excel

Via en VBA-rutine kan det lade sig gøre - er i gang med et eksemel.

Vender tilbage..

Rem Koden anbringes i ThisDocument (Alt+F11) i Worddokumentet
Rem Tabellen i Word traverseres og de linier i en adresse skrives i en semikolon-
Rem separeret tekstfil. Denne importeres så i Excel for brevfletning.
Rem
Rem Koden igangsættes fra Word Alt+F8 - afspil makroen "overførFraWordTilTextFil
Rem
Rem Textfilen importeres i Excel: Data / Importer eksterne data / importer - udpeg filen ;-separeret
Rem ================================================================================================
Sub overførFraWordTilTextFil()
Dim antalRæk, antalTabeller, adr As Variant, linje As String
    Open "c:\adressefil.txt" For Output As #1          '<<------ kan justeres

    antalTabeller = ActiveDocument.Tables.Count
    With ActiveDocument
        For tabel = 1 To antalTabeller
            antalrækker = .Tables(tabel).Rows.Count
            For række = 1 To antalrækker
                For kolonne = 1 To 3
                    adresse = .Tables(tabel).Cell(række, kolonne)
                    adr = Split(adresse, vbCr)
                   
                    linje = ""
                    For ix = 0 To UBound(adr) - 1
                        If ix < UBound(adr) - 1 Then
                            linje = linje + adr(ix) + ";"
                        Else
                            linje = linje + adr(ix)
                        End If
                    Next ix
                   
                    Print #1, linje
                   
                Next kolonne
            Next række
        Next tabel
    End With
   
    Close #1
    MsgBox ("Tekstfilen er opbygget")
End Sub

Jeg kipper med flaget - det virker herren hjælpemig
det var rigeligt 30 point værd - hvis det er for lidt undskylder jeg, jeg er helt grøn i dette forums spilleregler

Det er ok - da du faktisk også flager på min fødselsdag - så er 30 fint...

HEJ IGEN

Hvad så, hvis der er 8 x 3 labels pr side  jeg har testet den, men den henter ikke alle adr ind

- jeg glemte lige 7x3 kører ok

Skal se på det.....

Har testet med et dokument med 2 tabeller - første 7 x 3 på næste side 8 x 3 - alle adresser blev overført til tekstfilen/regneark.

Får ikke tid i næste uge, men derefter kan du evt. sende det Worddokument,der ikke vil lykkes. (e-mail under min profil)