Option Explicit
Const FOLDER_SAVED As String = "F:\1350\tset\" `Makes sure your folder path ends with a backward slash
Const SOURCE_FILE_PATH As String = "F:\1350\microteknik catagog.xlsx"
Sub TestRun()
Dim MainDoc As Document, TargetDoc As Document
Dim dbPath As String
Dim recordNumber As Long, totalRecord As Long
Set MainDoc = ActiveDocument
With MainDoc.MailMerge
'// if you want to specify your data, insert a WHERE clause in the SQL statement
.OpenDataSource Name:=SOURCE_FILE_PATH, sqlstatement:="SELECT * FROM [Sheet1$]"
totalRecord = .DataSource.RecordCount
For recordNumber = 1 To totalRecord
With .DataSource
.ActiveRecord = recordNumber
.FirstRecord = recordNumber
.LastRecord = recordNumber
End With
.Destination = wdSendToNewDocument
.Execute False
Set TargetDoc = ActiveDocument
TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("CODE").Value & ".docx", wdFormatDocumentDefault
TargetDoc.ExportAsFixedFormat FOLDER_SAVED & .DataSource.DataFields("CODE").Value & ".pdf", exportformat:=wdExportFormatPDF
TargetDoc.Close False
Set TargetDoc = Nothing
Next recordNumber
End With
Set MainDoc = Nothing
End Sub
Scientific Laboratory Equipment's & Instruments Manufacturer Incinerators play a crucial role in waste management, providing an effective solution for reducing waste volume and managing hazardous materials. This article delves into the details of incinerators, their uses, working principles, and the different types available, focusing on small incinerators and their applications. What is an Incinerator Used For? An incinerator is a device used for burning waste materials at high temperatures until they are reduced to ash, gas, and heat. The primary purpose of incineration is to reduce the volume of waste, which in turn decreases the burden on landfills. Additionally, incineration helps in managing hazardous waste, ensuring that dangerous substances are destroyed and rendered harmless. Key applications of incinerators include: Municipal Waste Management: Reducing the volume of household waste and producing energy from waste. Medical Waste Disposal: Safely destroying infectious