Frage : Plan für Wortdokument

Ich geschrieben irgendeinen Code, um Datenformular eine sql-Datenbank zu erhalten und setze ihn innen zu einem Wortmischen document.
it adaequat bin, aber das einzige Problem ist der Plan. ich bin Lesedaten einiger collums, und weil sie nicht alle gleiche Länge sind, erhält der Ausgang messy.

example


Belarus Verkauf durch Exklusives 25
Belarus Ruhestrom
Kazakhstan Ruhestrom
Kazakhstan Verkauf durch Exklusives 25
Russia Verkauf durch Exklusives 25
Tajikistan Verkauf durch Exklusives 25
Ukraine Verkauf durch Exklusives 25
Uzbekistan Verkauf durch Exklusives 25

what, das ich soll die collums out.

any Vorschläge zeichnen möchte? 


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Dim rec8 als neues ADODB.Recordset
rec8.Open „AUSERWÄHLTES dbo. [Video-Fernsehapparat-rechten-Abgabe]. Land, dbo. [Video-Fernsehapparat-rechten-Abgabe] .landnaam, dbo. [Video-Fernsehapparat-rechten-Abgabe] .recht, dbo. [Video-Fernsehapparat-rechten-Abgabe] .percentage,“ _
           u. „dbo. [Video-Fernsehapparat-rechten-Abgabe] .memo, dbo. [Abgabefernsehapparat berichtigt], .contractid, dbo. Exclusivetekst.tekst ALS Exklusives vom dbo. [Abgabefernsehapparat berichtigt], INNER“ _ ANSCHLIESSEN
           u. „dbo. [Video-Fernsehapparat-rechten-Abgabe] AUF dbo. [Abgabefernsehapparat berichtigt], .contractid = dbo. [Video-Fernsehapparat-rechten-Abgabe] VERLIESS .nr ÄUSSER VERBINDEN dbo. Exclusivetekst AUF dbo. [Video-Fernsehapparat-rechten-Abgabe] .exclusive = dbo. Exclusivetekst. [ja-nee]“ _
        u. „WO ([Video-Fernsehapparat-rechten-Abgabe]. [nr] =“ u. dealmemo_contract_id u. ") AUFTRAG DURCH dbo. [Video-Fernsehapparat-rechten-Abgabe]. Land“, _
        CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'strtext talen
Wenn rec8.RecordCount > 0 dann
    rec8.MoveFirst
    Bis rec8.EOF tun
       strtext8 = strtext8 u. Ordnung (rec8! [Landnaam]. Wert) u. vbTab u. „„u. Ordnung (rec8! [Recht]. Wert) u. vbTab u.“ „u. Ordnung (rec8! [Exklusives]. Wert) u. vbTab u.“ „u. Ordnung (rec8! [Prozentsatz]. Wert) u. vbTab u.“ „u. Ordnung (rec8! [Protokoll]. Wert) u. vbCrLf
       Debug.Print strtext8
       rec8.MoveNext
    Schleife

Antwort : Plan für Wortdokument

Gefunden ihm selbst, gebildet Tabelle mit 5 pagemarks und den Code in 5 sepaerate Vorwähleren aufspalten
Weitere Lösungen  
 
programming4us programming4us