Keresés

Legyen: használt stílusok a Stílus1 és a Stílus2. A pontjaid Stílus2-vel vannak formázva. A Stílus3 nincs használatban.

0.) a Stílus3-t módosítsd, úgy, hogy Rejtett betűtípusa legyen.

Elvégzed a felesleges pontok elrejtését

1.) csere1: a Keresett szövegnek megadod a rejtett Stílus2-t, a Csere erre Stílus3, Összes cseréje

ha végeztél visszacseréled

2.) csere2: a.) Rejtett csere nem rejtettre, b.) Stílus3 csere Stílus2-re

Az 1.) és 2.) pontokra gyakran lesz szükséged, célszerű egy makróval elvégezni. Van valahol makró rögzítő (nekem a Fejlesztőeszközök fül alatt)

ott elindítod a Makró rögzítést (a felirat átvált Makrórögzítés vége-re), megadod a makró nevét ("-" jel nem lehet a névben, de "_" lehet), hagyd a Normál.dot-ban a helyet, eljátszod a cserét, leállítod a rögzítést.

Másik leállítási mód a lap alján található:

.

Ha kész felveszed a visszaalakítás makróját is. Ennyi.

Nagyon köszönöm, klasszul működik. Már csak annyi a "szépséghiba", hogy sorszámozottak a címsorok és a rejtett tartalom után jó lenne, ha mondjuk a 4-es pont után nem a 8-as jönne. Erre van esetleg valamilyen megoldás?

A 931 (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.) megfelel ennek. Szerintem.

Ha címsoroztad a pontokat, akkor a "felesleg" kijelölése egyszerű lesz, átváltasz "Vázlat" nézetre, a címsorozásnak megfelelő szintig jeleníted meg a dokumentumot. Kijelölőd a rejteni valót, arra a részre megadod a rejtett betűtípust, és kész.

Visszaállítás ennek a fordítottja, vagy egyszerűen a "Csere" funkcióval lecseréled a rejtett betűtípust normálra.

Köszi a választ. Az oldalszám alatt a dokumentum aljára illesztett oldalszám jelölést értem. Tehát, amikor egy 100 oldalas dokumentumból exportálok a 12-20.oldal közötti részt, akkor a tartalomjegyzék ne 12.oldalról induljon, és a pdf-ben a lap alján szereplő oldalszám se 12-től fusson.

A dolgot talán egyszerűbb elképzelni, ha leírom, mire kell. Felhasználói leírást készítek, és lesznek szerepkörök. A titkárnőre igaz 1. 2. 3. 15. pontok, az igazgatóra igaz lesz az 1. 2. 20. 23. pontok, és a többi. Mindezt jó lenne nem 72 db fájlban kezelni, főként, hogy ha valamit módosítani kell, az komoly hiba faktor, ha sok helyen kell matatni.

(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!