Soru Word ; Tablo içerisindeki resimlerin, resim yazısına göre alfabetik sıralanması

hadromer · 6 Eylül 2019

Merhaba,
Daha önce word kısmına böyle bir konu açmıştım, bir de makro bölümüne sormak istedim. Word bölümündeki konuyu silemedim bunun için özür diliyorum.

Halit hocam sağ olsun uzun uğraşlar sonucu istediğim tabloyu oluşturacak bir kod yazdı. Fotoğraftaki gibi bir tablo oluşturuldu. Şimdi bu fotoğrafların altında fotoğraflara ait isimlendirmeler mevcut. Bende bu isimlendirmelere göre alfabetik sıralama yapmak istiyorum. Bu konuda yardımcı olabilir misiniz ?

Örnek Dosya : https://s2.dosya.tc/server10/unv18i/ornek.docx.html

halit3 · 6 Eylül 2019

Aşağıdaki linkte 25 nolu mesejdaki kodlar bu işi iki aşamada yapıyor
https://www.excel.web.tr/threads/grupta-istenen-eleman-yok-hatasi.181789/page-2

hadromer · 6 Eylül 2019

halit3' Alıntı:
Aşağıdaki linkte 25 nolu mesejdaki kodlar bu işi iki aşamada yapıyor
https://www.excel.web.tr/threads/grupta-istenen-eleman-yok-hatasi.181789/page-2

hocam teşekkür ederim, daha önce yazdığınız kodlar çalışınca o kodu denememiştim. 25 no'lu mesajdaki kodlar alfabetik mi alıyor resimleri ?

hadromer · 6 Eylül 2019

halit3' Alıntı:
Aşağıdaki linkte 25 nolu mesejdaki kodlar bu işi iki aşamada yapıyor
https://www.excel.web.tr/threads/grupta-istenen-eleman-yok-hatasi.181789/page-2

"worddeki resimleri klasöre kayıt yap" butonu hata veriyor. Ama "Klasöredeki resimleri worde kaydet"butonu sorusuz çalışıyor.

halit3 · 6 Eylül 2019

referansları yaptınızmı

halit3 · 6 Eylül 2019

Kodlar eski dosyalarınızdaki verileri alınca çalışır

hadromer · 6 Eylül 2019

halit3' Alıntı:
referansları yaptınızmı

referansı eklememişim. ekleyince çalıştı. Resimleri kaydetti. Fakat resimleri numaralandırarak isimlendiriyor

bu iki aşamalı sistemde foto altındaki yazıyla kaydetse, sonra ikinci aşamayı yani resimleri worde yazdırsak alfabetik olarak ?

halit3 · 6 Eylül 2019

siz ilk dosyalarınızda çalıştırmamışbınız

halit3 · 6 Eylül 2019

Kodları Buraya eklediğiniz linkdeki dosyada çalıştırmıyacaksınız
daha önceki linkdeki dosyalarda çalıştıracaksınız.

halit3 · 6 Eylül 2019

1 nolu masaja eklediğiniz dosya için kod

Birinci kod

Kod:

'referanslar
'Microsoft Word 12.0 Object Library
Dim deg8
#If Win64 Then
Private Declare PtrSafe Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare PtrSafe Function EmptyClipboard& Lib "user32" ()
Private Declare PtrSafe Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare PtrSafe Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare PtrSafe Function CloseClipboard& Lib "user32" ()
Private Declare PtrSafe Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare PtrSafe Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

#Else
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function EmptyClipboard& Lib "user32" ()
Private Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

#End If

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Type PICTDESC
cbSize As Long
picType As Long
hImage As Long
End Type
Private Sub ImageToMePicture()
Dim hCopy&: OpenClipboard 0&
' Bitmap = 2 / Metafile = 14
hCopy = CopyImage(GetClipboardData(2), 0, 0, 0, &H4)
CloseClipboard
If hCopy = 0 Then Exit Sub
Const IPictureIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim IPic As IPicture, tIID As GUID, tPICTDEST As PICTDESC, Ret&
Ret = IIDFromString(StrConv(IPictureIID, vbUnicode), tIID)
If Ret Then Exit Sub
With tPICTDEST
.cbSize = Len(tPICTDEST)
' Bitmap = 1 / Metafile = 4
.picType = 1
.hImage = hCopy
End With
Ret = OleCreatePictureIndirect(tPICTDEST, tIID, 1, IPic)
If Ret Then Exit Sub

