Kan man overfører alt hvad der står i en listboc til et word eller excel ark (HASTER)

kan man....hvis der ikke er noget der svarer inden så har du et svar fra mig inden kl.10

(har ikke vb på denne computer)

Ok....i dit spørgsmål står der word ELLER excel... så jeg har valgt med word...excel er nogenlunde det samme....det du gør er:
1.Klik på project...references...sæt kryds i Microsoft word 9.0 libary!

så skal du starte word....

nu kan du med følgende kode skrive i et word dokument

For X = 0 To List1.ListCount
Word.Selection.TypeText List1.List(X)
Selection.TypeParagraph
Next

det kræver at du har lavet et blankt dokument..men det kan du oxo gøre ved at skrive

Word.Documents.Add , , wdNewBlankDocument

(i visual basic)

Hvordan du vil starte word er op til dig...hvis du vil have vb til automatisk at gøre det er jeg sikker på at jeg nok oxo kan assistere dig i det problem!

Selvom dette er en lille koed ligger der sq et lidt større arbejde bag :)

det vil jeg da også gerne have....

først vil jeg liiige have at vide hvorfor tdaugaard fik opint i spørgsmålet med printeren og ikke jeg!

hov har sku da givet den forkerte point.... UPS hvad fanden gør jeg nu....

:(

tjahhh... tdaugaard har givet mig de 200 af pointsne........ det var det der fik mig til at undre mig......hvad mailede han til dig?

det er ikke fordi jeg er totalt point liderlig..og jeg ved udmærker godt at 200 er fair for sådan et spørgsmål...men jeg kan ALTID bruge points..for når jeg går igang med et projekt har jeg brug for dem :(

hvad skal du bruge den information til....

øhhhh..skal jeg ikek have at vide...det var bare det der fik mig til at undre mig over hvad han mailede til dig! kunne nemmerligt ikke se hvordan det kunne gøres smartere...anyway..er igang med dit problem nu!

vi har ikke snakket om det med de point.....

tjahh....jeg overlever sq nok uden :)

ok...jeg har flekket en findwindow funktion sammen

Declare Function WindowFromPoint Lib \"user32\" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

Declare Function EnableWindow Lib \"user32\" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Declare Function SetActiveWindow Lib \"user32\" (ByVal hwnd As Long) As Long
Declare Function GetWindow Lib \"user32\" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function GetWindowText Lib \"user32\" Alias \"GetWindowTextA\" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Global Const FirstHwnd = 0
Global Const NextHwnd = 2

Function Findwindow(WindowText)
Dim WText As String * 100
currhwnd = GetWindow(Form1.hwnd, FirstHwnd)
While currhwnd <> 0
length = GetWindowText(currhwnd, WText, 100)
Windowt = Left(WText, length)
If left(LCase(Windowt),14) = left(LCase(WindowText),14) Then Findwindow = currhwnd
currhwnd = GetWindow(currhwnd, NextHwnd)
Wend
End Function



så skal du bruge

Shell \"C:\\programmer\\office\\winword.exe\"
While Findwindow(\"Microsoft Word\") <> 0
wend

og så kan du snakk emd word....

scriptet kræver nok noget tilpasning..hvis du finder det totalt ufårsteligt skal jeg nok lave det perfekt......

jeg er ikke så meget inde i VB med den lange kode er til et BAS module ikke ???

jo :=)

jeg har indsat det der skal bruges til modulet og har indsat det andet i en knap, men der kommer kun et tomt doc....

hvad er der nu galt

kan du ikke bare forklare det hele fra starten....

send dit projekt til \"Voldemort@microsux.dk\" så skal jeg nok indsætte det!

Jeg har selv fundet en kode til at indsætte det.... Så jeg lukker spm\'t