如何用VBA导出PPT段落中段首空了多少距离？

小鸟向前飞

PPT中段落可以用标尺调整，也可以直接多空几个空格表示段首。想知道用VBA怎么获取段首空了多少空格或距离？
求教了。

dongdonggege

看看还能在哪里查到！写了多少天，一直未发表。

1. Private Sub CommandButton1_Click() '段落中段首空了多少空格
   
2. Dim str1 As String
   
3. Set shp = ActiveWindow.Selection.ShapeRange
   
4. str1 = Len(shp.TextFrame.TextRange.Characters)
   
5. str2 = Len(LTrim(shp.TextFrame.TextRange.Characters))
   
6. MsgBox str1 - str2
   
7. End Sub

复制代码

你所说的几个贴都是我写的，只不过又换了名字而已。所有的知识都大同小异，几乎都是我模仿你，你模仿我。

小鸟向前飞

dongdonggege 发表于 2016-7-12 23:58
看看还能在哪里查到！写了多少天，一直未发表。

你所说的几个贴都是我写的，只不过又换了名字而已。所有 ...

多谢大神！

251615789

学习了学习了学习了

小鸟向前飞

dongdonggege 发表于 2016-7-12 23:58
看看还能在哪里查到！写了多少天，一直未发表。

你所说的几个贴都是我写的，只不过又换了名字而已。所有 ...

大神，我试了一下这个方法，当在段首有空格时，可以得到空格的个数。挺好的。
现在有另外一个疑问，怎么能得到首行缩进的数据呢？我看paragraphFormat里面没有啊

dongdonggege

1、请不要叫我大神，我的技术等级是初级，我只是个vba的痴迷者，大家以朋友相称。如你能高抬我，我叫我老师吧。
2、以我目前的水平，我知道只有word中有“首行缩进”（或段首缩进）这个名词，excel和ppt均没有，也许是我孤陋寡闻。
3、既然ppt中没有“段首缩进”（暂时这么认为吧，或许这个名称比较恰当），那我们又想“段首缩进”，难道就没有方法了吗？
4,、方法是人想出来的，我们可以模仿word的这个功能，我对word vba接触较少，也是看了你的要求后，现学现卖的。
段首缩进，就是光标所在的行的段首空2个字符，不知这样的理解是否正确？word中是这样的：

1. Sub 段首缩进2字符()
   
2. With Selection.ParagraphFormat
   
3.     Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 2  '设置段首缩进2字符
   
4. End With
   
5. End Sub
   
6. 
   
7. Sub 首行缩进2字符()
   
8. 'WORD文档中的第三段落实现首行缩进2字符
   
9. Dim MyParagraph As Range
   
10. Set MyParagraph = ActiveDocument.Range(ActiveDocument.Paragraphs(3).Range.Start, ActiveDocument.Paragraphs(3).Range.End)
    
11. If (MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2) Then
    
12.     MsgBox "首行已经缩进"
    
13. Else
    
14.     MsgBox "首行未缩进"
    
15. MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2
    
16. End If
    
17. End Sub

复制代码

步骤：
①选择需要的文本框
Set shp = ActiveWindow.Selection.ShapeRange(1)
②判断文本框段首字符，这要根据具体情况，这儿最复杂
str3 = shp.TextFrame.TextRange.Characters '
If LTrim(Left(str3, 1)) > 0 And LTrim(Left(str3, 1)) < 64
③如果段首是汉字，则空4个字符，如果是数字（或英文），则空2个字符。
If Asc(Left(str3, 1)) < 0 Then '中文
不好意思，我最近较忙，给你两个程序，你自己修改，或模仿，最主要是判断

1. Sub 文本框首个字符判断() '
   
2.     Set shp = ActiveWindow.Selection.ShapeRange(1) '选择的文本框
   
3.     str1 = Len(shp.TextFrame.TextRange.Characters) '字符串长度
   
4.     str2 = Len(LTrim(shp.TextFrame.TextRange.Characters)) '字符串去掉空格后的长度
   
5.     str3 = shp.TextFrame.TextRange.Characters '
   
6.    
   
7.     If Asc(Left(str3, 1)) < 0 Then '中文
   
8.         MsgBox "第1个字符是中文"
   
9.     End If
   
10.    
    
11.     If IsNumeric(Left(str3, 1)) = True Then '数字
    
12.         MsgBox "第1个字符是数字"
    
13.     End If
    
14.    
    
15.     If Asc(Left(str3, 1)) >= 65 And Asc(Left(str3, 1)) <= 122 Then '英文
    
16.         MsgBox "第1个字符是英文"
    
17.     End If
    
18.    
    
19.     If LTrim(Left(str3, 1)) > 0 And LTrim(Left(str3, 1)) < 64 Then
    
20.         MsgBox "第1个字符是空格"
    
21.         MsgBox "共有" & str1 - str2 & "个空格"
    
22.     End If
    
23. End Sub

复制代码

1. Sub 段首缩进()
   
2.     Set shp = ActiveWindow.Selection.ShapeRange(1) '选择的文本框
   
3.     str1 = Len(shp.TextFrame.TextRange.Characters) '字符串长度
   
4.     str2 = Len(LTrim(shp.TextFrame.TextRange.Characters)) '字符串去掉空格后的长度
   
5.     str3 = shp.TextFrame.TextRange.Characters '
   
6.    
   
7.     If str1 - str2 = 0 Then '判断段首是否有空格
   
8.         With shp.TextFrame.TextRange
   
9.         str4 = shp.TextFrame.TextRange.Characters(Start:=1, Length:=0) '光标放在字符串第1个字符前
   
10.             .Text = "  " & str3 '段首添加2个空格
    
11.         End With
    
12.     End If
    
13.    
    
14. End Sub

复制代码

不知道能否帮到你，到此为止吧

小鸟向前飞

自问自答一下，应该叫首行缩进，不是段首缩进，楼上的办法可以处理使用空格模拟缩进的情况。
对于设置”段落 -- 缩进和间距 -- 特殊格式 -- 首行缩进“的情况，可以使用下面的脚本得到缩进距离：

1. Application.ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange.Paragraphs(1).ParagraphFormat.FirstLineIndent

复制代码

多谢楼上的同学了，交流才有启发。

wangyihong99

小鸟向前飞 发表于 2016-8-3 17:27
自问自答一下，应该叫首行缩进，不是段首缩进，楼上的办法可以处理使用空格模拟缩进的情况。
对于设置”段 ...

请教一下，比如这段 Application.ActivePresentation.Slides(1)   问题是：如何用msgbox 跳出当前是第几个放映灯？？？比如如上那段是人为的指第1个   ，谢谢！急用！再比如说 .slides.counts是指当前总共有多少个放映灯片，那当前第几个是怎么样表达呢？

weiyingde

wangyihong99 发表于 2016-11-22 17:11
请教一下，比如这段 Application.ActivePresentation.Slides(1)   问题是：如何用msgbox 跳出当前是第几 ...

你是说在放映状态下吗？如果是，试试下面代码：
注意：放在标准模块中
Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
x = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
MsgBox "这是第" & x & "张幻灯片。", vbInformation, Space(18) &"请注意"
End Sub

weiyingde

小鸟向前飞 发表于 2016-8-3 17:27
自问自答一下，应该叫首行缩进，不是段首缩进，楼上的办法可以处理使用空格模拟缩进的情况。
对于设置”段 ...

这个不行，只在word中有这个属性，ppt中文本框的段落首行缩进，好像没有。