PowerPoint - Sammenkædning af ord

Alt hvad der skal vises på flere sider, kan med fordel indsættes på masterside.

Hvilken version af PowerPoint anvender du?

Hej Erik.

Jeg anvender 2007. Tror ikke det kan indsættes i diasmasteren, da ordet indgår i forskellige sammenhænge.

Måske via VBA..

Et spørgsmål - hvorfor kan søg og erstat ikke anvendes?

Ps: Har måske en programmeret løsning..

Hej igen.

Beklager, at jeg første vender tilbage nu. Søg og erstat er ikke en mulighed, fordi der er mange forskellige, som skal benytte dokumentet, og at de sandsynligvis ikke kan styre det. Alt trækker automatisk, så de skal kun indtaste få ting i en exceluserform, så klarer vba resten. Jeg er desværre ikke skarp til vba i pp, så hvis du har en løsning "supertekst" ville det være genialt.

På forhånd tak for hjælpen.

Hej Gnilbo - godt nytår

Ok - har konstrueret system (visning af energiforbrug), der via VBA i Excel opdatere grafik i PowerPoint, uden at PP-filen blev åbnet på manuel vis - d.v.s. at der ikke var noget VBA i PP-filen.

Så det skulle kunne lade sig gøre.

Denne kode hidrører fra en Userform i PP (lille demo). Der er 2 tekstbokse t/Søg efter og Erstat med.
------

Private Sub CommandButton1_Click()
    If Me.TextBox1 <> "" And Me.TextBox2 <> "" Then
        udførSøgOgErstat Me.TextBox1, Me.TextBox2
    End If
End Sub
Private Sub udførSøgOgErstat(søgEfter, erstatMed As String)
Dim oSld As Slide, dias As Integer
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
   
    For dias = 1 To Application.ActivePresentation.Slides.Count
        Set oSld = Application.ActivePresentation.Slides(dias)
       
        For Each oShp In oSld.Shapes
            Set oTxtRng = oShp.TextFrame.TextRange
            Set oTmpRng = oTxtRng.Replace(FindWhat:=søgEfter, _
                Replacewhat:=erstatMed, WholeWords:=True)
            Do While Not oTmpRng Is Nothing
                Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _
                    oTxtRng.Length)
                Set oTmpRng = oTxtRng.Replace(FindWhat:=søgEfter, _
                    Replacewhat:=erstatMed, WholeWords:=True)
            Loop
        Next oShp
    Next dias
End Sub

Hej igen

Tak for hjælpen.

Hvordan tildeler jeg point og er 100 nok?

Hej

Selv tak. 100 p er ok.

Jeg lægger et SVAR(opgavestiller skal ikke anvende SVAR - se forklaringen herover). Du afviser dit eget svar og accepterer mit - så'det..

Det gør jeg så nu.. :-)