PDA

Vollständige Version anzeigen : Makro/Autokorrektur/Chemische Formeln


heymanjasi
10.05.2001, 22:29
Ich möchte 1000 Chemische Formeln* mit einfache kurze Codewörter# eingeben in die Autokorrektur.
Beide sind jetzt versammelt in eine WORD-Datei wie folgt: 1A*/1B#; 2A*/2B#; 3A*/3B# etc... insgesamt 2,5 Mb.
Wie erstelle ich also folgende Makro?
Selektiere 1A*
Öffne Extra
Öffne Autokorrektur
Type 1B# bei Ersetzen
Klicke Formatierten Text
Klicke Hinzufugen
Klicke OK

Wiederhole das alles für 2A*/2B# etc. bis ende Dokument.

Bin dankbar für jeden Tipp,

Gruß Josi,

Stefan Kulpa
11.05.2001, 05:12
<font face="Verdana" size="2">Hallo Josi,

vielleicht ist folgendes Beispiel ein erster Ansatz; an den entsprechenden Stellen muss
natürlich die richtige Formel eingesetzt werden. Dies könnte man über ein Suchabfrage
in einer Datenbank realisieren, wobei die jeweiligen Platzhalter 1A/1B#; 2A/2B#; 3A/3B#; 4A/4B#; 4A/5B#
usw. auf die entsprechenden Formeln verweisen.

Hier ein VBA-Beispiel:
</font>
<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Sub</FONT> Test()

<FONT COLOR=#000080>Dim</FONT> lCount <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> sFind <FONT COLOR=#000080>As String</FONT>

<FONT COLOR=#000080>For</FONT> lCount = 1 <FONT COLOR=#000080>To</FONT> 5 <FONT COLOR=#008000>'bzw. Anzahl Platzhalter</FONT>
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Suchstring 1 für '1', '2' etc.</FONT>
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
sFind = lCount & "A" <FONT COLOR=#008000>'1A</FONT>
<FONT COLOR=#000080>With</FONT> Selection.Find
.Text = sFind
.Replacement.Text = "Formel " & lCount <FONT COLOR=#008000>'bzw. Formel für 1A</FONT>
.Forward = <FONT COLOR=#000080>True</FONT>
.Wrap = wdFindContinue
.Format = <FONT COLOR=#000080>False</FONT>
.MatchCase = <FONT COLOR=#000080>False</FONT>
.MatchWholeWord = <FONT COLOR=#000080>False</FONT>
.MatchWildcards = <FONT COLOR=#000080>False</FONT>
.MatchSoundsLike = <FONT COLOR=#000080>False</FONT>
.MatchAllWordForms = <FONT COLOR=#000080>False</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
Selection.Find.Execute Replace:=wdReplaceAll
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Ersetzen</FONT>
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Suchstring 2 für '1', '2' etc.</FONT>
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
sFind = lCount & "B#" <FONT COLOR=#008000>'1B#</FONT>
<FONT COLOR=#000080>With</FONT> Selection.Find
.Text = sFind
.Replacement.Text = "Formel " & lCount <FONT COLOR=#008000>'bzw. Formel für 1B#</FONT>
.Forward = <FONT COLOR=#000080>True</FONT>
.Wrap = wdFindContinue
.Format = <FONT COLOR=#000080>False</FONT>
.MatchCase = <FONT COLOR=#000080>False</FONT>
.MatchWholeWord = <FONT COLOR=#000080>False</FONT>
.MatchWildcards = <FONT COLOR=#000080>False</FONT>
.MatchSoundsLike = <FONT COLOR=#000080>False</FONT>
.MatchAllWordForms = <FONT COLOR=#000080>False</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
Selection.Find.Execute Replace:=wdReplaceAll
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
<FONT COLOR=#008000>'// Ersetzen</FONT>
<FONT COLOR=#008000>'// --------------------------------------------------------</FONT>
<FONT COLOR=#000080>Next</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

<font face="Verdana" size="2">Gruß</font>