title image


Smiley Serienbriefdaten an Word
Hallo Allen,



ich schicke die Daten von Access (2000)zu Word. Dort sollen die Daten (die in Tabellen sind) aufsteigend sortiert werden. Die Sortierungsreihenfolge: Spalte 1, Spalte 3 und Spalte 2. Dafür habe ich die Prozedur:

Private Sub NFMakeDoc_Click()

Export



Dim strDocName As String

strDocName = Me!NFSelectDoc

Dim strqryDocName As String

strqryDocName = "RefAS_01.rtf"

Dim TempPath As String

TempPath = Environ("TEMP")

Dim strDir As String

strDir = "C:\DBNEU"

Dim objWord As New Word.Application

objWord.Application.Visible = True

Dim objDoc As Word.Document

Set objDoc = objWord.Documents.Open(strDir & "\" & strDocName)

With objDoc.MailMerge

.OpenDataSource Name:=TempPath & "\" & strqryDocName, _

LinkToSource:=True

.Destination = wdSendToNewDocument

.Execute

If Not strDocName Like "*Tier I*" Then

.Application.Run MacroName:="AbschnittswechselLoeschen"

End If

End With

If strDocName Like "*L IIb*" Or strDocName Like "*L IIc*" Then

Selection.Tables(1).Select

Selection.Sort ExcludeHeader:=False, FieldNumber:="Spalte1", SortFieldType _

:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, Separator:= _

wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _

:=wdEnglishUK

Selection.HomeKey Unit:=wdLine

End If



objDoc.Close wdDoNotSaveChanges

Set objWord = Nothing

Set objDoc = Nothing

my_Exit:

Exit Sub



myError:

MsgBox Err.Number & " " & Err.Description

Resume my_Exit

End Sub



Das läuft einmal richtig und einmal ohne Sortierung. Für einen guten Rat wäre ich dankbar.

Jedes zweite Mal erscheint die Meldung:Der Remote-Server-Computer existiert nicht oder nicht verfügbar

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: