Új hozzászólás Aktív témák

• #5956 attiati veterán lúzer #5953

  Új Válasz 2008-08-28 23:32:10 #5956

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  attiati

  veterán

  válasz lúzer #5953 üzenetére

  Erről szólt kb kraftxld linkje is, de sajnos össze vissza sorrendben tűzdeli őket össze
  A megoldás egy makró, ami a c:\doksikönyvtárba pakolt *.doc-okat fájlnév szerint rakja össze:

  "Sub Osszefuz()
  Set fs = Application.FileSearch
  With fs
  .LookIn = "C:\doksikonyvtar"
  .FileName = "*.doc"
  If .Execute > 0 Then
  For i = 1 To .FoundFiles.Count
  Selection.InsertFile FileName:=.FoundFiles(i), Range:="", _
  ConfirmConversions:=False, Link:=False, Attachment:=False

  Next i
  Else
  MsgBox "Nincs Fajl"
  End If
  End With
  End Sub"

  Nem saját szerzemény, másik fórumon találtam.

  A pdf2doc meg elég körülményes, mert táblázatok, nyilak, elcsúsztatott dolgok vannak benne, amit Word nem lesz képes értelmesen megjeleníteni.
  Összefűztem már, csak ki kéne törölni üres részeket. Még ha körülményes, akkor is érdekel, hogy lehet

Új hozzászólás Aktív témák