Word - metry kwadratowe i szescienne m2 i m3
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? Czy ma ktoś może odpowiednie
makro (ze wstydem przyznam że nie bardzo wiem jak można by to napisać)
--
Pozdrovionka
Speedy
Als
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ą.
--
Pozdrawiam, Als (w mailu nie mam żadnej jedynki)
[Humor zeszytów] Doprowadzając do wszystkich zakątków pokarmy, krew pełni
rolę kelnera.
Johnson
>
> 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.
--
@2007 Johnson
"Mądrość jest córką doświadczenia"
Speedy
"Johnson" <joh...@nospam.pl> wrote in message
news:ffo8rs$79i$1...@nemesis.news.tpi.pl...
> 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?
--
Pozdrovionka
Speedy
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
Użytkownik "Johnson" <joh...@nospam.pl> napisał w wiadomości
news:ffofg8$2l0$1...@atlantis.news.tpi.pl...
Wielkie dzięki!!!
Pozdr.
Speedy