Auf Thema antworten 2025

Beitrag

<blockquote data-quote="HansjoergOtt" data-source="post: 2781780" data-attributes="member: 77873">Hallo,ich habe vor 25 Jahren einige hilfreiche Makros für meine tägliche Arbeit mit WORD geschrieben und damit auch sehr zufrieden gearbeitet. Nun taucht nach dem letzten Update bei einem Makro die Fehlermeldung &quot;Dieser Befehl ist nicht verfügbar&quot; (Laufzeitfehler 4605) auf. Ich kann mir das nicht erklären, denn ich habe ja an den Makros nichts verändert. Das Makro hängt sich an dieser Stelle auf:Selection.PasteAndFormat (wdPasteDefault)Zum Hintergrund:Das Makro soll aus einem bestehenden Text bestimmte Zeilen &quot;herausfiltern&quot; und in eine neue Datei ausgeben. Das hat auch die letzten 25 Jahr tadellos funktioniert.Sicherlich hat jemand eine Idee, woran es liegt, dass das Makro plötzlich nicht mehr funktioniert. Vielen Dank!Herzliche GrüßeHans-Jörg________________________Hier noch der gesamte Quellcode, der seit 25 Jahren besteht:[CODE]Dim Lied$()Public Sub LiederlisteDrucken()&#039;&#039; LiederlisteDrucken Makro&#039; Stellt die Lieder eines Gottesdienstes zu einer Liste zusammen&#039;Dim x As IntegerReDim Lied$(20)Selection.HomeKey Unit:=wdStoryx = 1&#039;&#039; LiedSuchen Makro&#039;&nbsp; &nbsp; Selection.Find.ClearFormatting&nbsp; &nbsp; Selection.Find.Style = ActiveDocument.Styles(&quot;Lied&quot;)&nbsp; &nbsp; With Selection.Find&nbsp; &nbsp; &nbsp; &nbsp; .Text = &quot;Lied&quot;&nbsp; &nbsp; &nbsp; &nbsp; .Forward = True&nbsp; &nbsp; &nbsp; &nbsp; .Wrap = wdFindContinue&nbsp; &nbsp; &nbsp; &nbsp; .Format = True&nbsp; &nbsp; &nbsp; &nbsp; .MatchCase = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchWholeWord = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchWildcards = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchSoundsLike = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchAllWordForms = False&nbsp; &nbsp; &nbsp; &nbsp; Do While .Execute(FindText:=&quot;&quot;, Forward:=True, Format:=True) = True&nbsp; &nbsp; &nbsp; &nbsp; Selection.EndKey Unit:=wdLine, Extend:=wdExtend&nbsp; &nbsp; &nbsp; &nbsp; Lied$(x) = Selection.Range&nbsp; &nbsp; &nbsp; &nbsp; x = x + 1&nbsp; &nbsp; &nbsp; &nbsp; Selection.MoveDown Unit:=wdLine, Count:=1&nbsp; &nbsp; &nbsp; Loop&nbsp; &nbsp; &nbsp; End With&#039;&#039;Name des Sonntags kopieren&#039;&nbsp; &nbsp; With Selection&nbsp; &nbsp; &nbsp; &nbsp; .HomeKey Unit:=wdStory&nbsp; &nbsp; &nbsp; &nbsp; .EndKey Unit:=wdLine, Extend:=wdExtend&nbsp; &nbsp; &nbsp; &nbsp; .Copy&nbsp; &nbsp; End With&nbsp; &#039;&#039; Liederliste - Neues Dokument&#039;&nbsp; &nbsp; Documents.Add DocumentType:=wdNewBlankDocument&nbsp; &nbsp; Selection.PasteAndFormat (wdPasteDefault)&nbsp; &nbsp; Selection.TypeParagraph&nbsp; &nbsp; For y = 1 To x - 1&nbsp; &nbsp; Selection.InsertAfter Text:=Lied$(y)&nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; Selection.Find.ClearFormatting&nbsp; &nbsp; Selection.Find.Replacement.ClearFormatting&#039;&#039; Liederliste - Titel festlegen&#039;&nbsp; &nbsp; With Selection.Find&nbsp; &nbsp; &nbsp; &nbsp; .Text = &quot;Liturgie&quot;&nbsp; &nbsp; &nbsp; &nbsp; .Replacement.Text = &quot;Lieder&quot;&nbsp; &nbsp; &nbsp; &nbsp; .Forward = True&nbsp; &nbsp; &nbsp; &nbsp; .Wrap = wdFindContinue&nbsp; &nbsp; &nbsp; &nbsp; .Format = True&nbsp; &nbsp; &nbsp; &nbsp; .MatchCase = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchWholeWord = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchWildcards = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchSoundsLike = False&nbsp; &nbsp; &nbsp; &nbsp; .MatchAllWordForms = False&nbsp; &nbsp; End With&nbsp; &nbsp; Selection.Find.Execute Replace:=wdReplaceAll&nbsp; &nbsp; &nbsp; Selection.MoveDown Unit:=wdLine, Count:=1&#039;&#039; Liederliste - Empfänger einfügen&#039;&nbsp; &nbsp; With Selection&nbsp; &nbsp; &nbsp; &nbsp; .TypeParagraph&nbsp; &nbsp; &nbsp; &nbsp; .InsertSymbol Font:=&quot;Wingdings&quot;, CharacterNumber:=-3982, Unicode:=True&nbsp; &nbsp; &nbsp; &nbsp; .TypeText Text:=vbTab &amp; &quot;Frau Christel Heimann&quot;&nbsp; &nbsp; &nbsp; &nbsp; .TypeParagraph&nbsp; &nbsp; &nbsp; &nbsp; .InsertSymbol Font:=&quot;Wingdings&quot;, CharacterNumber:=-3982, Unicode:=True&nbsp; &nbsp; &nbsp; &nbsp; .TypeText Text:=vbTab &amp; &quot;Herr Walter Klotz&quot;&nbsp; &nbsp; &nbsp; &nbsp; .TypeParagraph&nbsp; &nbsp; &nbsp; &nbsp; .InsertSymbol Font:=&quot;Wingdings&quot;, CharacterNumber:=-3982, Unicode:=True&nbsp; &nbsp; &nbsp; &nbsp; .TypeText Text:=vbTab &amp; &quot;Herr Ortwin Scharf&quot;&nbsp; &nbsp; End With&nbsp; End Sub[/CODE]</blockquote>

