Basic: Kopfzeile für linke und rechte Seite unterschiedlich

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Basic: Kopfzeile für linke und rechte Seite unterschiedlich

Re: Basic: Kopfzeile für linke und rechte Seite unterschiedlich

von khsc7 » Mi, 12.03.2008 09:10

hallo Winfried,
genau da lag mein Verständnis-Probem,
und deswegen wurden die Einträge für "Left/Right Page" auch ignoriert.

Herzlichen Dank!
Hermann

Re: Basic: Kopfzeile für linke und rechte Seite unterschiedlich

von komma4 » Di, 11.03.2008 22:41

meinst Du die Definition des Vorlagenwechsels?

Code: Alles auswählen

' bei der rechten Seitenvorlage
oVorlage.FollowStyle  = "Left Page"
' und umgekehrt

Dann der ersten Seite die Vorlage "Right Page" zuweisen.

War es das?

Re: Basic: Kopfzeile für linke und rechte Seite unterschiedlich

von khsc7 » Di, 11.03.2008 19:41

Hallo Winfried,
der "IliParaHeaderR" besteht bereits (siehe Code)
wie ich allerdings dem OO ne 2. Seitenvorlage verpassen kann, ist mir noch unklar.

Danke!
Hermann

Re: Basic: Kopfzeile für linke und rechte Seite unterschiedlich

von komma4 » Di, 11.03.2008 17:30

...Du brauchst doch zwei Absatzvorlagen, also "IliParaHeaderR" ?

...und natürlich haben Deine Seiten abwechselnde Seitenvorlagen?

Basic: Kopfzeile für linke und rechte Seite unterschiedlich

von khsc7 » Di, 11.03.2008 15:37

Moin miteinander,

versuche gerade, per basic Text in die Kopfzeile zu schreiben, daß die Seiten-Nummerierung immer außen ist.

Leider krieg ich nur jede 2. Seite

Code: Alles auswählen

Sub HeadLines(oDoc as Object)   ' aktuelles Dokument
  Dim oSVorlagen as Object      ' Alle Vorlagen
  dim oSVorlage  as Object      ' eine Vorlage
  Dim oCursor    as Object      ' der Cursor
  dim i&

  oSVorlagen = oDoc.getStyleFamilies.getByName("PageStyles")
'  xray oSVorlagen
'  for i=0 to oSVorlagen.getCount - 1
'    oSVorlage = oSVorlagen.getByIndex(i)
'    xray oSVorlage
  'next  
  
  oSVorlage = oSVorlagen.getByName("Standard") 
  oSVorlage.HeaderIsOn = True
  oCursor   = oSVorlage.headerText.Text.CreateTextCursor()
  oCursor.ParaStyleName = "IliParaHeaderL"
  oCursor.gotoEnd(False)
  oSVorlage.HeaderText.Text.insertString(oCursor, vbTab & sBookTitle, False)
  xray oSVorlage
  
  oSVorlage = oSVorlagen.getByName("Left Page") 
  oSVorlage.HeaderIsOn = True
  oCursor   = oSVorlage.headerText.Text.CreateTextCursor()
  oCursor.ParaStyleName = "IliParaHeaderL"
  oCursor.gotoEnd(False)
  oSVorlage.HeaderText.Text.insertString(oCursor, vbTab & sBookTitle, False)

  oSVorlage = oSVorlagen.getByName("Right Page") 
  oSVorlage.HeaderIsOn = True
  oCursor   = oSVorlage.headerText.Text.CreateTextCursor()
  oCursor.ParaStyleName = "IliParaHeaderR"
  oSVorlage.HeaderText.Text.insertString(oCursor, sBookTitle & vbTab, False)

End Sub
gibts da noch nen Trick?

Danke!
Hermann

Nach oben