Keresés

(A feldarabolást nem is kell fizikailag elvégezni, elég a "felesleges" részeket kijelölni, és a betűtípust rejtettre állítani.)

"az oldalszám dinamikusan alkalmazkodjon a végeredmény fájlban szereplő részekhez"

Mit értesz ez alatt?

Az ősi módszer, miszerint feldarabolod megfelelő részekre, nem jó?

Vagy a pdf-be alakításkor megadod az oldalszámokat tól-ig

Üdv, 1 db forrásfájlból szeretnék darabokat több PDF-be exportálni úgy, hogy a tartalomjegyzék és az oldalszám dinamikusan alkalmazkodjon a végeredmény fájlban szereplő részekhez. Tudnátok segíteni? Köszi

köszönöm

Azok a fránya \ jelek! Megpróbálom ismét

Sub mentes_maskent()

ertek1 = ActiveDocument.Tables(2).Cell(3, 1).Range.Text
ertek1 = Mid(ertek1, 1, (Len(ertek1) - 2))

ertek2 = ActiveDocument.Tables(2).Cell(1, 3).Range.Text
ertek2 = Mid(ertek2, 1, (Len(ertek2) - 2))

ertek3 = ActiveDocument.Tables(1).Cell(1, 3).Range.Text
ertek3 = Mid(ertek3, 1, (Len(ertek3) - 2))

fajlnev = ertek1 & "_" & ertek2 & "_" & ertek3 & ".docx"
path = Environ("USERPROFILE") & "\Documents\"

'lehet alkönyvtárat is megadni
'path = Environ("USERPROFILE") & "\Documents\alkonyvtar\"
'az alkonyvtarnak léteznie kell, különben az utolsó aktív könyvtár lesz az érték

With Dialogs(wdDialogFileSaveAs)
    .Name = path & fajlnev
    .Format = Word.WdSaveFormat.wdFormatXMLDocument
    .Show
End With


End Sub

Jó, ha ellenőrzi is az ember, kijönnek a hibák:

ertek = Mid(ertek, 1, (Len(ertek) - 2))

Akkor már a teljes

Sub mentes_maskent()

ertek1 = ActiveDocument.Tables(2).Cell(3, 1).Range.Text
ertek1 = Mid(ertek1, 1, (Len(ertek1) - 2))

ertek2 = ActiveDocument.Tables(2).Cell(1, 3).Range.Text
ertek2 = Mid(ertek2, 1, (Len(ertek2) - 2))

ertek3 = ActiveDocument.Tables(1).Cell(1, 3).Range.Text
ertek3 = Mid(ertek3, 1, (Len(ertek3) - 2))

fajlnev = ertek1 & "_" & ertek2 & "_" & ertek3 & ".docx"
path = Environ("USERPROFILE") & "Documents"

'lehet alkönyvtárat is megadni
'path = Environ("USERPROFILE") & "Documentsalkonyvtar"
'az alkonyvtarnak léteznie kell, különben az utolsó aktív könyvtár lesz az érték

With Dialogs(wdDialogFileSaveAs)
    .Name = path & fajlnev
    .Format = Word.WdSaveFormat.wdFormatXMLDocument
    .Show
End With

End Sub

A normal.dot-ban legyen a helye.

Segítségnek:

ertek = ActiveDocument.Tables(x).Cell(row, col).Range.Text

x= a táblázat száma, ha az első, akkor=1

Mivel az érték tartalmazza a cella határolót is (asc(7))

ertek = Mid(x, 1, (Len(x) - 1))

Sziasztok!

Word probléma vagyis inkább kérdés:

adott nevű xyz.docx, a a doc táblázat jellegű,

kitöltés után el kellene menteni másként, automatikusan, de olyan néven ami a doc 5 pontján kitöltött cellákba kerül manuális beírásra,

                    (1név_2rajzszám_3megnevezés_4szállítószáma_5dátum)  pl.: akárki_kb2020_piton_679/13_2023.11.24.docx

                     ezek az adatok manuálisan kerülnek be 5 különböző helyen levő cellákba

hogy ezt ajánlja fel fájlnévként másként mentésre

nem tudom mennyire érthető? megoldható ez egyébként valahogyan?

Kösz ha foglalkozik vele valaki

https://www.adobe.com/hu/products/acrobat-pro-cc.html

Letölthető az ingyenes (7 napos) próbaverzió. Lehet jelszavazni, stb. Vagy keresel egy régebbi verziót, ami megadott kulccsal (serial number) telepíthető.

(Minden védelem feltörhető. A képként mentett is egy OCR programmal szöveggé változtatható.)

Word dokumentumot szeretnék pdf-be menteni. Ez megy simán csak úgy nem ahogy kellene. A lényeg, hogy olyan pdf fájlra lenne szükségem ami nem szerkeszthető. Nem kattinthatók a hivatkozások, nem lehet kijelölni, másolni. Tehát olyan pdf fájlra lenne szükségem fizikai nyomtatás nélkül mintha szkennelt fájl lenne a pdf állomány. Hogyan tudom ezt megoldani? kb. 25 db egyenként 200-300 oldalas dokumentumról van szó.

