Bedste løsning til referat-opsamling

Prøv at beskriv omstændigheder lidt nærmere - formål, omgivelser m.v. - fordi du nu har valgt Excel :-)

Er der separate titler / stikord kan kan sorteres / filtreres  efter?

Rimeligt krav, supertekst :). Here goes:

Jeg har et ark, hvor jeg har dato, titel og referent i tre seperate kolonner. Så er der den sidste kolonne der indeholder selve referatet. I denne havde jeg tidligere blot tekst (som så oplevede de nævnte begrænsninger), og siden et word-objekt (som så oplevede de andre nævnte begrænsninger :). Ovenfor hver kolonneoverskrift er der en knap "Nyt referat", hvor der kører en kode, der indsætte en ny linje over den øverste "ikke" overskrift række, kopierer dens formater og sletter indhold, så det bliver en "frisk" linje.

Pointen er, at man kan oprette en bunke referater, og siden sortere og filtrere i dem i samme dokument, frem for at rode rundt i en masse Word-filer. Jeg synes selv, at tanken er smart nok, men har lidt problemer med selve implementeringen :).

Giver det mening?

En mulighed er at indsætte et link i stedet for word-objektet. Et link vil opføre sig som en tekst og vil derfor blive sorteret med.

Linket skal linke til worddokumenterne som gemmes i en folder.

Yeah... men så har man stadig alle de word-dokumenter at holde rede på, og der skal være en der opdaterer excel-filen med links hver gang der er oprettet et nyt referat. Det bliver ikke en løsning brugerne tager til sig :(. Granted, man har stadig sorterings- og filtreringsfunktionen, men der er for meget administration i det. Tak for forslaget, though :).

Jeg kan ikke genkende det, du skriver her

Udfordringerne:
- Brugerne skal klikke Alt + Enter for at lave linjeskift, og det er ikke Excel-kyndige brugere
- Der er en grænse på 409 tegn i højden på hvor meget tekst, der kan vises

Jeg har ingen problemer, hverken med at undgå Alt+Enter eller med flere end 449 tegn.

Hans

gladhund!
Tak for forklaringen - vil se på det i ledige stunder..

PS: var det muligt at få en kopi af den omtalte Excel-fil m/et dummy-referat?

Hvis Ja - @-adresse under profil.

Thanx supertekst - jeg har sendt filen til dig :).

Har ikke modtaget filen endnu??

Optimering af nyt "referat":

Sub NytReferat()

' NytReferat Makro  / Ajf. Supertekst den 15-06-2010

Const skabelonSti = "indsæt stien til det dokument, der skal fungere som lig en skabelon - har anvendt et .docx"
Dim sh As Shape, navn As String, tal As Byte, højesteNr As Byte

Rem find højesteObjectNr
    højesteNr = 0
   
    For Each sh In ActiveSheet.Shapes
        navn = LCase(sh.Name)
        If InStr(navn, "object") = 1 Then
            sh.Select
            tal = Mid(navn, 8)
           
            If tal > højesteNr Then
                højesteNr = tal
                venstre = sh.Left
                toppen = sh.Top
            End If
        End If
    Next sh
   
    Rows("7:7").Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Range("B7:D7").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B7").Select
           
Rem slet kopierede object
    For Each sh In ActiveSheet.Shapes
        navn = LCase(sh.Name)
        If InStr(navn, "object") = 1 Then
            tal = Mid(navn, 8)
           
            If tal > højesteNr Then
                sh.Select
                sh.Delete
                Exit For
            End If
        End If
    Next sh
   
    Range("E7").Select
       
Rem Dokument-objektet indsættes som en slags skabelon
    ActiveSheet.OLEObjects.Add(Filename:= _
        skabelonSti _
        , Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\PROGRA~1\MICROS~2\Office12\WINWORD.EXE", IconIndex:=0, IconLabel:= _
        "Word 2007 document" _
        ).Select

    For Each sh In ActiveSheet.Shapes
        navn = LCase(sh.Name)
        If InStr(navn, "object") = 1 Then
            tal = Mid(navn, 8)
           
            If tal > højesteNr Then
                sh.Select
                højesteNr = tal
                sh.Left = venstre
                sh.Top = toppen    'OBS skal stå 2 gange
                sh.Top = toppen
                Exit For
            End If
        End If
    Next sh

    Range("B7").Select
End Sub