5. 2. 2014 v 18:16

Re:Re: Makro — editace poznamek #55486

Ales
Účastník
259 příspěvků

Funguje to! Dík 🙂 Některé příkazy sice moc nechápu, ale to asi není nutné 🙂

Takhle to nakonec vypadá, makro zamění všechny výskyty „Nazev“ za „Name“ ve všech poznámkách.

Option Explicit

Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swNote As SldWorks.Note
Dim sNoteText As String
Dim nTextCount As Long
Dim i As Long
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView
While Not swView Is Nothing
Set swNote = swView.GetFirstNote
While Not swNote Is Nothing
sNoteText = swNote.PropertyLinkedText
sNoteText = Replace(sNoteText, "Nazev", "Name")
swNote.PropertyLinkedText = sNoteText
Set swNote = swNote.GetNext
Wend
Set swView = swView.GetNextView
Wend
End Sub