Temat: Quark 7 Passport a i na po etc

czy ktoś się orientuje jak zepchnąć pojedyncze literki lub podwójne do następnego wiersza nie mając gwarka a dodatek "twarde spacje"?

Temat: Quark 7 Passport a i na po etc

Jeśli chodzi o niekupowanie gwarka do Macowego Quarka to sprawę załatwi (torszkę na piechotę za pomocą Find/Change bo trzeba to zrobić dla wszystkich występujących pojedynczo wiszących literek - a, i, o, u itd.) wstawienie "twardej?" spacji za tymi literkami (po włączeniu niewidocznych znaków pojawia się jako dwukropek z lekko przesyniętą w prawo dolną kropką). Caly gips polega na tym, że trzeba najpierw gdzieś w tekście wstawić tą spację (ale nie z menu Utilities/Insert Character, bo tak nie zadziała - nie wiem czemu, po prostu nie i już) za pomocą skrótu "japko+5", a potem przekleić do okienka Find/Change.
Czyli np.: i"spacja" [zamień na] i"twarda spacja".
Efektem jest to, że po każdej literce "i" zamiast zwykłej spacji będzie owa wymuszająca "przyklejenie" do kolejnego wyrazu występującego po niej i w przypadku, gdy owo "i" było na końcu wiersza zostaje przeniesione do następnego.
Sprawdzone, działa - zaoszczędzone kilkaset zeta na zakup Gwarka. Fakt, że nie załatwia to niestety całej typografii, ale zawsze to jakieś ułatwienie.
ufff.... mam nadzieję że napisałem to w miarę jasno.. :-D

Temat: Quark 7 Passport a i na po etc

Macro w wordzie, gdzie przed każdym wstawia spację alt+0160, (jak w Venturze <N>). Wygląda to w wielkim skrócie tak:
Sub Spojniki()
''
'' Spojniki Makro
'' Makro zapisane 07-08-02 przez BUCHBACH
''
Selection.Font.Reset
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " a "
.Replacement.Text = " a "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " z "
.Replacement.Text = " z "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Temat: Quark 7 Passport a i na po etc

wow, dzięki.

Temat: Quark 7 Passport a i na po etc

a po co tyle kombinować, wystarczy uruchomić Xtension Twarde spacje w łańcuchu tekstowym i po robocie.