Wie kann man ohne eine Abbildung und ihre Beschriftung zu gruppieren dafür sorgen dass...

Die Textfeldmarkierung zeigt, dass Du im Kompatibilitötsmodus arbeitest.
<br />Da ist kein Gruppieren von Bild und Beschriftung möglich.
<br />Gruß
<br />G. O.
<br />

Liebe Lisa,

ja, du hast mich richtig verstanden. Gibt es eine Möglichkeit eine Liste von Worten, die als nicht-zu-trennen gekennzeichnet werden sollen, per VBA in einer Dokumentenvorlage oder anders zentralisiert zu definieren?

Herzliche Grüße in meine Geburtsstadt,

Frank

Ich habe eine Formatvorlage, die von mehreren Mitarbeitern benutzt wird. Wie könnte ich dafür sorgen, dass Worte in der Formatvorlage automatisch von der Silbentrennung ausgenommen werden, ohne dass die Bearbeiterin etwas dazu tun muss? Evtl. möchte ich
die Liste später auch erweitern, ohne dass jeder etwas davon wissen muss.

Ich habe die Anleitung befolgt und dabei den Makrorekorder mitlaufen lassen, dies kam dabei heraus:

Sub Nicht_trennen()

'

' Nicht_trennen Makro

'

'

ActiveDocument.Styles.Add Name:="Nicht_trennen", Type:= _

wdStyleTypeParagraph

ActiveDocument.Styles("Nicht_trennen").AutomaticallyUpdate = False

With ActiveDocument.Styles("Nicht_trennen").Font

.Name = "Calibri"

.Size = 11

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.UnderlineColor = wdColorAutomatic

.StrikeThrough = False

.DoubleStrikeThrough = False

.Outline = False

.Emboss = False

.Shadow = False

.Hidden = False

.SmallCaps = False

.AllCaps = False

.Color = wdColorAutomatic

.Engrave = False

.Superscript = False

.Subscript = False

.Scaling = 100

.Kerning = 0

.Animation = wdAnimationNone

.Ligatures = wdLigaturesNone

.NumberSpacing = wdNumberSpacingDefault

.NumberForm = wdNumberFormDefault

.StylisticSet = wdStylisticSetDefault

.ContextualAlternates = 0

End With

With ActiveDocument.Styles("Nicht_trennen").ParagraphFormat

.LeftIndent = CentimetersToPoints(0)

.RightIndent = CentimetersToPoints(0)

.SpaceBefore = 0

.SpaceBeforeAuto = False

.SpaceAfter = 10

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceMultiple

.LineSpacing = LinesToPoints(1.15)

.Alignment = wdAlignParagraphLeft

.WidowControl = True

.KeepWithNext = False

.KeepTogether = False

.PageBreakBefore = False

.NoLineNumber = False

.Hyphenation = True

.FirstLineIndent = CentimetersToPoints(0)

.OutlineLevel = wdOutlineLevelBodyText

.CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

.MirrorIndents = False

.TextboxTightWrap = wdTightNone

End With

ActiveDocument.Styles("Nicht_trennen").NoSpaceBetweenParagraphsOfSameStyle _

= False

ActiveDocument.Styles("Nicht_trennen").ParagraphFormat.TabStops.ClearAll

With ActiveDocument.Styles("Nicht_trennen").ParagraphFormat

With .Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

.BackgroundPatternColor = wdColorAutomatic

End With

.Borders(wdBorderLeft).LineStyle = wdLineStyleNone

.Borders(wdBorderRight).LineStyle = wdLineStyleNone

.Borders(wdBorderTop).LineStyle = wdLineStyleNone

.Borders(wdBorderBottom).LineStyle = wdLineStyleNone

With .Borders

.DistanceFromTop = 1

.DistanceFromLeft = 4

.DistanceFromBottom = 1

.DistanceFromRight = 4

.Shadow = False

End With

End With

ActiveDocument.Styles("Nicht_trennen").LanguageID = wdGerman

ActiveDocument.Styles("Nicht_trennen").NoProofing = False

ActiveDocument.Styles("Nicht_trennen").Frame.Delete

End Sub

Was mich irritiert ist, dass das Wort "oder", dass nicht getrennt werden soll, darin nicht vorkommt und sehr viel enthalten ist, was mir für diese Aufgabe irrelevant erscheint. Wahrscheinlich blicke ich noch nicht richtig durch ...

Herzlichen Gruß

Frank

Hallo Frank,

nimm das Wort (z. B. per Formatvorlage) aus der Rechtschreib/Grammatikprüfung aus. Dann wird es auch nicht getrennt.

Viele Grüße von der CeBIT

Lisa

Liebe Lisa,

wenn das nicht geht, würde ich das gerne wissen und dann eine Tipp bekommen, wie ich das manuell machen kann. Ich habe bisher keine Anleitung gefunden, aus der ich schlau geworden bin.

Herzlichen Gruß

Frank