Word - metry kwadratowe i szescienne m2 i m3

[Speedy]

Hej

Czy jest taka możliwość by w całym dokumencie MS Word automatycznie zamienić
"m3" na m3(indeks górny), tzn. symbol metra sześciennego? Jak to można
zrobić, przez Edycja > zamień chyba się nie da? Czy ma ktoś może odpowiednie
makro (ze wstydem przyznam że nie bardzo wiem jak można by to napisać)

[Als]

Post by Speedy
Hej
Czy jest taka możliwość by w całym dokumencie MS Word automatycznie zamienić
"m3" na m3(indeks górny), tzn. symbol metra sześciennego? Jak to można
zrobić, przez Edycja > zamień chyba się nie da? Czy ma ktoś może odpowiednie
makro (ze wstydem przyznam że nie bardzo wiem jak można by to napisać)

Autokorekta nie wystarczy? Ja ostatnio zamieniałem ciąg "um" na znak
"mikro" (takie u z dodatkową pionową kreską z przodu) właśnie autokorektą.

[Johnson]

Post by Speedy
Czy jest taka możliwość by w całym dokumencie MS Word automatycznie
zamienić "m3" na m3(indeks górny), tzn. symbol metra sześciennego? Jak
to można zrobić, przez Edycja > zamień chyba się nie da?

Da się.
Kliknij "więcej" w oknie zamieniania i tam można między innymi
uwzględnić formatowanie liter.

[Speedy]

Hej

Kliknij "więcej" w oknie zamieniania i tam można między innymi uwzględnić
formatowanie liter.
--

No tak, jest tam format czcionki ale można nim zamienić tylko cały ciąg
znaków na indeks górny. Zamiast m3(indeks górny) dostaję więc m(indeks
górny) 3(indeks górny).
Wymyśliłem zresztą jak to zrobić, w dwóch krokach: zamieniam m3 na #(indeks
górny) 3(indeks górny) a następnie zamieniam #(indeks górny) na m (po to
taka kombinacja że nie jestem pewien czy w tekście nie ma gdzieś czegoś do
m-tej potęgi; a znaku # nie ma z całą pewnością). Ale może dałoby się zrobić
to jakoś bardziej elegancko, w jednym etapie?

[Johnson]

Ale może dałoby się zrobić to jakoś bardziej elegancko, w jednym etapie?

Pewnie by sie dało. Ale zaminiłem twoją metodę na vba:

Sub ZamieńM3()
'
'
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = "m3"
.Replacement.Text = "#3"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = "#"
.Replacement.Text = "m"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Speedy]

Hej

Sub ZamieñM3()
'
'
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = "m3"
.Replacement.Text = "#3"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = False
End With
With Selection.Find
.Text = "#"
.Replacement.Text = "m"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
--
@2007 Johnson

Wielkie dziêki!!!
Pozdr.
Speedy