Que me saque un mensaje y que me diga que ese nombre ya existe
Publicado por Roberto (1 intervención) el 05/07/2019 22:47:11
Como lo mencioné en el titulo, quiero que me saque un mensaje y que me diga que ese nombre ya existe, en el macro que tengo me hace lo siguiente:
Si de por si ya tiene un nombre el documento me lo guarda en la ruta colocada con el mismo nombre y me lo imprime una vez, ademas que ajusta la fuente, el tamaño de la fuente los margenes.
Ahora si tengo un documento nuevo quiere decir que nunca se ha colocado un nombre, cuando ejecuto el comando, primero me pregunta como le pongo el nombre, luego me guarda el documento en la ruta mencionada, me lo imprime una vez, ademas ajusta la fuente, el tamaño de la fuente y los margenes.
el problema es, si en la ruta mencionada ya existe un nombre parecido reemplaza ese documento sin preguntarme que ya existe ese archivo. a continuación les coloco el macro realizado
Si de por si ya tiene un nombre el documento me lo guarda en la ruta colocada con el mismo nombre y me lo imprime una vez, ademas que ajusta la fuente, el tamaño de la fuente los margenes.
Ahora si tengo un documento nuevo quiere decir que nunca se ha colocado un nombre, cuando ejecuto el comando, primero me pregunta como le pongo el nombre, luego me guarda el documento en la ruta mencionada, me lo imprime una vez, ademas ajusta la fuente, el tamaño de la fuente y los margenes.
el problema es, si en la ruta mencionada ya existe un nombre parecido reemplaza ese documento sin preguntarme que ya existe ese archivo. a continuación les coloco el macro realizado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Sub progreso()
'
' progreso Macro
'
Dim doc
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content
' Cambia los margenes
With ActiveDocument.PageSetup
.MirrorMargins = True
.LeftMargin = 38
.RightMargin = InchesToPoints(0.3)
End With
'Encuentra la posicion de la extension
doc = ActiveDocument.Name
intPos = InStrRev(doc, ".")
If intPos = 0 Then
'Si el documento no tiene punto no ha sido salvado
' pregunto que nombre quiere ponerle
doc = InputBox("Dame el Nombre para poder guardarlo")
Else
'le agrego la extension .DOC
doc = Left(doc, intPos - 1)
doc = doc & ".doc"
End If
With ActiveDocument.Content
' Inserta 2 lineas
.InsertBefore Chr(13)
.InsertBefore Chr(13)
' Pone la guia
.InsertBefore "Guia: " & doc
.Font.Name = "Arial"
.Font.Size = 12
.Font.Bold = True
.InsertParagraphAfter
Set rngParagraphs = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(2).Range.Start, _
End:=ActiveDocument.Range.End)
rngParagraphs.Select
rngParagraphs.Font.Bold = False
rngParagraphs.Font.Size = 12
' gravo con la extension en modo texto e imprimo 1 veces y cierro el documento
todo = todo + "G:\REDAC\OTR\JRR"
ChangeFileOpenDirectory todo
ActiveDocument.SaveAs FileName:=doc, FileFormat:=wdFormatDocument
ActiveDocument.PrintOut
ActiveDocument.Close
End With
End With
Else
MsgBox "No Hay NADA Abierto"
End If
End Sub
Valora esta pregunta
0