Informationen zum Forum Inventor VBA:
Anzahl aktive Mitglieder: 735
Anzahl Beiträge: 9.230
Anzahl Themen: 1.924

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 2, 2 Gesamtergebnisse mit Suchbegriffen mtexte suchen und ersetzen sec.
Inventor VBA : Text in DrawingView Sketch ersetzen
DanSolo am 04.03.2016 um 08:16 Uhr (1)
Guten Morgen, Ich denke das sollte seinen Dienst tun.Wenns noch Fragen dazu gibt, gerne Sub ReplaceText() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oSheet As Sheet Dim oView As DrawingView Dim oSketch As DrawingSketch Dim oText As TextBoxFor Each oSheet In oDrawing.Sheets For Each oView In oSheet.DrawingViews For Each oSketch In oView.Sketches oSketch.Edit For Each oText In oSketch.TextBoxes oText.Text = Replace(oText.Text, "Hallo", "neuerTe ...
In das Form Inventor VBA wechseln
Inventor VBA : Text in DrawingView Sketch ersetzen
DanSolo am 04.03.2016 um 09:53 Uhr (1)
Ja, da müssen wir auf den "FormattedText" gehen, da sollten alle Formatierungen erhalten bleiben. Sub ReplaceText() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oSheet As Sheet Dim oView As DrawingView Dim oSketch As DrawingSketch Dim oText As TextBoxFor Each oSheet In oDrawing.Sheets For Each oView In oSheet.DrawingViews For Each oSketch In oView.Sketches oSketch.Edit For Each oText In oSketch.TextBoxes oText.FormattedText = Replace(oText.For ...
In das Form Inventor VBA wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2026 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz