The error is Run-time error '5825': Object has been deleted
Private Sub Document_New() Dim zipCity As String zipCity = ActiveDocument.Variables("Kunde_adr1") Dim lenVar As Integer lenVar = Len(zipCity) Dim city As String city = Mid(zipCity, 9, lenVar) ActiveDocument.Bookmarks("bimCity").Range.Text = city End Sub
|Help with a If commands in MS word 2010 when using with a XML drop down box||5||26|
|Deleting specific photos based on height and width in VBA powerpoint||3||51|
|vba excel2010 and 2013||2||36|
|Excel Conditional Formatting in a Macro||4||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!