Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/04/2019 18:46
Konu Sahibi
kokotuna
Yorumlar
2
Okunma
186
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
kokotuna

kokotuna

Aktif Üye
46789
 33
 62
 205
 02/03/2012
10
 Bolu
 
 -
 02/07/2019,16:17
Çözüldü 
Merhaba, Aşağıdaki kod ile worde tablo aktarımı yapıyorum. Ancak Word'ün üst bilgi alanınada birşeyler yazmam gerekiyor, ancak üstbilgi alanına bookmark eklememe ragmen çalışmıyor.
Üst bilgi alanı için başka bir yöntemmi kullanmamız gerekiyor acaba?

Ayrıca, worde aktarılan tabloların isimlerini koddada görebileceğiniz şekilde sürekli silmek gerekiyor sanırım, bunun daha pratik kısa bir yolu varmıdır acaba?


Yardımlarınız için şimdiden teşekkürler...

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Dim WordApp As Word.Application
 
   Dim strTemplateLocation As String
 
    strTemplateLocation = CurrentProject.Path & "\PROGRAM.doc"
 
   On Error Resume Next
 
  Set WordApp = CreateObject("Word.Application")
   If Err.Number <> 0 Then
     Set WordApp = CreateObject("Word.Application")
   End If
   
Private Sub Komut218_Click()

On Error GoTo ErrHandler
 WordApp.Visible = True

   WordApp.WindowState = wdWindowStateMaximize
   WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False


   With WordApp.Selection

 DoCmd.OpenQuery "TAPUBİLGİLERİ1Sorgu" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  WordApp.ActiveDocument.Bookmarks("KAPAK1").Range.Paste

  End With
.
.
.
.
.
.

   With WordApp.Selection
    
  

  
.Goto what:=wdGoToBookmark, Name:="İLİ"
.TypeText DLookup("[İLGİLİİDARE]", "İMARDURUMUBİLGİLERİ")

End With


  WordApp.ActiveDocument.Range.Tables(60).Rows(1).Delete '**** Burayı ekledik. ****
          WordApp.ActiveDocument.Range.Tables(60).AutoFitBehavior (wdAutoFitWindow)
        With WordApp.ActiveDocument.Range.Tables(60).Range.Paragraphs  ' burayı ekleyiniz..
        .Alignment = wdAlignParagraphCenter
        End With

   DoEvents
   WordApp.Activate

   Set WordApp = Nothing
   Exit Sub
 
ErrHandler:
Set WordApp = Nothing
Exit Sub




halily

halily

Uzman
65596
ha....
 26
 1.265
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,19:15

Visual Basic Code
ThisDocument.Sections.Item(1).Headers(wdHeaderFooterPrimary).Range="başlık"

benzeri bir kodu denediniz mi başlık için?



...........
halily

halily

Uzman
65596
ha....
 26
 1.265
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,19:15
çalışmanızın son durumu ile ilgili bilgi verir misiniz?




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sürekli Formdaki Kritere Göre Liste Kutusuna Veri Aktarımı mmert06 7 516 31/12/2018, 18:35
Son Yorum: mmert06
Çözüldü Raporda Üstbilgi Ya Da Altbilgiyi Diğer Sayfalardandan Engellemek İstiyorum alimadam 3 333 31/10/2018, 08:09
Son Yorum: alimadam
Çözüldü Kimlik Aktarımı Hakkında notrino 1 212 22/10/2018, 20:39
Son Yorum: ozanakkaya
Çözüldü Rapor Önizlemeyi Worde Gönderme bibib 12 921 28/07/2018, 02:46
Son Yorum: bibib
Çözüldü Formlar Arası Belirli Bilgilerin Aktarımı ALTANs 1 378 01/07/2018, 03:36
Son Yorum: myAccess

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.