Word Makrolar | Komut Düğmesiyle Dosyayı Yeni Adla Kaydedip Kapatmak | 3. bölüm скачать в хорошем качестве

Word Makrolar | Komut Düğmesiyle Dosyayı Yeni Adla Kaydedip Kapatmak | 3. bölüm

Word belgelerinde oluşturabileceğiniz makrolar sayesinde kişilerin sizin belirlediğiniz formları doldurmasını ve bazı makro kodları sayesinde bu formların otomatik olarak kaydedilmesini sağlayabilirsiniz. Word Makro Komut Düğmesi videomuzda bunu gösteriyoruz. ---------- Word belgelerinize yeni isim verip kaydetmek için kod: Dim strVer As String Dim strDate As String Dim strPath As String Dim strFile As String Dim oVars As Variables Dim strFileType As WdDocumentType Dim strVersionName As String Dim intPos As Long Dim sExt As String Set oVars = ActiveDocument.Variables strDate = Format((Date), "dd MMM yyyy") With ActiveDocument On Error GoTo CancelledByUser If Len(.Path) = 0 Then 'No path means document not saved .Save 'So save it End If strPath = .Path 'Get path strFile = .Name 'Get document name End With intPos = InStr(strFile, " - ") 'Mark the version number sExt = Right(strFile, Len(strFile) - InStrRev(strFile, ".do")) If intPos = 0 Then 'No version number intPos = InStrRev(strFile, ".do") 'Mark the extension instead End If strFile = Left(strFile, intPos - 1) 'Strip the extension or version number Select Case LCase(sExt) 'Determine file type by extension Case Is = "doc" strFileType = 0 Case Is = "docx" strFileType = 12 Case Is = "docm" strFileType = 13 Case Is = "dot" strFileType = 1 Case Is = "dotx" strFileType = 14 Case Is = "dotm" strFileType = 15 End Select Start: 'Get Registry Data On Error Resume Next 'No entry in registry will flag an error strVer = oVars("varVersion").Value If strVer = "" Then 'Variable does not exist oVars("VarVersion").Value = "0" 'So create it GoTo Start: End If On Error GoTo 0 strVer = Val(strVer) + 1 'Increment number oVars("varVersion").Value = strVer 'Define the new version filename strVersionName = strPath & "\" & strFile & " - " & strDate & _ " - Version " & Format(Val(strVer), "00#") _ & Chr(46) & sExt 'and save a copy of the file with that name ActiveDocument.SaveAs strVersionName, strFileType ActiveDocument.Close Exit Sub CancelledByUser: 'Error handler MsgBox "Cancelled By User", , "Operation Cancelled" ---------- Beni desteklemek istersen ➡ https://www.buymeacoffee.com/Ofislab ---------- 👋 Selamlar! Facebook -   / ofislab   Twitter -   / ofislab   #word #makro #komutdüğmesi