hilfdirselbst.ch
Facebook Twitter gamper-media
cwenet S
Beiträge: 855
6. Okt 2013, 11:13
Beitrag #1 von 5
Bewertung:
(1659 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Formel durch Platzhalter ersetzen (Word 2010, WIN)


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
Top
 
X
Henry
Beiträge: 749
6. Okt 2013, 12:41
Beitrag #2 von 5
Beitrag ID: #518133
Bewertung:
(1636 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Formel durch Platzhalter ersetzen (Word 2010, WIN)


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] Top
 
cwenet S
Beiträge: 855
6. Okt 2013, 15:07
Beitrag #3 von 5
Beitrag ID: #518140
Bewertung:
(1604 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Formel durch Platzhalter ersetzen (Word 2010, WIN)


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] Top
 
Henry
Beiträge: 749
6. Okt 2013, 19:42
Beitrag #4 von 5
Beitrag ID: #518152
Bewertung:
(1578 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Formel durch Platzhalter ersetzen (Word 2010, WIN)


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] Top
 
cwenet S
Beiträge: 855
6. Okt 2013, 20:04
Beitrag #5 von 5
Beitrag ID: #518156
Bewertung:
(1564 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Formel durch Platzhalter ersetzen (Word 2010, WIN)


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] Top
 
X