Word VBA - Looping Through and Reading Bookmarks

แชร์
ฝัง
  • เผยแพร่เมื่อ 11 ก.ย. 2024
  • This Tutorial will demonstrate on looping through and reading bookmarks.
    #practicalit #wordvba #learnvba #easyvba #bookmarks #learnwordvba #vba #macro #Macros #whatisbookmarks #wordbookmarks

ความคิดเห็น • 8

  • @sidharthpattanayak1066
    @sidharthpattanayak1066 8 หลายเดือนก่อน

    Very nice video sir

  • @KuldeepSingh-nq1vi
    @KuldeepSingh-nq1vi 8 หลายเดือนก่อน

    Hi Sir, please cover range property in more detail..

  • @KuldeepSingh-nq1vi
    @KuldeepSingh-nq1vi 8 หลายเดือนก่อน

    What is use of Variable property in word vba please make video on same as well..

    • @practicalit91
      @practicalit91  8 หลายเดือนก่อน

      You mean documents property

    • @KuldeepSingh-nq1vi
      @KuldeepSingh-nq1vi 8 หลายเดือนก่อน

      Hi Sir,
      I have one VBA document, In which I have below code, so I want to know what is the use of "variable" in the document, Please make one video on same topic, Thanks
      Private Function IsReady() As Boolean
      Dim x As Variable
      For Each x In ActiveDocument.Variables
      If x.Name = "DocunizeGenerated" Then
      If x.Value = "True" Then IsReady = True
      End If
      Next
      End Function

  • @sidharthpattanayak1066
    @sidharthpattanayak1066 8 หลายเดือนก่อน

    How mailmerge will be create using bookmark vba

  • @practicalit91
    @practicalit91  8 หลายเดือนก่อน

    'Example-1
    Sub LoopthroughBookmarks()
    Dim Bookm As bookmark
    For Each Bookm In ActiveDocument.Bookmarks
    Debug.Print "Bookmark Name : " & Bookm.Name
    Debug.Print "Bookmark Range/Text : " & Bookm.Range.Text
    Next Bookm
    End Sub
    'Example-2
    Sub Read_Bookmarks()
    Dim targetbkm As String
    targetbkm = "NewBK"
    'bkm exists or not
    If ActiveDocument.Bookmarks.Exists(targetbkm) Then

    Dim bkmrange As Range
    Set bkmrange = ActiveDocument.Bookmarks(targetbkm).Range

    Debug.Print bkmrange.Text
    Else
    MsgBox "Sorry Bookmarks doesnt exist"
    End If
    End Sub