Klasor = ThisWorkbook.Path & "\Resimler"

If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then
MkDir Klasor
End If
son1 = CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files.Count + 1
dosya_adi = Klasor & "\" & deg8 & " " & Format(son1, "000000") & ".jpg"

SavePicture IPic, dosya_adi '"c:\xxx.bmp"

Set IPic = Nothing
End Sub

Sub klasore_kayıtyap()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Dim fL As Object, fs As Object
Set fL = CreateObject("Scripting.FileSystemObject")


Application.WindowState = wdWindowStateMinimize

For Each dosya In fL.GetFolder(Kaynak).Files
uzanti = fL.GetExtensionName(dosya)
If uzanti = "doc" Or uzanti = "docx" Then

yol = dosya
ReDim veri(5000)
Dim objWord As Word.Application
Dim docWord As Word.Document
Dim ImgItem As Word.InlineShape
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:=yol, ReadOnly:=True)

sayy1 = 0

If objWord.ActiveDocument.Tables.Count > 0 Then
For i = 1 To objWord.ActiveDocument.Tables.Count
aranan = "Tür / Species"
satson = objWord.ActiveDocument.Tables(1).Rows.Count
sutson = objWord.ActiveDocument.Tables(1).Columns.Count
If objWord.ActiveDocument.Tables(1).Rows.Count > 2 Then

For r = 1 To objWord.ActiveDocument.Tables(i).Rows.Count
For j = 1 To objWord.ActiveDocument.Tables(i).Columns.Count
bulunan = objWord.ActiveDocument.Tables.Item(i).Cell(r, j).Range.Text
'MsgBox bulunan


bulunan2 = Replace(Replace(Replace(Trim(bulunan), "", ""), Chr(13), ""), Chr(32), "")
If Len(bulunan2) > 5 Then
sayy1 = sayy1 + 1
veri(sayy1) = bulunan2
Cells(sayy1, 1).Value = bulunan2
End If
Next j
Next r
End If
atla3:
Next i
End If

'On Error Resume Next
deg3 = 0
deg4 = 0
deg2 = 0

For Each ImgItem In docWord.InlineShapes
If ImgItem.Type = wdInlineShapePicture Then
ImgItem.Select
deg3 = objWord.Selection.Paragraphs.Last.Range.End
deg2 = deg2 + 1
deg8 = veri(deg2)
objWord.Selection.CopyAsPicture
Call ImageToMePicture
'----------------------------------------------------
deg4 = objWord.Selection.Paragraphs.Last.Range.End
'-------------------------------------------------------
End If
Next

ThisWorkbook.Sheets(ActiveSheet.Name).Range("a1").Copy
Application.CutCopyMode = False
docWord.Close SaveChanges:=wdPromptToSaveChanges
objWord.Quit
Set docWord = Nothing
End If
Next

Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

ikinci kod

Kod:

'referanslar
'Microsoft Word 12.0 Object Library

Sub worde_kayıtyap()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Dim fL As Object, fs As Object
Set fL = CreateObject("Scripting.FileSystemObject")
sat1 = 1
sut1 = 1
say1 = 3
yuk = 220 '165
 
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
wrdApp.Visible = True

With wrdApp.ActiveDocument.PageSetup
.LeftMargin = 30 '50 'sol
.RightMargin = 10 '50 'sağ
.TopMargin = 20 'üst
.BottomMargin = 20 '20 ' alt
.Orientation = wdOrientLandscape
End With

wrdApp.ActiveDocument.Tables.Add Range:=wrdApp.ActiveDocument.Range(0, 0), NumRows:=2, NumColumns:=say1
Application.WindowState = wdWindowStateMinimize

For Each dosya In fL.GetFolder(Kaynak).Files
uzanti = fL.GetExtensionName(dosya)
If uzanti = "jpg" Or uzanti = "bmp" Then
veri = dosya
veri3 = dosya.Name
veri2 = Mid(dosya.Name, 1, Len(veri3) - 10)

With wrdApp.ActiveDocument.Tables.Item(1).Cell(sat1, sut1)

