MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Programmierung und Entwicklung (Allgemein) > Distribution und Installation
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 13.11.2008, 08:00   #1
Dunkler Ort
Neuer Benutzer
Neuer Benutzer
Top VB-Paketassistent - Textformatierung in Word 2007 mit Makro; VBA

hallo community,
ich hab da ein kleines problem und vielleicht könnt ihr mir ja helfen.

Ich habe einen Text in einer Editor-Textdatei und füge diesen in ein Word 2007 Dokument ein. Jetzt hätte ich gerne ein Makro, welches automatisch formatiert weiß aber nicht wie ich das machen soll.

Meine Textdatei sieht ungefär so aus (Beispiel):


KN Kundennummer
PD Produkt
MO Preis


KN soll z.B. Überschrift1, PD Standard und MO Kursiv geschrieben sein.

Leider kenne ich mich nicht mit VBA aus und freue mich deshalb über jeden noch so kleinen Tipp eurerseits.

Vielen lieben Dank und freundliche Grüße aus Hofheim

Julia

__________________

"Wir warten auf den Tod
verschwenden unsere Zeit
tun was man von uns erwartet
zahlen den Preis für unsere Feigheit"

Böhse Onkelz - Dunkler Ort
Dunkler Ort ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.11.2008, 11:23   #2
Dunkler Ort
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ich hab da noch was rausgekriegt, was ich allerdings noch brauche ist die Schriftart z.B Arial und nach KN kommt ja noch ein weiterer Text teil, der ist aber jeweils unterschiedlich und somit möchte ich meine formatierung auf die ganze zeite ausweiten und nicht nur auf KN. Vielleicht könnt ihr mir ja da helfen?

Code:

Sub test()
'
' test Makro
'
'
  
    Dim Zeichen$(1)
    
    Zeichen$(1) = "KN"

    
    Selection.Find.Format = False
    Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.Find.Replacement.Font.Size = 18
    Selection.Find.Replacement.Font.Bold = False
    Selection.Find.Replacement.Font.ColorIndex = wdBlack
    
      
    For i = 1 To 1
        With Selection.Find
            .Text = Zeichen$(i)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
End Sub
Danke und Viele liebe grüße
Julia

__________________

"Wir warten auf den Tod
verschwenden unsere Zeit
tun was man von uns erwartet
zahlen den Preis für unsere Feigheit"

Böhse Onkelz - Dunkler Ort
Dunkler Ort ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.03.2011, 11:36   #3
FernandoKirker
Neuer Benutzer
Neuer Benutzer
Standard

hi

Thanks for the code.
I have having trouble in ms VBA. Your code helped a lot.
FernandoKirker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.03.2011, 11:37   #4
FernandoKirker
Neuer Benutzer
Neuer Benutzer
Standard

hi

Thanks for the code.
I have having trouble in ms VBA. Your code helped a lot.
FernandoKirker ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.12.2014, 06:29   #5
sajjad321
Neuer Benutzer
Neuer Benutzer
Standard

Ich möchte alle DLLs verwenden, sodass der Anwender auch kein Framework benötigt. Nach der Installation soll alles zur Verfügung stehen, unabhängig vom Framework

Goggle hab ich angeworfen, aber keine (für mich) brauchbare Antwort gefunden, ob die DLLs verteilt werden dürfen oder nicht.

Kokosnuss

__________________

You can get score highest marks in braindumps.com dumps exam using ccna certification and test king which are prepared by top certified professionals, stevenson ccna wireless training; both are marvelous in www.the-bac.edu
sajjad321 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:30 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.