VBA, Word 2007, Procedure te groot

[jackfish]

Ik heb het consult.zip net nogeens gedownload en ik vrees een verkeerde copy-paste actie mijnerzijds... Die ampersand staat er wel, maar het &-teken niet. De foutmelding 438 blijft echter.

 

[jackfish]

De aanhouder wint. Een klein succesje te melden. Als ik de code

.SaveAs2 ThisDocument.Path & "\rapport.001.docx"

wijzig in

.SaveAs FileName:="O:\LDZ&B\Afdelingen\Somatische Screening\Rene van der Snoek\Vis\rapport001.docx", FileFormat:=wdFormatdocx

dan slaat hij het rapport001 keurig op en wordt het bestand gesloten.

nog 1 horde te gaan ...

 

[snb]

Zoek eens in wikipedia op welk teken ampersand heet....

 

[jackfish]

Jammer hoor, ik houd het voor mijn eigenwaarde maar op haastige spoed Ik ga zo het resterende probleem nog eens fris bekijken

 

[jackfish]

Het internet nog eens afgestruind, fora's bezocht maar ik mocht geen aanwijzing vinden om het op te lossen. Wie heeft er nog een idee?

.sheets(1).Cells(.Application.Rows.Count, 1).End(-4162).Offset(1).Resize(, UBound(sn) + 1) = sn

jackfish

 

[jackfish]

Misschien is er geen oplossing?

 

[jackfish]

Ondanks het grote aantal mensen dat deze post bekeek nog geen bruikbare aanwijzing mogen verkrijgen.

 

[OctaFish]

Leg eens uit wat nu nog het probleem is... Als ik de draad er zo op na lees, heb ik geen idee wat je bedoelt met 'nog 1 horde te gaan'.

 

[jackfish]

De horde die nog te gaan is gaat over de foutmelding 1004

.sheets(1).Cells(.Application.Rows.Count, 1).End(-4162).Offset(1).Resize(, UBound(sn) + 1) = sn

Op een of andere manier verslikt VBA zich in die regel en ik vind maar niet uit waar dat in zit.