Word - předložky na koncích řádků - jak je dostat na další

[Tučňák]

Mám dokument ve kterém mám na koncích řádků vždycky nějaké předložky a potřeboval bych je dostat na další řádek k tomu slovu ke kterému patří - prý k tomu existuje nějaká klávesová zkratka. nebo jak se to dá udělat

[adams]

tvrdá mezera - místo mezerníku za předložkou použíj tušim ctrl+shift+mezerník. Ale za předložkou by to word měl dělat automaticky

[Laco]

Souhlasim s Adamsem ale jde to i tak ze se postavis pred predlozku a zmackes shift+enter (ukonceni radku ale ne odstavce)

[Maxwell2]

Snažil jsem se pomocí Wordu vysázet knihu o rozsahu 150 stran a po hromadné náhradě normálních mezer za pevné za všemi jednopísmennými předložkami obsahovaly některé řádky vizuálně příliš velké mezery. To kvůli tomu, že pevné mezery mají ve Word pevnou šířku. Začal jsem tedy experimentovat a výsledkem je následující makro, které nahradí jen normální mezery jen tam, kde by zůstala předložka na konci řádku.

Postup použití je následující:
1) Vložit makro do Wordu.
2) Nahradit všechny pevné mezery normálními.
3) Spustit makro – u 150 stránkové knihy to trvá asi 10 minut.

Kód: Vybrat vše

Sub vlozeniPevnychMezer()
    Application.ScreenUpdating = False
    Dim AscA, AscE, AscI, AscK, AscO, AscS, AscU, AscV, AscZ As Integer
    AscA = Asc("A")
    AscE = Asc("E")
    AscI = Asc("I")
    AscK = Asc("K")
    AscO = Asc("O")
    AscS = Asc("S")
    AscU = Asc("U")
    AscV = Asc("V")
    AscZ = Asc("Z")
    AscSpace = Asc(" ")

    Dim doc As Document
    Set doc = ActiveDocument
   
    Dim prevWord As Range
    Set prevWord = doc.Range.Words.First
    Dim prevLine As Integer
    prevLine = prevWord.Information(wdFirstCharacterLineNumber)
   
    Dim currWord As Range
    For Each currWord In doc.Range.Words
        Dim currLine As Integer
        currLine = currWord.Information(wdFirstCharacterLineNumber)
        If (prevLine <> currLine) Then
            Dim prevWordChars As Characters
            Set prevWordChars = prevWord.Characters
            If (prevWordChars.Count = 2) Then
                If (Asc(prevWordChars.Last) = AscSpace) Then
                    Select Case (Asc(UCase(prevWordChars.First.Text)))
                        Case AscA, AscE, AscI, AscK, AscO, AscS, AscU, AscV, AscZ
                            prevWordChars.Last.Text = Chr$(160)
                    End Select
                End If
            End If
        End If
        prevLine = currLine
        Set prevWord = currWord
    Next
   
    Application.ScreenUpdating = True
End Sub

[Ansam]

.... Postup použití je následující:
1) Vložit makro do Wordu ....

Poradí niekto ako VLOŽIŤ MACRO do Wordu 2010 ?

[Slondo]

V možnostiach programu Word v menu Obľúbené v odstavci Hlavné možnosti pre prácu s programom World nastaviť (zaškrtnúť) položku Zobraziť kartu Vývojár na páse s nástrojmi.
V nástroji Vývojár zvoliť Makrá -> vytvoriť...
(Takto to je v MSO 2007 sk)

[akira.uzai]

zadejte do Google termín "santiagova makra", jde o legendární sadu maker pro správnou typografii při elektrifikaci knih

[Ansam]

VYTVORIŤ NOVÉ MAKRO mi nerobí problém.
Zaujímal som sa o to, ako VLOŽIŤ VYTVORENÉ (napísané) MAKRO do Wordu 2010
Tak som hľadal a našiel som tento postup, ktorý funguje:

Zkopírujte MAKRO přes Ctrl+C či Kopírovat do schránky. Makro je vždy kód mezi klíčovými slovy Sub a End Sub, popř. Function a End Function.

Otevřete Word, pod Nástroje / Makro stiskněte Editor jazyka Visual Basic (ALT+F11) a v něm kód ze schránky vložte do modulu NewMacros pomocí Ctrl+V (pokud se vám hned neotevře právě modul NewMacros, tak dejte Ctrl+R a proklikejte se cestou Normal / Modules k modulu NewMacros). Pokud se nějaké řádky kódu zabarví červeně, vymažte je.

Nic vám nebrání vložit do modulu NewMacros všechna nalezená makra a poté prostě vymazávat ta, která nepotřebujete, a ostatní nechávat. Velikost wordovské globální šablony Normal na disku tím ale může dost narůst. Raději si ji před takovým krokem zazálohujte.

Makra vyvoláte pomocí Alt+F8 či pod Nástroje / Makro / Makra. Ze seznamu vyberte to, které chcete spustit, a odentrujte či na ně dvakrát klikněte.

[rezkote]

Super, makro mi moc pomohlo, díky

[yxyxyx]

Zdravím,

makro funguje perfektně, ušetřeno spoustu práce při úpravě BP!! Díky!