Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Mal wieder das Thema Export nach WORD

<< < (3/12) > >>

MadMetzger:
Ich weiß nicht genau, wie das geht, aber einen Anhaltspunkt kann das Aufzeichnen eines Makros von der Inhaltsverzeichniserzeugung bieten.

Das sagt mein Makro-Rekorder mit Word 2003:

--- Code: ---Sub Inhaltsverzeichnis()
    With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
    End With
End Sub

--- Ende Code ---

Leider sehe ich mich auch nicht direkt in der Lage den Code nach LS zu portieren.

Fraglich ist für mich noch, wie du das Inhaltsverzeichnis dann an die richtige Stelle bekommst... Aber das kommt auf einen Versuch an.

C_T:
Ich denke das krieg ich schon hin hab mir das auch mal aufgenommen und dann schau ich mal und teste

jetzt habe ich aber direkt wieder 2 fragen....

und zwar

1. wie kriege ich text fett geschrieben? Ich habe folgendes ausprobiert...


--- Code: ---
Set Ins =  WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range
Ins.Bold = True
Call Ins.InsertAfter("TEXT: ")
Ins.Bold = False


--- Ende Code ---


2. Wie kann ich den Text den ich aus einem RichText Feld (Notes) nach word "Paste" nochmal bearbeiten und z.b. da auch ein Format drauflegen?

Axel:
Mal aus dem Bauch heraus umgesetzt.

...
   Const wdTabLeaderDots = 1
   Const wdIndexIndent = 0
...
    With WordDoc
        .TablesOfContents.Add
        Range:=WordApp.Selection.Range,
        RightAlignPageNumbers:= True,
        UseHeadingStyles:=True,
        UpperHeadingLevel:=1,
        LowerHeadingLevel:=3
        IncludePageNumbers:=True,
        AddedStyles:="",
        UseHyperlinks:=True,
        HidePageNumbersInWeb:=True,
        UseOutlineLevels:= True
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
    End With
...

Ich hab's nicht getestet ob's auch wirklich so funktioniert.


Axel

Axel:

--- Zitat von: C_T am 13.03.08 - 12:03:22 ---1. wie kriege ich text fett geschrieben? Ich habe folgendes ausprobiert...


--- Code: ---
Set Insert =  WordDoc.Paragraphs(WordDoc.Paragraphs.Count).Range
Insert.Bold = True
Call Insert.InsertAfter("Kategorie: ")
Insert.Bold = False


--- Ende Code ---


--- Ende Zitat ---

So z.B.

...
WordApp.Selection.Font.Bold = True   'Fett einschalten
WordApp.Selection.TypeText "Kategorie:"
WordApp.Selection.Font.Bold = False  'Fett ausschalten
...

Du kannst dir auch hier http://atnotes.de/index.php?topic=39875.0 noch ein paar Infos holen.



Axel

C_T:
Leider klappt das mit dem Bold ebend nicht so...

das merkwürdige ist jedoc, wenn ich das Bold mit Italic tausche schreibt er mir den Text Kursiv aber mit Fett klappt es nicht.....

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete