export fra excel til label ark i word

Det skulle nok kunne lade sig gøre via VBA
Er det brevfletning du vil udføre i Word?
God ide at uploade...

Prøv at søge i Excel kategorien og brug søgeordet Word, f.eks dette:

http://www.eksperten.dk/spm/608407

Var det en ide, at få en stump VBA, der adskiller de enkelte felter i kolonnne 1 - overføre dem til hver sin kolonne i et andet ark (kolonne 2 kommer naturligvis med) -således at du direkte kan anvende dette ark til brevfletning i Word?

kan du være behjælpelig med det? http://www.kornum.info/adresser.xls http://www.kornum.info/labels.doc

ups defekt link prøv her http://kornum.info/filer/

Følgende kode indsættes i XLS.filen - VBA-vinduet (Alt+F11) - ThisWorkbook:
Ark 1 gennemlæses - felter flyttes til ark 2 med start i række 2, da jeg manuelthar indsat overskrifter. Navn | Adresse | Postnr By | Att. i række 1 - af hensyn til brevfletningen:

Hvis du ønsker det kan hele xls-filen sendes - send en mail til: pb@supertekst-it.dk
====================================================================================

Dim navn, adresse, postnrBy, att
Dim a2Ræk
Sub workbook_activate()
    Sheets(1).Select
   
    sv = MsgBox("Opbyg til etiketter", vbYesNo)
    If sv = 6 Then
        adskilFelter
       
        MsgBox ("Opbygning er afsluttet")
        Sheets(2).Select
        ActiveSheet.Columns.AutoFit
    End If
   
End Sub
Private Sub adskilFelter()
Dim ræk, maxRæk
    With ActiveWorkbook.Sheets(1)
        .Cells(1, 1).Select
        maxrække = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = 1 To maxrække
            felt = .Cells(ræk, 1)
            If Right(felt, 1) <> "," Then
                felt = felt + ","
            End If
       
            navn = hentDelfelt(felt)
            adresse = hentDelfelt(felt)
            postnrBy = hentDelfelt(felt)
            att = .Cells(ræk, 2)
           
            indsætFelter ræk + 1
        Next ræk
    End With
End Sub
Private Function hentDelfelt(felt)
Dim p
    p = InStr(felt, ",")
    If p > 0 Then
        hentDelfelt = Left(felt, p - 1)
        felt = Mid(felt, p + 1)
    End If
End Function
Private Sub indsætFelter(ræk)
    With ActiveWorkbook.Sheets(2)
        .Cells(ræk, 1) = navn
        .Cells(ræk, 2) = adresse
        .Cells(ræk, 3) = postnrBy
       
        If att <> "" Then
            .Cells(ræk, 4) = "Att.: " + att
        End If
    End With
End Sub

lukketid?