bookmarks

palmoura · Sep 5th 2006

hello fellows,

I have a question.... i have a document(generated with data from excel) and everytime I generate a report sometimes i have to create new file or append the existing file, i have bookmarks in file, but when i'm trying to append the file he don't clean the bookmarks, i want to know how to clean the bookmarks.

huges

Pedro Moura

johnccc · Sep 5th 2006

Re: bookmarks

Hi Pedro,

The code is by no means elegant but it works

Code

Sub Test()
On Error Resume Next
For i = ActiveDocument.Bookmarks.Count To 1 Step -1
temp = ActiveDocument.Bookmarks.Count
ActiveDocument.Bookmarks(temp).Delete
Next i
End Sub

Hope this helps

John

palmoura · Sep 5th 2006

Re: bookmarks

thanks for the help Johnccc,

but i do'nt know wich tipe is the variable temp is an object? is a String?
i try this code, but when i append the bookmark i have an error

this is the function

Code

Function cleanBookmarks()
  Dim i As Integer
  Dim temp
  With wordDoc
       On Error Resume Next
    For i = wordDoc.Bookmarks.count To 1 Step -1
        temp = wordDoc.Bookmarks.count
        wordDoc.Bookmarks(temp).Delete
    Next i


  End With
End Function

Display More

this is the code i try to put working

Code

sub test()
 If FileOrDirExists(OutputFile) Then
    MsgBox "new"
    Set wordDoc = WordApp.Documents.Open(caminhoRel)
  Else
    MsgBox "append"
    Set wordDoc = WordApp.Documents.Open(dirStore)
    Call cleanBookmarks
  End If
  With wordDoc
    
    If verificaCelulasVazias("Dados Cliente", "localidade2") And verificaCelulasVazias("Dados Cliente", "gestorNome") Then
       .Bookmarks("cliente").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("cliente").Text              'error here
       .Bookmarks("local").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("localidade2").Text
       .Bookmarks("gestor").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("gestorNome").Text
       .Bookmarks("mail").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("mailGestor").Text
       .Bookmarks("telefone").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("tlfGestor").Text
       .Bookmarks("telemovel").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("tlmGestor").Text
       .Bookmarks("fax").Range.Text = ThisWorkbook.Sheets("Dados Cliente").Range("faxGestor").Text
       .Bookmarks("data").Range.Text = Date
    End If
end Sub

Display More

huges

**Andy Pope** · Sep 5th 2006

Re: bookmarks

When you say clean do you mean DELETE or CLEAR CONTENT?

John's code is removing all the bookmarks when appending, which will cause your code to fail.

palmoura · Sep 6th 2006

Re: bookmarks

Quote from Andy Pope

When you say clean do you mean DELETE or CLEAR CONTENT?

John's code is removing all the bookmarks when appending, which will cause your code to fail.

sorry my explanation was not correct, when i say clean is to clear the content of the bookmark.
Huges

johnccc · Sep 6th 2006

Re: bookmarks

Hi,

Surely the code

Code

.Bookmarks("local").Range.Text = ""

Where "local" can be replaced by temp from my code should get rid of the text but leave the bookmark in place??

HTH

John

**Andy Pope** · Sep 6th 2006

Re: bookmarks

I think an example file is required to clarify what the bookmark is and what text should be cleared.

palmoura · Sep 8th 2006

Re: bookmarks

Quote from johnccc
Hi,

Surely the code
Code
.Bookmarks("local").Range.Text = ""
Where "local" can be replaced by temp from my code should get rid of the text but leave the bookmark in place??

HTH

John
Display More

Hi,
I did that on my code. I create a function

Code

Function clean_content_of_Bookmarks()
  With wordDoc
      .Bookmarks(bookmarkname).Range.Text = ""
    ' do the same to all bookmarks in the document
  End With
End Function

but it didn't clear the content, and wrote the text after the content in the docuement.

johnccc · Sep 8th 2006

Re: bookmarks

Hi,

You need to put this into a "sub" not a function.

Look at your code, you currently set each bookmark with the code earlier in your post. Can you alter it as follows:-

Code

Sub test() 
If FileOrDirExists(OutputFile) Then 
    MsgBox "new" 
    Set wordDoc = WordApp.Documents.Open(caminhoRel) 
Else 
    MsgBox "append" 
    Set wordDoc = WordApp.Documents.Open(dirStore) 
    'Call cleanBookmarks 
End If 
With wordDoc    
        If verificaCelulasVazias("Dados Cliente", "localidade2") And verificaCelulasVazias("Dados Cliente", "gestorNome") Then 
            .Bookmarks("cliente").Range.Text = ""
            .Bookmarks("local").Range.Text = ""
            .Bookmarks("gestor").Range.Text = ""
            .Bookmarks("mail").Range.Text = ""
        End If 
End Sub

Display More

Unfortunately due to my works IT policy I cannot test this as I am unable to open Word from Excel. Give it a try though.

John

bookmarks

Participate now!

Share