.Range.Paragraphs.WordWrap = True
.Range.InlineShapes.AddPicture Filename:=veri, LinkToFile:=False, SaveWithDocument:=True
.Range.InlineShapes(1).Fill.Visible = msoFalse
.Range.InlineShapes(1).Fill.Solid
.Range.InlineShapes(1).Line.Visible = msoFalse
.Range.InlineShapes(1).Height = yuk '200
.Range.InlineShapes(1).Width = .Range.Cells.Width - 6 '285 '250
wrdApp.ActiveDocument.Tables.Item(1).Cell(sat1 + 1, sut1).Range = veri2

End With

sut1 = sut1 + 1
If sut1 = say1 + 1 Then
sut1 = 1
sat1 = sat1 + 2
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Select
wrdApp.Selection.InsertRowsBelow 2
End If

End If
Next

If sut1 = 1 Then
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Delete
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Delete
End If

Klasor = ThisWorkbook.Path & "\yeni"
If fL.FolderExists(Klasor) = False Then
MkDir Klasor
End If

son1 = fL.GetFolder(Klasor).Files.Count + 1
dosya_adi = Klasor & "\" & "word dosya" & son1 & ".doc"
wrdApp.ActiveDocument.SaveAs dosya_adi
wrdApp.Quit


Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

hadromer · 6 Eylül 2019

halit3' Alıntı:

1 nolu masaja eklediğiniz dosya için kod

Birinci kod

Kod:

'referanslar
'Microsoft Word 12.0 Object Library
Dim deg8
#If Win64 Then
Private Declare PtrSafe Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare PtrSafe Function EmptyClipboard& Lib "user32" ()
Private Declare PtrSafe Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare PtrSafe Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare PtrSafe Function CloseClipboard& Lib "user32" ()
Private Declare PtrSafe Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare PtrSafe Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

#Else
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function EmptyClipboard& Lib "user32" ()
Private Declare Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As String, ByRef lpiid As GUID) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32" (pPictDesc As PICTDESC, ByRef riid As GUID, ByVal fOwn As Long, ByRef ppvObj As IPicture) As Long

#End If

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(8) As Byte
End Type

Private Type PICTDESC
cbSize As Long
picType As Long
hImage As Long
End Type
Private Sub ImageToMePicture()
Dim hCopy&: OpenClipboard 0&
' Bitmap = 2 / Metafile = 14
hCopy = CopyImage(GetClipboardData(2), 0, 0, 0, &H4)
CloseClipboard
If hCopy = 0 Then Exit Sub
Const IPictureIID = "{7BF80981-BF32-101A-8BBB-00AA00300CAB}"
Dim IPic As IPicture, tIID As GUID, tPICTDEST As PICTDESC, Ret&
Ret = IIDFromString(StrConv(IPictureIID, vbUnicode), tIID)
If Ret Then Exit Sub
With tPICTDEST
.cbSize = Len(tPICTDEST)
' Bitmap = 1 / Metafile = 4
.picType = 1
.hImage = hCopy
End With
Ret = OleCreatePictureIndirect(tPICTDEST, tIID, 1, IPic)
If Ret Then Exit Sub

Klasor = ThisWorkbook.Path & "\Resimler"

If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then
MkDir Klasor
End If
son1 = CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files.Count + 1
dosya_adi = Klasor & "\" & deg8 & " " & Format(son1, "000000") & ".jpg"

SavePicture IPic, dosya_adi '"c:\xxx.bmp"

Set IPic = Nothing
End Sub

Sub klasore_kayıtyap()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Dim fL As Object, fs As Object
Set fL = CreateObject("Scripting.FileSystemObject")


Application.WindowState = wdWindowStateMinimize

For Each dosya In fL.GetFolder(Kaynak).Files
uzanti = fL.GetExtensionName(dosya)
If uzanti = "doc" Or uzanti = "docx" Then

yol = dosya
ReDim veri(5000)
Dim objWord As Word.Application
Dim docWord As Word.Document
Dim ImgItem As Word.InlineShape
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:=yol, ReadOnly:=True)

sayy1 = 0

If objWord.ActiveDocument.Tables.Count > 0 Then
For i = 1 To objWord.ActiveDocument.Tables.Count
aranan = "Tür / Species"
satson = objWord.ActiveDocument.Tables(1).Rows.Count
sutson = objWord.ActiveDocument.Tables(1).Columns.Count
If objWord.ActiveDocument.Tables(1).Rows.Count > 2 Then

For r = 1 To objWord.ActiveDocument.Tables(i).Rows.Count
For j = 1 To objWord.ActiveDocument.Tables(i).Columns.Count
bulunan = objWord.ActiveDocument.Tables.Item(i).Cell(r, j).Range.Text
'MsgBox bulunan


bulunan2 = Replace(Replace(Replace(Trim(bulunan), "", ""), Chr(13), ""), Chr(32), "")
If Len(bulunan2) > 5 Then
sayy1 = sayy1 + 1
veri(sayy1) = bulunan2
Cells(sayy1, 1).Value = bulunan2
End If
Next j
Next r
End If
atla3:
Next i
End If

'On Error Resume Next
deg3 = 0
deg4 = 0
deg2 = 0

For Each ImgItem In docWord.InlineShapes
If ImgItem.Type = wdInlineShapePicture Then
ImgItem.Select
deg3 = objWord.Selection.Paragraphs.Last.Range.End
deg2 = deg2 + 1
deg8 = veri(deg2)
objWord.Selection.CopyAsPicture
Call ImageToMePicture
'----------------------------------------------------
deg4 = objWord.Selection.Paragraphs.Last.Range.End
'-------------------------------------------------------
End If
Next

ThisWorkbook.Sheets(ActiveSheet.Name).Range("a1").Copy
Application.CutCopyMode = False
docWord.Close SaveChanges:=wdPromptToSaveChanges
objWord.Quit
Set docWord = Nothing
End If
Next

Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

ikinci kod

Kod:

'referanslar
'Microsoft Word 12.0 Object Library

Sub worde_kayıtyap()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Dim fL As Object, fs As Object
Set fL = CreateObject("Scripting.FileSystemObject")
sat1 = 1
sut1 = 1
say1 = 3
yuk = 220 '165

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
wrdApp.Visible = True

With wrdApp.ActiveDocument.PageSetup
.LeftMargin = 30 '50 'sol
.RightMargin = 10 '50 'sağ
.TopMargin = 20 'üst
.BottomMargin = 20 '20 ' alt
.Orientation = wdOrientLandscape
End With

wrdApp.ActiveDocument.Tables.Add Range:=wrdApp.ActiveDocument.Range(0, 0), NumRows:=2, NumColumns:=say1
Application.WindowState = wdWindowStateMinimize

For Each dosya In fL.GetFolder(Kaynak).Files
uzanti = fL.GetExtensionName(dosya)
If uzanti = "jpg" Or uzanti = "bmp" Then
veri = dosya
veri3 = dosya.Name
veri2 = Mid(dosya.Name, 1, Len(veri3) - 10)

With wrdApp.ActiveDocument.Tables.Item(1).Cell(sat1, sut1)

.Range.Paragraphs.WordWrap = True
.Range.InlineShapes.AddPicture Filename:=veri, LinkToFile:=False, SaveWithDocument:=True
.Range.InlineShapes(1).Fill.Visible = msoFalse
.Range.InlineShapes(1).Fill.Solid
.Range.InlineShapes(1).Line.Visible = msoFalse
.Range.InlineShapes(1).Height = yuk '200
.Range.InlineShapes(1).Width = .Range.Cells.Width - 6 '285 '250
wrdApp.ActiveDocument.Tables.Item(1).Cell(sat1 + 1, sut1).Range = veri2

End With

sut1 = sut1 + 1
If sut1 = say1 + 1 Then
sut1 = 1
sat1 = sat1 + 2
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Select
wrdApp.Selection.InsertRowsBelow 2
End If

End If
Next

If sut1 = 1 Then
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Delete
wrdApp.ActiveDocument.Sections(1).Range.Tables(1).Rows.Last.Delete
End If

Klasor = ThisWorkbook.Path & "\yeni"
If fL.FolderExists(Klasor) = False Then
MkDir Klasor
End If

son1 = fL.GetFolder(Klasor).Files.Count + 1
dosya_adi = Klasor & "\" & "word dosya" & son1 & ".doc"
wrdApp.ActiveDocument.SaveAs dosya_adi
wrdApp.Quit


Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If

End Sub

