Domino 9 und frühere Versionen > Entwicklung

Tabellen Formatieren aus Notes heraus in Word

<< < (2/3) > >>

Axel:
Hi,

ich hab's mal auf die Schnelle getestet, funktioniert einwandfrei.

hier ist der Code den ich verwendet habe:


--- Zitat ---Sub Click(Source As Button)
   Dim objWord As Variant
   Const wdExtend = 1
   Const wdCharacter = 1
   
   On Error Resume Next
   Set objWord = GetObject("", "Word.Application")
   If Err = 208 Then  '  Fehler 208 tritt auf wenn Word noch nicht läuft
      Err = 0
      Set objWord = CreateObject("Word.Application")
      objWord.Visible = True  'Word sichtbar machen
   End If
   
   Call objWord.Documents.Add("tabelle.dot", False)
   
   Call objWord.Selection.MoveRight(wdCharacter, 2, wdExtend)
   Call objWord.Selection.Cells.Merge
   
   
End Sub

--- Ende Zitat ---

Poste mal den Code mit dem du es probiert hast.

Axel

Alirion:
Ich steck noch voll am anfang fest

...
Set Range = Letter.Bookmarks("Kopfdaten").Range
   Letter.Paragraphs.Add
   Set Tabelle = Letter.Paragraphs(2)
   With Tabelle
      .Range.Font.Size = 10
      .Range.Font.Bold = False
      .SpaceAfter = 0
   End With
   Set Tabelle = Letter.Tables.Add(Range,1,3)
   
   
   Set Zelle = Letter.Tables(1).Cell(1,1)
   
   
   Letter.Tables(1).Rows.Add
   
   Set Zelle = Letter.Tables(1).Cell(1,1)
   
   Call Letter.Selektion.MoveRight(wdCharacter, 3, wdExtend)
   Call Letter.Selektion.Cells.Merge
   
   Set Range = Letter.Paragraphs.Add(Zelle.Range)
   With Range
      .Range.Font.Size = 10
      .Range.Font.Bold = True
      .Range.Text = "Text zum Testen"
   End With
...

Axel:
Hi,

du hast Schreibfehler drin. Selection schreibt man mit "c", du hast es mit "k" geschrieben.

Axel

Alirion:
Stimmt!

- "Schmunzelt leicht und schämt sich" -  :-[

Alirion:
Jetzt funktioniert es astrein.

Ich muss mich mehr mit den Macros befassen.

Habt ihr irgendeine gute Variante (Scriptbibliothek, etc) in der man mehr über den Export nach Word, Excel oder Powerpoint erhalten kann?

Zur zeit befasse ich mich mit Scriptbibliotheken in LN um Standardfunktionen allgemein kopierfähig zu machen. Das würde mir echt weiterhelfen.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete