Keresés

Köszönöm szépen!

Az a baj, hogy én magam nem foglalkozom az egyenletszerkesztéssel. Talltam még egy leírást a helyzetről, de az is lehet, hogy ez sem segít, sőt talán épp ez az Office Math Markup Language (OMML) amire panaszkodsz: https://support.microsoft.com/hu-hu/office/a-microsoft-egyenletszerkeszt%C5%91vel-l%C3%A9trehozott-egyenletek-szerkeszt%C3%A9se-08a44b8c-ae15-41a7-bc15-7239890c0cec 

Sajnos ez a topik nem nagyon pörög, ezért ha néhány napon belül nem kapsz használható tanácsot, akkor javaslom, hogy keresd fel az Excel fórumot (https://forum.index.hu/Article/showArticle?t=9009340), ott nagyobb a mozgás, és vannak ott, akik más Office termékek nyalánkságaiban is jártasak. És nem veszik rossz néven, ha az Excel szempontjából off topik kérdezel. Hátha tud valaki tanácsot adni a Word egyenlet szerkesztés kapcsán.   

Igen, valóban.

Persze a probléma megoldásához nem kerültünk közelebb. 

(De ezután legalább már szabatosan fogok szentségelni, amikor ezzel a szerencsétlen egyenletszerkesztővel próbálok dolgozni.)

Nem Windows, Office!!!

Igen, pontosan ennek az egyenletszerkesztőnek a hiányosságáról van szó.

(Igen, a 3.0 egyeletszerkesztőt már valamelyik korábbi windows verzióknál letarolták "biztonsági hiányosságok"ra hivatkozva; és azóta csak az MS egyenletszerkesztője használható. Aminek nem biztonsági, hanem használati hiányosságai vannak.)

Szerintem tévedsz abban, hogy a az egyenletszerkesztő 3.0 hiánya a Windows 11-hez kapcsolódik. Az alábbi leírás szerint biztonsági okokból eltávolították, de van helyette más: https://support.microsoft.com/hu-hu/office/egyenletszerkeszt%C5%91-6eac7d71-3c74-437b-80d3-c7dea24fdf3f. 

Segítséget szeretnék kérni az egyenletszerkesztő használatához!

Vektorokat és mátrixokat szeretnék beírni a képletekbe. Konzervatív módon a mátrixot nagybetűvel és kettős aláhúzással, a vektorokat kisbetűvel és egyszeres aláhúzással jelölném - mint ahogy ilyen formátumban szerepelnek azok akorábban szerkesztett, most kiegészíteni szándékoztott anyagban. Ez nem volt probléma a régi "Egyenletszerkesztő 2.0" és "Egyenletszerkesztő 3.0" verziókban, de a nagyon korszerű Win11 alatt futó Word egyenletszerkesztőjében nincsen már ilyen lehetőség. Ha a képletben a betűket bold, vagy italic állapotra szeretném állítani, a "Kezdőlap" menű "Betűtípus" alpontjában bármit beállíhatok, azonban az aláhúzás választásánál az egész képletet aláhúzza. 

Mi a teendő?

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.