Szuper lett, köszönöm szépen a segítséget :-)

Felesleges a számláló, az"it" tartalmazza a file neveket

Sub Keptalloz()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

fDialog.AllowMultiSelect = True

fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
If fDialog.Show = -1 Then
For Each it In fDialog.SelectedItems
Selection.InlineShapes.AddPicture FileName:=it
Next it
End If

End Sub

Sub Keptalloz()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

fDialog.AllowMultiSelect = True

fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\" 'hiányzik a perjel, ha nem akarod mindig a C-n kezdeni, hagyd ki ezt a sort
i = 0
If fDialog.Show = -1 Then
For Each it In fDialog.SelectedItems
i = i + 1
Selection.InlineShapes.AddPicture FileName:=Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(i)
Next it
End If

End Sub

Nekem így működött. Több képet is ki lehet jelölni egyszerre.

Sziasztok!

Word alá szeretnék egy rövid VBA kódot, ami a kép beszúrása tallózó ablakot megnyitja.

Ezt találtam a neten, és elvileg meg is nyit egy mappát, de hiába kattintok egy fájlra, nem illeszti be.

Sub Keptalloz()

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

fDialog.AllowMultiSelect = True

fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:"

If fDialog.Show = -1 Then
For Each it In fDialog.SelectedItems
Debug.Print it
Next it
End If

End Sub

Nekem a teszt szövegben az első oldal eltérő volt beállítva, azért működött. Módosítottam a makrót

Sub utolso_lablec_torles()

  Selection.GoTo What:=wdGoToPage, Which:=wdGoToLast
  Selection.InsertBreak Type:=wdSectionBreakNextPage
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
        LinkToPrevious
  x = ActiveDocument.Sections.Count
  With ActiveDocument.Sections(x)
    .Footers(wdHeaderFooterFirstPage).Range.Text = ""
  End With
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

Most az első és a jobb-bal oldal eltérőnél működik.

Működik, látszatra nem törli ki. Manuálisan kijelölöm utána a láblécet és törlöm és jó.

Kösz.

Köszönöm, már tesztelem is.

Teljesen felesleges a makró hozzá!

De, tessék:

Sub utolso_lablec_torles()

  Selection.GoTo What:=wdGoToPage, Which:=wdGoToLast
  Selection.InsertBreak Type:=wdSectionBreakNextPage
  ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
  Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _
        LinkToPrevious
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

Azért felesleges, mert, ha bármit szerkesztesz/átállítsz a dokudban változik az oldaltörés. Ezt folyamatosan követni egy makróval nem normális. Csak a kész, végleges doku utolsó lépése lehet ez, amikor kinyomtatod, vagy pdf-be átalakítod. Ennyi pedig gond nélkül elvégezhető manuálisan.

Üdv!

Egy többoldalas Word dokumentum utolsó oldalán szeretném kikapcsolni a láblécet., úgy, hogy az előző oldalakon látható maradjon.

Hogyan oldhatnám meg ezt a feladatot?

Jó lenne makróval.

Köszönet.

Az NE legyen bejelölve!

CTRL + E

Nálam mindegyik általam létrehozott stílusnál van valami a "stílus alapja" résznél, azaz nem nincs :) De csak ennél a listánál adta ezt az eltolást.

A billentyűkombináció lehet (amit véletlenül megnyomok). Gyanúsan középre igazítja a 8,89cm-rel.

A 901-ben írtam a "Stílus alapja" beállításról. Neked hogy van? "Nincs"-re van állítva, vagy van valami. Mert annak a valaminek a módosítása okozhatja ezt a jelenséget.

Esetleg valami billentyűzetkombináció megnyomása.

Ezzel nem volt gondom, de annyiban más az esetemben, hogy stílusokat használva formáztam az adott listát. Vannak számozott, gondolatjeles, körös, stb listák a doksiban hierarchia szerint.

Egyelőre nem küldök mintát erről, megpróbálom kifigyelni, hogy mi okozza, hogy reprodukálható legyen. Mert így önmagában nem sok látszik, magában a stílusban az általam beállított behúzás érték 2cm-ről átíródott 8,89cm-re.

Szia! Sikerült! Nem tudom, hogy kerülhette el a figyelmem akkor, pedig kattintottam mindenhova, hogy találjak beállítási lehetőséget :) KÖszi!

A Quarkhoz még ennyire sem értek...

Ez a Word névjegye. Lehet más verziód van?

Esetleg, ha itt felveszel valami arab nyelvet, akkor nincs változás? (Ugyan nekem sincs felvéve.)

Több ötletem nincs, max. sok Googlézés.

Ha megfeszülök is, akármit állítok (ahogy írtad), nálam ez van:

Az a vicc az egészben, hogy nem is Word-ben akartam ezzel kínlódni, hanem Quarkban álltam neki, de ott sem jó. (Sőt, azóta már egy délkelet-ázsiai írásnál is előjött a probléma, hogy vannak betűk, amit teljesen máshogy néznek ki, mint kéne.)

Ez az, amikor a "Normál" a "Stílus alapja".

Amit beraktam, az a Wordben van! (Office 2007)

A kép is!