Sorgu için arama sonuçları: word.application

emeğinize sağlık, istediğim gibi çalışıyor. Teşekkür ederim

...ekle As Integer Set ws = ThisWorkbook.Sheets("Sayfa1") sonsat = ActiveSheet.UsedRange.Rows.Count Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True sablon = ThisWorkbook.Path & "\" & "YENİ.docx" Set wrdDoc = wrdApp.Documents.Add(sablon) derssay =...

Teşekkür ederim şablonu oluşturdum ama her başlangıçta açıyor son çıktıda logo ve vektörler bulunmuyor?

...Microsoft Word xx.0 Object Library aktif edildikten sonra, Option Explicit Sub MSWord_Yazi_veResim_Yolla2() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim objWdRange As Word.Range, Image As String Dim sonsat As Long, i As Long, j As Integer, l As Integer Dim esas As String...

Necati bey ellerinize sağlık çok teşekkür ederim. Bunların sayfaların belli yerlerine vektör görsel ekleyeceğim tam olarak kod yapısını nereye nasıl yazabilirim. (1 logo, 2 vektör şekil)

Aşağıdaki kodu herhangi bir module ekleyin ve TestFindAll makrosunu verilerinizin olduğu sayfa aktif iken çalıştırınız. Makro kodu https://www.cpearson.com/excel/findall.aspx# sayfasından alınmış ve sizin sorunuza göre uyarlanmıştır. Sub TestFindAll() On Error Resume Next...

...Microsoft Word xx.0 Object Library aktif edildikten sonra, Option Explicit Sub MSWord_Yazi_veResim_Yolla() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim objWdRange As Word.Range, Image As String Dim sonsat As Long, i As Long, j As Integer, l As Integer sonsat =...

Merhaba, Sub ExtractCase() Dim i As Long Dim upper As String Dim lower As String For i = 1 To 100 upper = "" lower = "" Dim word As Variant Words = Split(Cells(i, 1).Value, " ") For Each word In Words If UCase(word) = word Then upper = upper & word & " " Else...

...satır ekleyin. Private Sub CommandButton1_Click() Dim wordapp As Object, doc As Object, i As Integer Set wordapp = CreateObject("word.application") sablon = "C:\Users\ismail\Desktop\Test\test.docx" Set doc = wordapp.Documents.Open(sablon) doc.Bookmarks("\page").Range.Copy For i = 2 To 103...

Merhaba deneyeceğim

...Aşağıdaki gibi olmalı. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\ismail\Desktop\Test\sablon.docx" For i = 2 To 110 Set doc = wordapp.Documents.Open(sablon) doc.Bookmarks("KALITE").Range.InsertAfter Cells(i...

...aktarık barkod yazıcıdan cıkarmak ıstıyorum. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\ismail\Desktop\Test\sablon.docx" For i = 2 To 110 Set doc = wordapp.Documents.Open(sablon)...

...aktarık barkod yazıcıdan cıkarmak ıstıyorum. Private Sub CommandButton1_Click() Dim doc As Word.Document Set wordapp = CreateObject("word.application") sablon = "C:\Users\ismail\Desktop\Test\sablon.docx" For i = 2 To 110 Set doc = wordapp.Documents.Open(sablon)...

...> References > Microsoft Word x.x Object Library kütüphanesini etkinleştiriniz. Sub Excelden_Worrde_Bul_Degistir() Dim wApp As Word.Application Dim wDoc As Word.Document Dim obj As Object, klasor As Object Dim file As String Dim ws As Worksheet Dim i As Integer, say As Integer, sonsat As...

...End If ' Microsoft Word'ü başlat On Error Resume Next Set WordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set WordApp = CreateObject("Word.Application") End If On Error GoTo 0...

Tekrar merhaba, Word makro kodlarına çok hakim değilim. Umarım işinize yarar, aşağıdaki şekilde dener misiniz? Sub PicWithCaption() Dim xFileDialog As FileDialog Dim xPath, xFile As Variant Dim rsm As Object Dim gen As Double: gen = CentimetersToPoints(10) On Error Resume Next Set xFileDialog =...

farklı kod 'referanslarda bu olmalı Microsoft PowerPoint xx.x Object Library. Sub kaydetPowerPoint2() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Set pptApp = New PowerPoint.Application Set pptPres = pptApp.Presentations.Add Kaynak = ThisWorkbook.Path...

Tamamdır bundan sonra değişiklik yok 'referanslarda bu olmalı Microsoft PowerPoint xx.x Object Library. Sub kaydetPowerPoint2() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptSlideCount As Integer Kaynak = ThisWorkbook.Path...

bu kod da metin nesnesiyle yapılmıştır çerçeve yok 'referanslarda bu olmalı Microsoft PowerPoint xx.x Object Library. Sub kaydetPowerPoint() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptSlideCount As Integer Kaynak =...

kod: 'referanslarda bu olmalı Microsoft PowerPoint xx.x Object Library. Sub kaydetPowerPoint() Dim pptApp As PowerPoint.Application Dim pptPres As PowerPoint.Presentation Dim pptSlide As PowerPoint.Slide Dim pptSlideCount As Integer Kaynak = ThisWorkbook.Path dosya_adı = ActiveWorkbook.Name...