[QUOTE="HansjoergOtt, post: 2781780, member: 77873"] Hallo, ich habe vor 25 Jahren einige hilfreiche Makros für meine tägliche Arbeit mit WORD geschrieben und damit auch sehr zufrieden gearbeitet. Nun taucht nach dem letzten Update bei einem Makro die Fehlermeldung "Dieser Befehl ist nicht verfügbar" (Laufzeitfehler 4605) auf. Ich kann mir das nicht erklären, denn ich habe ja an den Makros nichts verändert. Das Makro hängt sich an dieser Stelle auf: Selection.PasteAndFormat (wdPasteDefault) Zum Hintergrund: Das Makro soll aus einem bestehenden Text bestimmte Zeilen "herausfiltern" und in eine neue Datei ausgeben. Das hat auch die letzten 25 Jahr tadellos funktioniert. Sicherlich hat jemand eine Idee, woran es liegt, dass das Makro plötzlich nicht mehr funktioniert. Vielen Dank! Herzliche Grüße Hans-Jörg ________________________ Hier noch der gesamte Quellcode, der seit 25 Jahren besteht: [CODE]Dim Lied$() Public Sub LiederlisteDrucken() ' ' LiederlisteDrucken Makro ' Stellt die Lieder eines Gottesdienstes zu einer Liste zusammen ' Dim x As Integer ReDim Lied$(20) Selection.HomeKey Unit:=wdStory x = 1 ' ' LiedSuchen Makro ' Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Lied") With Selection.Find .Text = "Lied" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Do While .Execute(FindText:="", Forward:=True, Format:=True) = True Selection.EndKey Unit:=wdLine, Extend:=wdExtend Lied$(x) = Selection.Range x = x + 1 Selection.MoveDown Unit:=wdLine, Count:=1 Loop End With ' 'Name des Sonntags kopieren ' With Selection .HomeKey Unit:=wdStory .EndKey Unit:=wdLine, Extend:=wdExtend .Copy End With ' ' Liederliste - Neues Dokument ' Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) Selection.TypeParagraph For y = 1 To x - 1 Selection.InsertAfter Text:=Lied$(y) Next Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting ' ' Liederliste - Titel festlegen ' With Selection.Find .Text = "Liturgie" .Replacement.Text = "Lieder" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveDown Unit:=wdLine, Count:=1 ' ' Liederliste - Empfänger einfügen ' With Selection .TypeParagraph .InsertSymbol Font:="Wingdings", CharacterNumber:=-3982, Unicode:=True .TypeText Text:=vbTab & "Frau Christel Heimann" .TypeParagraph .InsertSymbol Font:="Wingdings", CharacterNumber:=-3982, Unicode:=True .TypeText Text:=vbTab & "Herr Walter Klotz" .TypeParagraph .InsertSymbol Font:="Wingdings", CharacterNumber:=-3982, Unicode:=True .TypeText Text:=vbTab & "Herr Ortwin Scharf" End With End Sub[/CODE] [/QUOTE]

Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

Authentifizierung

Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das vierte Wort!