Thema Datum  Von Nutzer Rating
Antwort
Rot Wert in Word einfügen aber rechtsbündig
 16.12.2011 14:59:40 LIA
NotSolved
17.12.2011 11:33:13 Holger
NotSolved
19.12.2011 08:48:32 LIA
NotSolved
19.12.2011 13:02:46 Dekor
NotSolved
19.12.2011 13:17:03 LIA
Solved

Ansicht des Beitrags:
Von:
LIA		 Datum:
16.12.2011 14:59:40		 Views:
3103		 Rating:
     
Antwort:
  Ja
Thema:
Wert in Word einfügen aber rechtsbündig

Hallo zusammen,

habe ein Makro, dass mir alle Werte ich Spalte 1 in ein Worddokument überträgt:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub CommandButton1_Click()
  
         
 If Not Word_Connect Then Exit Sub 'Raus wenns brennt
    Dim zahl As Long
    Dim i As Long
    Dim zeile As Long
     
     
    On Error GoTo Fehler
    With oWord_App
         .Documents.Add
    End With
    zeile = 1
     
    Do Until (i = zeile + 1)
        zeile = zeile + 1
        zahl = Cells(zeile, 1).Value
        If (Cells(zeile, 1).Value = "") Then GoTo hell
         
        With oWord_App
            
            .Selection.Text = zahl
            .Selection.Font.Size = 370
            .Selection.Font.Bold = True
            .Selection.Position = Right
             
        End With
 
        With oWord_App
            .ActiveDocument.PageSetup.Orientation = 1
            .PrintOut
        End With
        zahl = zahl + 1
        i = i + 1
         
    Loop
hell:
Aufraeumen:
 
 
 
    oWord_App.Quit
 
    Word_Disconnect
    Exit Sub
Fehler:
    MsgBox Err.Description
    Resume Aufraeumen
     
 
End Sub

 

 

Problem ist, dass der Wert linksbündig eingetragen wird. Wie kann ich das ändern, wenn der Wert aber rechtsbündig stehen soll? Wie heißt der Selection Befehl?

 

Danke!!

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Wert in Word einfügen aber rechtsbündig
 16.12.2011 14:59:40 LIA
NotSolved
17.12.2011 11:33:13 Holger
NotSolved
19.12.2011 08:48:32 LIA
NotSolved
19.12.2011 13:02:46 Dekor
NotSolved
19.12.2011 13:17:03 LIA
Solved