Code schneller machen, verschönern?

[Kyuboy]

Hallo, 

an die Excel VBA Kenner hier, weiß jemand wie ich die Makros in meiner Beispieldatei
verschnellern, bzw verkürzen könnte ?


MFG

[snb]

Du bist zu 'Vorschlagresistent'.

Keine unserer Vorschläge im Forum hast du verwendet.

Antwort: ja, aber nicht für dich.

[Kyuboy]

Hey snb,

das stimmt nicht, ich habe lediglich vor euch eine Lösung gefunden,
und da ich etwas unter Zeitdruck stehe hatte ich noch nicht die Möglichkeit die Codes auszutesten.

Ich muss noch bis heute Abend 18:00 ca 900 Dateien konvertieren.
Und das hoffe ich du verstehst das ich keine Zeit mehr zum ausprobieren hab.

MFG

[Fennek]

Hallo,

nach der Diskussion gestern, könnte das ein Ansatz sein:

Variante 1: flexible Änderungen vorbereiten
Variante 2: Ein Bild einfügen

Code:

############ nur ein Bild einfügen ###############

Const Pic As String = "c:\temp\commbull.gif"
'an der gewünschten Stelle steht #Bild#

Sub T_1()
With ThisDocument
    For i = 1 To .Paragraphs.Count
        If Left(.Paragraphs(i).Range.Text, 6) = "#Bild#" Then
            .Paragraphs(i).Range.InsertParagraphAfter
            .Fields.Add(.Paragraphs(i).Range, 67, "", False).Code.Select
            Selection.Collapse 0
            .Fields.Add Selection.Range, 64, "Bild", 0
            Exit For
        End If
    Next i
    .Variables("Bild") = Pic
    .Fields.Update
End With
End Sub

Sub T_2()
With ThisDocument
    For i = 1 To .Paragraphs.Count
        If Left(.Paragraphs(i).Range.Text, 6) = "#Bild#" Then
            .Paragraphs(i).Range.InsertParagraphAfter
            .Fields.Add .Paragraphs(i).Range, 67, Chr(34) & Pic & Chr(34), 1
            Exit For
        End If
    Next i
End With
End Sub

mfg