Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Leerzeichen nach jedem 3. Buchstaben in eine Sequenz einfüge
zurück: Via VBA eine Grafik automatisiert in Word einbetten... weiter: pdf in ein Formular einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Horst-Guenther
Gast


Verfasst am:
19. Dez 2009, 15:44
Rufname:

Leerzeichen nach jedem 3. Buchstaben in eine Sequenz einfüge - Leerzeichen nach jedem 3. Buchstaben in eine Sequenz einfüge

Nach oben
       Version: Office 2003

Hallo,

Ich habe folgendes Problem. In einem Word Dokument habe ich eine Buchstabensequenz und möchte sie nun wie folgt formatieren: nach jedem
3. Buchstaben sollte ein Leerzeichen eingefügt werden.

Also in etwa so --> XXX XXX XXX XXX...

Wie mache ich das am besten?

Danke für eure Hilfe!

Gruß Horst-Guenther
Gast



Verfasst am:
19. Dez 2009, 17:57
Rufname:


AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein - AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein

Nach oben
       Version: Office 2003

Hallo Horst-Guenther,
ich mal davon aus, dass das ganze Dokument so unterteilt werden soll und dass nur Buchstaben, also keine Zahlen, Satzzeichen, ... bei der Zählung berücksichtigt werden sollen. Dadurch dauert der Ablauf aber einige Zeit, weil ja für jedes Zeichen eine Prüfung erfolgen muss.

Sub Blöcke_aus_3_Buchstaben()
With Selection
.HomeKey wdStory
Pos = 1
Do While Pos < ActiveDocument.Characters.Count
ActiveDocument.Characters(Pos).Select
If InStr("abcdefghijklmnopqrstuvwxyzäöüß", LCase(.text)) Then
a = a + 1
If a = 3 Then
a = 0
.Collapse wdCollapseEnd
.TypeText " "
End If
End If
Pos = Pos + 1
Loop
End With
End Sub

Wofür braucht man sowas?
Gruß
Holger
Gast



Verfasst am:
19. Dez 2009, 17:58
Rufname:

AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein - AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein

Nach oben
       Version: Office 2003

Hallo Horst-Guenther,
Noch einmal als Antwort.
Ich mal davon aus, dass das ganze Dokument so unterteilt werden soll und dass nur Buchstaben, also keine Zahlen, Satzzeichen, ... bei der Zählung berücksichtigt werden sollen. Dadurch dauert der Ablauf aber einige Zeit, weil ja für jedes Zeichen eine Prüfung erfolgen muss.

Sub Blöcke_aus_3_Buchstaben()
With Selection
.HomeKey wdStory
Pos = 1
Do While Pos < ActiveDocument.Characters.Count
ActiveDocument.Characters(Pos).Select
If InStr("abcdefghijklmnopqrstuvwxyzäöüß", LCase(.text)) Then
a = a + 1
If a = 3 Then
a = 0
.Collapse wdCollapseEnd
.TypeText " "
End If
End If
Pos = Pos + 1
Loop
End With
End Sub

Wofür braucht man sowas?
Gruß
Holger
Gast



Verfasst am:
20. Dez 2009, 14:47
Rufname:

AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein - AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein

Nach oben
       Version: Office 2003

Hallo Holger,

Erst einmal vielen Dank für dein Makro. Klappt wirklich super Exclamation

Hätte noch dazu sagen sollen, dass das komplette Dokument nur aus einer Abfolge von 4 Buchstaben besteht und somit keinerlei (Sonder)Zeichen enthält (auch keine Absätze etc.) (Die Buchstaben sind A C G T bzw. U [anstelle von T in RNA-Sequenzen])

Zu deiner Frage, ich arbeite mit DNA/RNA-Sequenzen, und aus den Quellen woher ich diese beziehe sind diese lediglich als ellenlange Abfolge zu bekommen (meistens jedenfalls). Ich möchte diese DNA/RNA Sequenzen als Codons formatieren (3 Basen [Buchstaben] pro Codon) um das ganze ein wenig übersichtlicher zu machen.