@halit3 hocam bu kodları sizin kod yazıp ta 6 dosyayı birleştirip oluşan ana dosyada çalıştırıyorum. Excelle foto altındaki yazıları alıyor sadece

bana lazım olan yine wordde sizin oluşturduğunuz tablo hali ama alfabetik sıralı. Aşağıda örnek bir foto var. O şekilde sıralı yapmam lazım.

halit3 · 6 Eylül 2019

Bu konu başlığındaki 1 nolu mesaşdaki dosya için eklediğim dosyadaki komut düğmesine tıkla

halit3 · 6 Eylül 2019

Dosyada küçük düzeltme yaptım

hadromer · 6 Eylül 2019

halit3' Alıntı:
Bu konu başlığındaki 1 nolu mesaşdaki dosya için eklediğim dosyadaki komut düğmesine tıkla

hocam 12 numaralı mesajınızdaki kodları ana dosyama uyguladım. Şuan kopyalama işlemi devam ediyor. Sanırım bazı dosyaları 3-4 kez kopyalamış. İşlem bitince 13 numaralı mesajınızdaki kodu da deneyip size bilgi vereceğim. Ellerinize sağlık şimdiden

hadromer · 6 Eylül 2019

@halit3 hocam iki kodu da denedim. Şöyle bir problem oluyor ; resimleri hafızaya alma işlemi bittikten sonra word dosyasına resimleri atarken resimleri isimsiz/yazısız kaydediyor. 3-5 sayfa böyle devam ediyor. Daha sonra yazılı şekilde sıralama yapmaya başlıyor. Fakat hepsi de kaymış bir şekilde. hiç biri de olmasaı gereken resmin altında değil

uyguladıgım dosya bu ; https://www.dosya.tc/server22/n70ae5/turler-2.09.2019-_omer.doc.html

halit3 · 6 Eylül 2019

dosyanın yanında resimler klasörü varsa sil kod kendisi oluşturuyor bu klasörü bu klasörün içinde önceden eklenmiş resimler mevcut ondan böyle oluyor.

hadromer · 6 Eylül 2019

halit3' Alıntı:
dosyanın yanında resimler klasörü varsa sil kod kendisi oluşturuyor bu klasörü bu klasörün içinde önceden eklenmiş resimler mevcut ondan böyle oluyor.

HOCAM herhangi bir resimler klasörü göremedim. Başka bilgisayarda da denedim sonuç aynı. Rica etsem müsait olduğunuz bir zamanda siz deneyebilir misiniz birde ? ana dosyanın linkini yazmıştım tekrardan yazayım ; https://www.dosya.tc/server22/n70ae5/turler-2.09.2019-_omer.doc.html

halit3 · 7 Eylül 2019

1-Buradaki excel dosyasını aç (worddeki resimleri klasöre kayıt yap) komut düğmesi ile eklemiş olduğum veri8.doc dosyası olan klasörü seç tamam
2- (klasördeki resimleri wordde kayıt yap) komut düğmesini tıkla dosyanın hemen yanına yeni adıyla klasör oluşturacak ve oraya kayıt yapacaktır.

hadromer · 7 Eylül 2019

halit3' Alıntı:
1-Buradaki excel dosyasını aç (worddeki resimleri klasöre kayıt yap) komut düğmesi ile eklemiş olduğum veri8.doc dosyası olan klasörü seç tamam
2- (klasördeki resimleri wordde kayıt yap) komut düğmesini tıkla dosyanın hemen yanına yeni adıyla klasör oluşturacak ve oraya kayıt yapacaktır.

Çok teşekkür ediyorum, siz muhteşem bir insansınız. ELlerinize sağlık hocam

halit3 · 7 Eylül 2019

Teşekkürler iyi çalışmalar

Soru Word ; Tablo içerisindeki resimlerin, resim yazısına göre alfabetik sıralanması

hadromer

halit3

Uzman

hadromer

hadromer

halit3

Uzman

halit3

Uzman

hadromer

halit3

Uzman

halit3

Uzman

halit3

Uzman

Ekli dosyalar

hadromer

halit3

Uzman

Ekli dosyalar

halit3

Uzman

Ekli dosyalar

hadromer

hadromer

halit3

Uzman

hadromer

halit3

Uzman

Ekli dosyalar

hadromer

halit3

Uzman