Thema Datum  Von Nutzer Rating
Antwort
Rot Word2010 BildEinfuegen in Tabelle mit Sendkey TAB
 15.02.2017 09:13:41 foxdevilwild
NotSolved
15.02.2017 09:49:00 foxdevilwild
NotSolved

Ansicht des Beitrags:
Von:
foxdevilwild		 Datum:
15.02.2017 09:13:41		 Views:
1140		 Rating:
     
Antwort:
  Ja
Thema:
Word2010 BildEinfuegen in Tabelle mit Sendkey TAB

Hallo zusammen,

ich bin Programmieranfänger.

Ausgangssituation:  Ich schreibe Berichte mit vielen Bildern, die in eine Tabelle (Vorgabe Arbeitgeber) eingefügt werden. Das Bildeinfügen läuft über ein Makro. Jetzt möchte ich eine Schleife mit Abfrage (MSGBOX) erstellen, ob ein weiteres Bild eingefügt werden soll. Wenn ja, dann soll Word Sendkey "{Tab}"  ausführen, damit der blinkende Wordcursor in eine neu generierte Tabellenspalte springt und dort wieder ein Bild einfügen kann.

Problem: Sobald ich die Abfrage aktiviere, führt er Sendkey "{Tab}" irgendwo aus, eine neue Tabellenspalte wird nicht generiert, das neue Bild landet in der selben Tabellenspalte unter dem bereits eingfügten Bild. Deaktiviere ich die Abfrage, wird Sendkey "{Tab}" an der richtigen Stelle ausgeführt.

Frage1: Kann mir jemand mit dem oben geschrieben Problem eine Lösung anbieten oder mir Vorschläge zur Lösungsfindung machen?

Frage2: Könnt ihr über den Programmcode schauen und ggf. weitere Verbesserungsvorschläge machen?

 

?
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
<strong>Code:</strong> Sub GrafikTest()
 
 
Dim Verz As String
Dim Bild As InlineShape
Dim Breite As Single
Dim Hoehe As Single
Dim Altverz As String
Dim AbbText As String
Dim Antwort
 
 
'Do
 
 '   Antwort = MsgBox("ein (weiteres) Bild einfügen?", vbYesNo)
    'If Antwort = vbYes Then
        Verz = ActiveDocument.Path + "\Bilder\" 'Bildverzeichnis auswählen
        Altverz = Options.DefaultFilePath(Path:=wdPicturesPath) 'Defaultverzeichnis speichern
        Options.DefaultFilePath(Path:=wdPicturesPath) = Verz
         
        Dialog BildEinfuegen, Verz + "*.*" 'öffne Dialog Grafik einfügen im Bildverzeichnis
         
         
        'Bildänderungen vornehemen: Bildbreite vereinheitlichen, Abbilungstext generieren
        For Each Bild In ActiveDocument.InlineShapes
            If Bild.AlternativeText <> "belegt" Then
                Breite = Bild.Width
                Bild.Select
                Hoehe = Bild.Height
                Bild.Width = 340.5
                Bild.Height = 340.5 / Breite * Hoehe
                Bild.AlternativeText = "belegt" 'neu eingefügtes Bild für If-Abfrage ausschließen
                Bild.Select
                Selection.InsertCaption Label:="Abb.", TitleAutoText:= _
                    "", Title:=": Pos. ", Position:=wdCaptionPositionBelow, _
                    ExcludeLabel:=0
               
                'SendKeys "{Tab}" 'generieren einer neues Tabellenspalte
                 
                End If
        Next
        Options.DefaultFilePath(Path:=wdPicturesPath) = Altverz 'Defaultverzeichnis hinterlegen
       
    'End If
     
'Loop Until Antwort <> vbYes
    
End Sub

 

 

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 Word2010 BildEinfuegen in Tabelle mit Sendkey TAB
 15.02.2017 09:13:41 foxdevilwild
NotSolved
15.02.2017 09:49:00 foxdevilwild
NotSolved