Als Beispiel wie solch eine Abfolge aussieht:

...ATGGGCTAAGTACGGTG... daraus wird dann ...ATG GGC TAA GTA CG GTG...

womit man wesentlich besser arbeiten kann. Vlt. kann man mit den Zusatzinfos das ganze ein wenig optimieren, aber ich bin auch so schon dankbar Very Happy

Also nochmals vielen Dank.

Gruß, Horst-Guenther
Gast



Verfasst am:
20. Dez 2009, 15:52
Rufname:


AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein - AW: Leerzeichen nach jedem 3. Buchstaben in eine Sequenz ein

Nach oben
       Version: Office 2003

Hallo Horst-Guenther,
Versuche:
Code:
Sub Blöcke_aus_3_Buchstaben_2()
With Selection
.HomeKey wdStory
Pos = 1
Do While Pos < ActiveDocument.Characters.Count
    .MoveRight 1, 3, 0
    .TypeText " "
    Pos = Pos + 4
Loop
End With
End Sub

Gruß
Holger
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Seriendruck: Leerzeichen im Übergabewert 5 GaWü 105 15. Jan 2014, 14:39
theoS Seriendruck: Leerzeichen im Übergabewert
Keine neuen Beiträge Word Serienbriefe: Leerzeichen nach der Anrede... wieso??????? 5 Yve2008 2565 15. Nov 2013, 13:49
Gast Leerzeichen nach der Anrede... wieso???????
Keine neuen Beiträge Word Formate: Textmarken nebeneinander ohne Leerzeichen 2 tommy22 1406 24. Jan 2012, 21:59
piggest Textmarken nebeneinander ohne Leerzeichen
Keine neuen Beiträge Word Formate: Word zieht beim Druck die Buchstaben zusammen 1 Bushbe 1851 25. März 2011, 12:19
Gast Word zieht beim Druck die Buchstaben zusammen
Keine neuen Beiträge Word Serienbriefe: Windows 7 - Word - Buchstaben abgeschnitten 1 MellosKleineHelferin 3707 03. Jan 2011, 13:24
Gast_CHF Windows 7 - Word - Buchstaben abgeschnitten
Keine neuen Beiträge Word Serienbriefe: Empfängerfeld mit Leerzeichen 1 Honey1231 1212 20. Sep 2010, 22:54
G.O.Tuhls Empfängerfeld mit Leerzeichen
Keine neuen Beiträge Word Formate: Buchstaben vergrößern 8 knepperblau 18326 22. Aug 2010, 10:29
G.O.Tuhls Buchstaben vergrößern
Keine neuen Beiträge Word Formate: Buchstaben ä, ö, ü 4 Cemo 4188 05. Jun 2010, 17:07
Cemo Buchstaben ä, ö, ü
Keine neuen Beiträge Word Formate: Word 2000 - geschützte Leerzeichen insgesamt löschen 2 sunny50 3305 28. Apr 2010, 16:02
Hubert_R Word 2000 - geschützte Leerzeichen insgesamt löschen
Keine neuen Beiträge Word Formate: Schriftänderung bei speziellen Buchstaben nicht mehr möglich 1 molido 1127 15. März 2010, 16:28
molido Schriftänderung bei speziellen Buchstaben nicht mehr möglich
Keine neuen Beiträge Word Formate: Merkwürdige Abstände zwischen den Buchstaben 1 Dasch 1842 24. Sep 2009, 14:15
HoMa Merkwürdige Abstände zwischen den Buchstaben
Keine neuen Beiträge Word Formate: Überflüssige Leerzeichen im Blocksatz 6 Altfeld 14132 13. Apr 2009, 10:03
Gast Überflüssige Leerzeichen im Blocksatz
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe