Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie

#1
VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie
Witam,
Mam makro w wordzie:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "section"
.Replacement.Text = "Sekcja"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Wyszukuje słowo "section" i zamienia na "sekcja" w całym dokumencie. Jak to zrobić dla Powerpointa? Proszę o pomoc. Bardzo pilne.

Pozdrawiam.
 System operacyjny: windows_seven Przeglądarka: chrome
#2
RE: VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie
A nie prościej: Edycja > Znajdź > Zamień wszystko ?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie
To będzie parę słów. Wystarczy mi przykład do jednego, ale domyślnie ma być makro (jeden przycisk), który zmienia wiele- oszczędza dużo czasu.
Dla potomności. Ktoś z innego forum zabłysnąłWesoły
Sub zamiana_SensetiveCase()
'MVP OShon from VBATools.pl
Dim shp As Shape, sl&
For sl = 1 To ActivePresentation.Slides.Count
For Each shp In ActivePresentation.Slides(sl).Shapes
With shp.TextFrame.TextRange
.Text = Replace(.Text, _
Find:="ala ma kota", _
Replace:="zamieniono")
End With
Next
Next sl
End Sub

Sub zamiana_SensetiveUniSex()
'MVP OShon from VBATools.pl
Dim shp As Shape, sl&
For sl = 1 To ActivePresentation.Slides.Count
For Each shp In ActivePresentation.Slides(sl).Shapes
With shp.TextFrame.TextRange
.Text = Replace(LCase(.Text), _
Find:="ala ma kota", _
Replace:="zamieniono")
End With
Next
Next sl
End Sub
 System operacyjny: windows_seven Przeglądarka: chrome
#4
RE: VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie
Nowy moduł:
Kod:
Option Explicit

Sub ReplaceText()
    
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    Dim strWhatReplace As String, strReplaceText As String
    
    strWhatReplace = "section"
    strReplaceText = "sekcja"
    
    For Each oSld In ActivePresentation.Slides
        For Each oShp In oSld.Shapes
            Set oTxtRng = oShp.TextFrame.TextRange
            Set oTmpRng = oTxtRng.Replace( _
            FindWhat:=strWhatReplace, _
            Replacewhat:=strReplaceText, _
            WholeWords:=True)
            
            Do While Not oTmpRng Is Nothing
                Set oTxtRng = oTxtRng.Characters _
                (oTmpRng.Start + oTmpRng.Length, oTxtRng.Length)
                Set oTmpRng = oTxtRng.Replace( _
                FindWhat:=strWhatReplace, _
                Replacewhat:=strReplaceText, _
                WholeWords:=True)
            Loop
        Next oShp
    Next oSld
End Sub

PS. Kod wyszuka "section" i "Section", ale zamieni oba przypadki na "sekcja".
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne



Użytkownicy forum szukali:
powerpoint zamiana danych słówvba jak zamienić tekst w power pointvba zamień

Podobne wątki (VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  VBA excel dmjs 6 8987 17.04.2019, 10:20
Ostatni post: ptrick
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 9494 19.12.2018, 16:45
Ostatni post: Szachista
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 12059 19.06.2018, 23:24
Ostatni post: broda99

Skocz do:


Wybrane wątki (VBA w Powerpoint- zamiana danego tekstu na inny w całym dokumencie)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
Ściana Klika pytań plz pomóżcie Samek2222 1 437 22.03.2020 18:59
Ostatni post: Ajgor
  Pytanie - programowanie batch [cmd] Max23 0 473 20.03.2020 01:03
Ostatni post: Max23
  Visual Studio Code- zmiana folderu rozszerzeń Physicist 3 1037 13.03.2020 13:19
Ostatni post: koneton
  Oczekiwanie na Akcje przycisku wanhelsing 8 1575 01.03.2020 19:44
Ostatni post: Szachista
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 1910 09.02.2020 15:58
Ostatni post: dzikuu86
  Skrypt pod sklep internetowy Talcia 4 4373 14.12.2019 19:48
Ostatni post: hexopex760
  Poszukuję pomysłu na prosty program ;) janciu96 5 10829 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 2990 11.12.2019 18:30
Ostatni post: Informatyk2019
  [JavaScript] Znajdowanie przedziału czasu rafal12999 0 1327 10.12.2019 17:58
Ostatni post: rafal12999
  Przekazywanie wskaźnika przez referencję w Qt Trojan3000 3 10622 10.12.2019 13:16
Ostatni post: Ajgor
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 1827 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 5175 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 3994 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 4357 22.10.2019 17:48
Ostatni post: Szachista
  Książki do nauki C# olek23 14 14613 17.10.2019 13:06
Ostatni post: Ajgor