Connect failed: Connection timed out

[GastForen Programme Office Microsoft Office Formel durch Platzhalter ersetzen (Word 2010, WIN)

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Formel durch Platzhalter ersetzen (Word 2010, WIN)

cwenet
Beiträge gesamt: 1139

6. Okt 2013, 11:13
Beitrag # 1 von 5
Bewertung:
(2347 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Guten Tag,

ich möchte gerne im gesamten Worddokument alle Formeln durch einen Platzhalter ((Formel)) ersetzen.

Folgendes Makro findet schonmal alle Formeln und löscht diese.
Jetzt fehlt mir noch an gelöschter Stelle die Ausgabe des Strings: ((Formel)).

Code
Sub formelplatzhalter() 

Dim eq As OMath
For Each eq In ActiveDocument.OMaths
eq.Range.Delete
Next

End Sub


Über Hilfe freue ich mich.
Gruss
Christoph
X

Formel durch Platzhalter ersetzen (Word 2010, WIN)

Henry
Beiträge gesamt: 967

6. Okt 2013, 12:41
Beitrag # 2 von 5
Beitrag ID: #518133
Bewertung:
(2323 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Statt mit eq.Range.Delete zu löschen, sollte das funktionieren,
indem direkt der neue Textinhalt zugewiesen wird: eq.Range.Text = "((Formel))"


als Antwort auf: [#518128]

Formel durch Platzhalter ersetzen (Word 2010, WIN)

cwenet
Beiträge gesamt: 1139

6. Okt 2013, 15:07
Beitrag # 3 von 5
Beitrag ID: #518140
Bewertung:
(2291 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Vielen Dank Henry für die Antwort.

Hat leider nicht geklappt.

Ich hatte ein einseitiges Testdokument mit 2 Formeln.
Word verabschiedet sich.
Nachdem ich Word wieder neu gestartet habe, zeigt das wiederhergestellte Dokument
1 Formel in der der String ((Formel)) platziert wurde. Es ist also technisch immer noch eine Formel.



Hast Du noch eine Idee?
Gruss
Christoph


als Antwort auf: [#518133]

Formel durch Platzhalter ersetzen (Word 2010, WIN)

Henry
Beiträge gesamt: 967

6. Okt 2013, 19:42
Beitrag # 4 von 5
Beitrag ID: #518152
Bewertung:
(2265 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Eine Idee schon:
Code
Sub formelplatzhalter() 
Dim eq As OMath
For Each eq In ActiveDocument.OMaths
eq.Range.Delete
eq.Range.Select
Selection.Text = "((Formel))"
Next
End Sub

Allerdings wird beim "Delete"n der Formeln von Word dank "Autointelligenz" ggf. ein (nachfolgendes) Leerzeichen mit weggelöscht, grrrr - also perfekt ist das so noch nicht :-(


als Antwort auf: [#518140]

Formel durch Platzhalter ersetzen (Word 2010, WIN)

cwenet
Beiträge gesamt: 1139

6. Okt 2013, 20:04
Beitrag # 5 von 5
Beitrag ID: #518156
Bewertung:
(2251 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Lieben Dank, Henry,

so ist es prima. Die meisten Formeln stehen sowieso alleine in einem Absatz.

Vielleicht kann man diese Autointelligenz temporär abschalten?

In den Word-Optionen habe ich auf die Schnelle nichts passendes finden können.

Gruss
Christoph


als Antwort auf: [#518152]
X