Keresés

Részletes keresés

arkilaszlo Creative Commons License 2023.11.24 0 0 928

köszönöm

Előzmény: acsudasemakarta,demuszáj (927)
acsudasemakarta,demuszáj Creative Commons License 2023.11.24 0 0 927

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

Előzmény: acsudasemakarta,demuszáj (926)
acsudasemakarta,demuszáj Creative Commons License 2023.11.24 0 0 926

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.

Előzmény: acsudasemakarta,demuszáj (925)
acsudasemakarta,demuszáj Creative Commons License 2023.11.24 0 0 925

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))

Előzmény: arkilaszlo (924)
arkilaszlo Creative Commons License 2023.11.24 0 0 924

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

m54-b Creative Commons License 2023.08.03 0 0 923

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ó.)

Előzmény: Kareszmester Karcsi (922)
Kareszmester Karcsi Creative Commons License 2023.08.03 0 0 922

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ó.

Redlac Creative Commons License 2023.07.09 0 0 921

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

 

Előzmény: acsudasemakarta,demuszáj (920)
acsudasemakarta,demuszáj Creative Commons License 2023.07.08 0 0 920

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

Előzmény: m54-b (919)
m54-b Creative Commons License 2023.07.08 0 0 919

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.

Előzmény: Redlac (918)
Redlac Creative Commons License 2023.07.08 0 0 918

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

m54-b Creative Commons License 2023.04.02 0 0 917

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.

Előzmény: OldPinokkio (916)
OldPinokkio Creative Commons License 2023.04.02 0 0 916

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.

 

Előzmény: m54-b (914)
OldPinokkio Creative Commons License 2023.04.02 0 0 915

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

 

Előzmény: m54-b (914)
m54-b Creative Commons License 2023.04.02 0 0 914

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.

Előzmény: OldPinokkio (913)
OldPinokkio Creative Commons License 2023.04.02 0 0 913

Ü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.

m54-b Creative Commons License 2023.03.06 0 0 912

 

Az NE legyen bejelölve!

Előzmény: NeomatiK (910)
m54-b Creative Commons License 2023.03.06 0 0 911

CTRL + E

 

Előzmény: NeomatiK (910)
NeomatiK Creative Commons License 2023.03.06 0 0 910

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.

Előzmény: m54-b (909)
m54-b Creative Commons License 2023.03.06 0 0 909

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.

Előzmény: NeomatiK (907)
NeomatiK Creative Commons License 2023.03.06 0 0 908

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.

Előzmény: pimre (897)
NeomatiK Creative Commons License 2023.03.06 0 0 907

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.

Előzmény: m54-b (895)
NeomatiK Creative Commons License 2023.03.06 0 0 906

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!

Előzmény: m54-b (894)
m54-b Creative Commons License 2023.03.01 0 0 905

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.

Előzmény: Ishimaru84 (904)
Ishimaru84 Creative Commons License 2023.03.01 0 0 904

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.)

Előzmény: m54-b (903)
m54-b Creative Commons License 2023.03.01 0 0 903

 

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

Előzmény: m54-b (901)
m54-b Creative Commons License 2023.03.01 0 0 902

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

A kép is!

Előzmény: Ishimaru84 (900)
m54-b Creative Commons License 2023.03.01 0 0 901

Elsőre, szerintem, az lehet a gond, hogy nem használt stílust.

 

Minden Word munkának az alapja, hogy stílusokat használunk, akár egy bekezdésre is! (Jó, 1/2 - 1 oldalas leveleknél engedmény tehető.)

 

Én a stílus meghatározásánál a "Stílus alapja" nincs stílusra állítom. Ha valamilyen stílust meghagysz mintának, akkor az annak a változtatása átkerül a te stílusodba (már amit nem állítottál be egyénileg!).

 

 

 

 

A fenti kép egy minta a csatolt stílusnál mi történik, ha az alapot megváltoztatod.

 

 

A keretben levő részen a felső a "Stílus alapja" "Normál". Az első sor az "arab-szöveg" stílussal van formázva, az alatta levő sor "Normál".

Majd megváltoztattam a "Normál" stílust (a betűtípust "Nagybetűs"-re és lám egyformán nagybetűsek lettek, mert az "arab-szöveg" stílusban azt nem határoztam meg külön!

 

 

 

 

Érdemes kipróbálni!

 

Előzmény: pimre (897)
Ishimaru84 Creative Commons License 2023.03.01 0 0 900

Ez így szép és jó, de Word-ben és Quark-ban nem így jeleníti meg, hanem fordítva... Ha megcserélem a betűket pont fordított sorrendre, akkor se jeleníti meg jól. (Ugye pl. az arabban máshogy írnak egy betűt ha szó elején, közben vagy végén van.)

Előzmény: m54-b (899)
m54-b Creative Commons License 2023.03.01 0 0 899

Nekem ilyen:

 

 

A keretezett a kép, a többi copy-paste (Firefox, Chrome és Edge böngészőkből másolva).

Előzmény: Ishimaru84 (898)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!